diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2016-07-08 14:43:57 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2016-07-08 14:43:57 +0200 |
commit | e73d5db97cdb22cce2ee479469f62af3c4b6264a (patch) | |
tree | 035d31018c2abec698eb49a205c60bbf5c24ba0d /backend/Selectionproof.v | |
parent | db2445b3b745abd1a26f5a832a29ca269c725277 (diff) | |
download | compcert-e73d5db97cdb22cce2ee479469f62af3c4b6264a.tar.gz compcert-e73d5db97cdb22cce2ee479469f62af3c4b6264a.zip |
Port to Coq 8.5pl2
Manual merging of branch jhjourdan:coq8.5.
No other change un functionality.
Diffstat (limited to 'backend/Selectionproof.v')
-rw-r--r-- | backend/Selectionproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Selectionproof.v b/backend/Selectionproof.v index aad3add4..a57e5ea6 100644 --- a/backend/Selectionproof.v +++ b/backend/Selectionproof.v @@ -865,9 +865,9 @@ Qed. Remark match_call_cont_cont: forall k k', match_call_cont k k' -> exists cunit hf, match_cont cunit hf k k'. Proof. - intros. refine (let cunit : Cminor.program := _ in _). + intros. simple refine (let cunit : Cminor.program := _ in _). econstructor. apply nil. apply nil. apply xH. - refine (let hf : helper_functions := _ in _). + simple refine (let hf : helper_functions := _ in _). econstructor; apply xH. exists cunit, hf; auto. Qed. |