diff options
author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-07-16 21:29:25 +0200 |
---|---|---|
committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-07-16 21:29:25 +0200 |
commit | 73741034932cebf4138d867678dca117fd1c8acd (patch) | |
tree | 8709b9f399e1b8cb3d0e091e98113146c80f1046 /backend/CSE3proof.v | |
parent | 10f3467291b5a1e7ed195906eb23ef1ac57a0bd7 (diff) | |
download | compcert-kvx-73741034932cebf4138d867678dca117fd1c8acd.tar.gz compcert-kvx-73741034932cebf4138d867678dca117fd1c8acd.zip |
make conditions a parameter in CSE3
Diffstat (limited to 'backend/CSE3proof.v')
-rw-r--r-- | backend/CSE3proof.v | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/backend/CSE3proof.v b/backend/CSE3proof.v index 2e9f99c5..1168374a 100644 --- a/backend/CSE3proof.v +++ b/backend/CSE3proof.v @@ -31,11 +31,11 @@ Require Import RTLtyping. Section PARAMS. Variable params : cse3params. -Definition match_prog (p tp: RTL.program) := +Definition param_match_prog (p tp: RTL.program) := match_program (fun ctx f tf => param_transf_fundef params f = OK tf) eq p tp. Lemma transf_program_match: - forall p tp, param_transf_program params p = OK tp -> match_prog p tp. + forall p tp, param_transf_program params p = OK tp -> param_match_prog p tp. Proof. intros. eapply match_transform_partial_program; eauto. Qed. @@ -43,7 +43,7 @@ Qed. Section PRESERVATION. Variables prog tprog: program. -Hypothesis TRANSF: match_prog prog tprog. +Hypothesis TRANSF: param_match_prog prog tprog. Let ge := Genv.globalenv prog. Let tge := Genv.globalenv tprog. @@ -1217,3 +1217,5 @@ Qed. End PRESERVATION. End PARAMS. + +Definition match_prog := param_match_prog (cmdline_params tt). |