diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-06-12 11:37:42 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-06-12 11:37:42 +0100 |
| commit | 13b880f99b7355010551ad1b93242cf7773aa202 (patch) | |
| tree | 7b3bbb28641da2db6bda8078cf26cd0e8f0bffd9 /src/translation/HTLgenproof.v | |
| parent | f470234beafacccf743a75d4d0e6213b8861ca30 (diff) | |
| download | vericert-13b880f99b7355010551ad1b93242cf7773aa202.tar.gz vericert-13b880f99b7355010551ad1b93242cf7773aa202.zip | |
Declare all registers properly in HTL
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 523c86c..4b7f268 100644 --- a/src/translation/HTLgenproof.v +++ b/src/translation/HTLgenproof.v @@ -540,6 +540,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 -> @@ -556,10 +557,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 : |