From 5cf10a4c70763cbb95747b19ac35b57a9dee4dd5 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Fri, 24 Jul 2020 10:22:13 +0100 Subject: More renames to get it to compile --- src/translation/HTLgenproof.v | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/translation/HTLgenproof.v') diff --git a/src/translation/HTLgenproof.v b/src/translation/HTLgenproof.v index ddf8c3a..b1cf958 100644 --- a/src/translation/HTLgenproof.v +++ b/src/translation/HTLgenproof.v @@ -577,7 +577,7 @@ Section CORRECTNESS. - pose proof Integers.Ptrofs.agree32_sub as AGR; unfold Integers.Ptrofs.agree32 in AGR. assert (ARCH: Archi.ptr64 = false) by auto. eapply AGR in ARCH. apply int_inj. unfold Ptrofs.to_int. rewrite Int.unsigned_repr. - apply ARCH. Search Ptrofs.unsigned. pose proof Ptrofs.unsigned_range_2. + apply ARCH. pose proof Ptrofs.unsigned_range_2. replace Ptrofs.max_unsigned with Int.max_unsigned; auto. pose proof Ptrofs.agree32_of_int. unfold Ptrofs.agree32 in H2. eapply H2 in ARCH. apply ARCH. @@ -708,12 +708,13 @@ Section CORRECTNESS. Admitted. Lemma eval_cond_correct : + forall e asa asr f' m args rs cond, exists v' : value, Verilog.expr_runp f' asr asa e v' /\ val_value_lessdef (Values.Val.of_optbool (Op.eval_condition cond - (map (fun r : positive => Registers.Regmap.get r rs) args) m)) v' + (map (fun r : positive => Registers.Regmap.get r rs) args) m)) v'. Admitted. (** The proof of semantic preservation for the translation of instructions -- cgit