diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-11-14 20:51:38 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-11-14 20:51:38 +0000 |
commit | 6aa7ea660f19e7bde920b5b22c1c0c93f1be2fd7 (patch) | |
tree | 20f4dd9b787119eee5573081fb01528034afcc93 /src/hls/HTLgenproof.v | |
parent | 9b52b6fb50680b62b242f11a038fe792d6735c47 (diff) | |
download | vericert-kvx-6aa7ea660f19e7bde920b5b22c1c0c93f1be2fd7.tar.gz vericert-kvx-6aa7ea660f19e7bde920b5b22c1c0c93f1be2fd7.zip |
More fixes to the proof
Diffstat (limited to 'src/hls/HTLgenproof.v')
-rw-r--r-- | src/hls/HTLgenproof.v | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/hls/HTLgenproof.v b/src/hls/HTLgenproof.v index 3e89a8e..afc827d 100644 --- a/src/hls/HTLgenproof.v +++ b/src/hls/HTLgenproof.v @@ -854,15 +854,16 @@ Section CORRECTNESS. rewrite Heqv0 in H0. auto. inv H0. auto. rewrite Heqv0 in H2. discriminate. unfold valueToInt in *. auto. - inv_lessdef. unfold valueToInt in *. rewrite H3 in H1. - inv H1. + inv_lessdef. unfold valueToInt in *. + rewrite Heqv0 in H0. + inv H0. unfold Int.lt in *. rewrite zlt_false in Heqb0. simplify. rewrite Int.unsigned_repr in Heqb0. lia. simplify; lia. unfold ZToValue. rewrite Int.signed_repr by (simplify; lia). auto. - rewrite H3 in H1; discriminate. - rewrite H3 in H2; discriminate. + rewrite Heqv0 in H0; discriminate. + rewrite Heqv0 in H2; discriminate. - unfold Op.eval_addressing32 in *. repeat (unfold_match H2); inv H2. + unfold translate_eff_addressing in *. repeat (unfold_match H1). destruct v0; inv Heql; rewrite H2; inv H1; repeat eval_correct_tac. |