diff options
Diffstat (limited to 'backend/RTLgenproof.v')
| -rw-r--r-- | backend/RTLgenproof.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/backend/RTLgenproof.v b/backend/RTLgenproof.v index 1602823f..2b1349d2 100644 --- a/backend/RTLgenproof.v +++ b/backend/RTLgenproof.v @@ -586,9 +586,9 @@ Proof. exists (rs1#rd <- v'); exists tm1. (* Exec *) split. eapply star_right. eexact EX1. eapply exec_Iload. eauto. - instantiate (1 := vaddr'). rewrite <- H3. - apply eval_addressing_preserved. exact symbols_preserved. - auto. traceEq. + econstructor; eauto. try (rewrite <- H3; + apply eval_addressing_preserved; exact symbols_preserved). + auto. (* Match-env *) split. eauto with rtlg. (* Result *) @@ -799,11 +799,11 @@ Proof. Qed. Lemma transl_condexpr_CEcond_correct: - forall le cond al vl vb, + forall le cond expected al vl vb, eval_exprlist ge sp e m le al vl -> transl_exprlist_prop le al vl -> eval_condition cond vl m = Some vb -> - transl_condexpr_prop le (CEcond cond al) vb. + transl_condexpr_prop le (CEcond cond expected al) vb. Proof. intros; red; intros. inv TE. exploit H0; eauto. intros [rs1 [tm1 [EX1 [ME1 [RES1 [OTHER1 EXT1]]]]]]. |