diff options
author | Michalis Pardalos <m.pardalos@gmail.com> | 2021-06-10 22:01:26 +0100 |
---|---|---|
committer | Michalis Pardalos <m.pardalos@gmail.com> | 2021-06-10 22:01:26 +0100 |
commit | f7616136f1a2f3561500b1c28219ae725c4cda17 (patch) | |
tree | fed32ce1b6ff600883d5735891de7d2119f38b7a /src/hls/Renaming.v | |
parent | 6957832da6522c7099b9554bfc68b67e0fb39444 (diff) | |
download | vericert-f7616136f1a2f3561500b1c28219ae725c4cda17.tar.gz vericert-f7616136f1a2f3561500b1c28219ae725c4cda17.zip |
Remove all Admitted from top-level Compiler.v
Diffstat (limited to 'src/hls/Renaming.v')
-rw-r--r-- | src/hls/Renaming.v | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/hls/Renaming.v b/src/hls/Renaming.v index 3efc20f..b9fbcaa 100644 --- a/src/hls/Renaming.v +++ b/src/hls/Renaming.v @@ -216,3 +216,16 @@ Definition transf_program (p : HTL.program) : Errors.res HTL.program := (fun _ f => renumber_fundef f) (mk_renumber_state 1%positive (PTree.empty reg)) p. + +Definition match_prog : HTL.program -> HTL.program -> Prop := fun _ _ => True. + +Instance TransfRenamingLink : Linking.TransfLink match_prog. +Admitted. + +Lemma transf_program_match : forall p tp, + Renaming.transf_program p = Errors.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. |