diff options
author | James Pollard <james@pollard.dev> | 2020-06-12 17:48:51 +0100 |
---|---|---|
committer | James Pollard <james@pollard.dev> | 2020-06-12 17:48:51 +0100 |
commit | f7795011ea9ac0d34ee565d3832f15b649bf1827 (patch) | |
tree | fd731b58626c8665032afd62068ece8cedc76eb0 /src/translation/HTLgenproof.v | |
parent | 9acb804500b590edbff66cd802216f58dde169cd (diff) | |
parent | 86f42b92d87020875e2a7ef4ba40de12d261685f (diff) | |
download | vericert-kvx-f7795011ea9ac0d34ee565d3832f15b649bf1827.tar.gz vericert-kvx-f7795011ea9ac0d34ee565d3832f15b649bf1827.zip |
Merge branch 'master' into arrays-proof
Diffstat (limited to 'src/translation/HTLgenproof.v')
-rw-r--r-- | src/translation/HTLgenproof.v | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/translation/HTLgenproof.v b/src/translation/HTLgenproof.v index 6dc4c21..773497b 100644 --- a/src/translation/HTLgenproof.v +++ b/src/translation/HTLgenproof.v @@ -724,6 +724,7 @@ Section CORRECTNESS. Admitted. Hint Resolve transl_step_correct : htlproof. + (* Had to admit proof because currently there is no way to force main to be Internal. *) Lemma transl_initial_states : forall s1 : Smallstep.state (RTL.semantics prog), Smallstep.initial_state (RTL.semantics prog) s1 -> @@ -740,10 +741,11 @@ Section CORRECTNESS. replace (AST.prog_main tprog) with (AST.prog_main prog). rewrite symbols_preserved; eauto. symmetry; eapply Linking.match_program_main; eauto. - eexact A. trivial. + Admitted. + (*eexact A. trivial. constructor. apply transl_module_correct. auto. - Qed. + Qed.*) Hint Resolve transl_initial_states : htlproof. Lemma transl_final_states : |