diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-12-17 15:28:01 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-12-17 15:28:01 +0100 |
| commit | 4461db2bd92973b83bbd74c8f2eec16d702cffed (patch) | |
| tree | b02c8d646631662a5309238c13306a7d1f3e72db /backend/NeedDomain.v | |
| parent | 20c70573181f81c99ea4e8797615dac8308a9b18 (diff) | |
| parent | c1daedb244d1f7586c12749642b0d78ae910e60a (diff) | |
| download | compcert-4461db2bd92973b83bbd74c8f2eec16d702cffed.tar.gz compcert-4461db2bd92973b83bbd74c8f2eec16d702cffed.zip | |
Merge branch 'master' into pure-makefiles
Diffstat (limited to 'backend/NeedDomain.v')
| -rw-r--r-- | backend/NeedDomain.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/backend/NeedDomain.v b/backend/NeedDomain.v index 73b6831a..8beff265 100644 --- a/backend/NeedDomain.v +++ b/backend/NeedDomain.v @@ -862,12 +862,12 @@ Proof. destruct H0. inv H0; constructor; auto with na. inv H0; constructor; auto with na. inv H8; constructor; auto with na. } - exploit (@eval_operation_inj _ _ ge inject_id). - intros. apply val_inject_lessdef. auto. + exploit (@eval_operation_inj _ _ _ _ ge ge inject_id). eassumption. auto. auto. auto. + instantiate (1 := op). intros. apply val_inject_lessdef; auto. apply val_inject_lessdef. instantiate (1 := Vptr sp Int.zero). instantiate (1 := Vptr sp Int.zero). auto. - apply val_list_inject_lessdef. eauto. - eauto. + apply val_list_inject_lessdef; eauto. + eauto. intros (v2 & A & B). exists v2; split; auto. apply vagree_lessdef. apply val_inject_lessdef. auto. Qed. |