From 73741034932cebf4138d867678dca117fd1c8acd Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Fri, 16 Jul 2021 21:29:25 +0200 Subject: make conditions a parameter in CSE3 --- backend/CSE3proof.v | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'backend/CSE3proof.v') 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). -- cgit