diff options
Diffstat (limited to 'backend/CleanupLabelsproof.v')
-rw-r--r-- | backend/CleanupLabelsproof.v | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/backend/CleanupLabelsproof.v b/backend/CleanupLabelsproof.v index 62013064..abd2581d 100644 --- a/backend/CleanupLabelsproof.v +++ b/backend/CleanupLabelsproof.v @@ -231,14 +231,16 @@ Proof. apply eval_operation_preserved. exact symbols_preserved. econstructor; eauto with coqlib. (* Lload *) + assert (eval_addressing tge sp addr (map rs args) = Some a). + rewrite <- H. apply eval_addressing_preserved. exact symbols_preserved. left; econstructor; split. - econstructor; eauto. rewrite <- H. - apply eval_addressing_preserved. exact symbols_preserved. + econstructor; eauto. econstructor; eauto with coqlib. (* Lstore *) + assert (eval_addressing tge sp addr (map rs args) = Some a). + rewrite <- H. apply eval_addressing_preserved. exact symbols_preserved. left; econstructor; split. - econstructor; eauto. rewrite <- H. - apply eval_addressing_preserved. exact symbols_preserved. + econstructor; eauto. econstructor; eauto with coqlib. (* Lcall *) left; econstructor; split. |