From 6aa7ea660f19e7bde920b5b22c1c0c93f1be2fd7 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sat, 14 Nov 2020 20:51:38 +0000 Subject: More fixes to the proof --- src/hls/HTLgenproof.v | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/hls') 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. -- cgit