diff options
author | Michalis Pardalos <m.pardalos@gmail.com> | 2021-01-18 00:48:03 +0200 |
---|---|---|
committer | Michalis Pardalos <m.pardalos@gmail.com> | 2021-01-18 00:48:17 +0200 |
commit | 9404debd87728ab9b78f8bfed68a758ee03520e3 (patch) | |
tree | c071649daf70fab9067502cef8bfbda38a00f8cc /src/translation | |
parent | 0cbfa55ea4b91d00134ec2c4f6b13d7814ecd9d6 (diff) | |
download | vericert-9404debd87728ab9b78f8bfed68a758ee03520e3.tar.gz vericert-9404debd87728ab9b78f8bfed68a758ee03520e3.zip |
Get everything compiling
Diffstat (limited to 'src/translation')
-rw-r--r-- | src/translation/HTLgenproof.v | 2 | ||||
-rw-r--r-- | src/translation/HTLgenspec.v | 5 |
2 files changed, 5 insertions, 2 deletions
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.*) |