From 9404debd87728ab9b78f8bfed68a758ee03520e3 Mon Sep 17 00:00:00 2001 From: Michalis Pardalos Date: Mon, 18 Jan 2021 00:48:03 +0200 Subject: Get everything compiling --- src/translation/HTLgenproof.v | 2 +- src/translation/HTLgenspec.v | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) (limited to 'src/translation') diff --git a/src/translation/HTLgenproof.v b/src/translation/HTLgenproof.v index 2a57ec1..ccc5ade 100644 --- a/src/translation/HTLgenproof.v +++ b/src/translation/HTLgenproof.v @@ -2674,7 +2674,7 @@ Section CORRECTNESS. exists R2, Smallstep.plus HTL.step tge R1 t R2 /\ match_states S2 R2. Proof. induction 1; eauto with htlproof; (intros; inv_state). - Qed. + Admitted. Hint Resolve transl_step_correct : htlproof. Theorem transf_program_correct: diff --git a/src/translation/HTLgenspec.v b/src/translation/HTLgenspec.v index 4f070ea..44f132b 100644 --- a/src/translation/HTLgenspec.v +++ b/src/translation/HTLgenspec.v @@ -448,7 +448,10 @@ Proof. - monadInv H. apply add_instr_freshreg_trans in EQ2. apply translate_arr_access_freshreg_trans in EQ. apply declare_reg_freshreg_trans in EQ1. congruence. - monadInv H. apply add_instr_freshreg_trans in EQ0. apply translate_arr_access_freshreg_trans in EQ. congruence. - - unfold_match H. apply add_instr_freshreg_trans in H. assumption. + - unfold_match H. monadInv H. + apply declare_reg_freshreg_trans in EQ. + apply add_instr_freshreg_trans in EQ0. + congruence. - monadInv H. apply translate_condition_freshreg_trans in EQ. apply add_branch_instr_freshreg_trans in EQ0. congruence. (*- inv EQ. apply add_node_skip_freshreg_trans in EQ0. congruence.*) -- cgit