diff options
| -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.*) |