From f7616136f1a2f3561500b1c28219ae725c4cda17 Mon Sep 17 00:00:00 2001 From: Michalis Pardalos Date: Thu, 10 Jun 2021 22:01:26 +0100 Subject: Remove all Admitted from top-level Compiler.v --- src/hls/ApplyExternctrl.v | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'src/hls/ApplyExternctrl.v') diff --git a/src/hls/ApplyExternctrl.v b/src/hls/ApplyExternctrl.v index 44c6b83..5ddbd4a 100644 --- a/src/hls/ApplyExternctrl.v +++ b/src/hls/ApplyExternctrl.v @@ -178,3 +178,19 @@ End APPLY_EXTERNCTRL. Definition transf_fundef (prog : HTL.program) := transf_partial_fundef (module_apply_externctrl prog). Definition transf_program (prog : HTL.program) := transform_partial_program (transf_fundef prog) prog. + +(* Semantics *) + +Definition match_prog : HTL.program -> HTL.program -> Prop := + Linking.match_program (fun ctx f tf => ApplyExternctrl.transf_fundef ctx f = OK tf) eq. + +Lemma transf_program_match : forall p tp, + ApplyExternctrl.transf_program p = OK tp -> match_prog p tp. +Admitted. + +Lemma transf_program_correct : forall p tp, + match_prog p tp -> Smallstep.forward_simulation (HTL.semantics p) (HTL.semantics tp). +Admitted. + +Instance TransfLink : Linking.TransfLink match_prog. +Admitted. -- cgit