diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-31 17:12:42 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-31 17:12:42 +0200 |
| commit | cc2d5def041128ae6dcbf46455db3341e74e995c (patch) | |
| tree | c11c7433a6008623f608f9c6bc051984e770d047 /backend/Injectproof.v | |
| parent | 7c18e5fbe3dee48b6a7f38d19cbb19427e6722fd (diff) | |
| download | compcert-kvx-cc2d5def041128ae6dcbf46455db3341e74e995c.tar.gz compcert-kvx-cc2d5def041128ae6dcbf46455db3341e74e995c.zip | |
except for builtins, finished the proof
Diffstat (limited to 'backend/Injectproof.v')
| -rw-r--r-- | backend/Injectproof.v | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/backend/Injectproof.v b/backend/Injectproof.v index c9493baf..2bfd9701 100644 --- a/backend/Injectproof.v +++ b/backend/Injectproof.v @@ -934,7 +934,6 @@ Section INJECTOR. injection VALIDATE. intro TF. symmetry in TF. - Check inject_l_injected_end. pose proof (inject_l_injected_end (PTree.elements (gen_injections f)) (fn_code f) inj_n src_pc i inj_code (Pos.succ (max_pc_function f))) as INJECTED. lapply INJECTED. 2: assumption. @@ -1632,7 +1631,14 @@ Section INJECTOR. eapply external_call_symbols_preserved; eauto. apply senv_preserved. + constructor; auto. - - admit. + - (* return *) + inv STACKS. inv H1. + econstructor; split. + + apply Smallstep.plus_one. + apply exec_return. + + constructor; trivial. + apply match_regs_write. + assumption. Admitted. Theorem transf_program_correct: |