diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-05-21 19:42:46 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-05-21 19:42:46 +0100 |
commit | 8a944ab3c58854f19197745f1b3c1f9ea6c3093f (patch) | |
tree | 475b5cd6264759a1b54f447a39853fc181dc0682 /src | |
parent | e1d0762daf0dd4d8f826decaa4c0498c75aa9119 (diff) | |
download | vericert-8a944ab3c58854f19197745f1b3c1f9ea6c3093f.tar.gz vericert-8a944ab3c58854f19197745f1b3c1f9ea6c3093f.zip |
Fix admitted in last theorem
Diffstat (limited to 'src')
-rw-r--r-- | src/hls/RTLPargenproof.v | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/hls/RTLPargenproof.v b/src/hls/RTLPargenproof.v index 119ed59..e0c20c1 100644 --- a/src/hls/RTLPargenproof.v +++ b/src/hls/RTLPargenproof.v @@ -314,7 +314,12 @@ Proof. induction 2; try rewrite H; eauto with barg. Qed. induction 1; repeat semantics_simpl. { destruct bb; destruct x. - assert (bb_exit = bb_exit0) by admit; subst. + assert (bb_exit = bb_exit0). + { unfold schedule_oracle in *. simplify. + unfold check_control_flow_instr in *. + destruct_match; crush. + } + subst. exploit abstract_execution_correct; try eassumption. eapply ge_preserved_lem. econstructor; eauto. @@ -334,8 +339,8 @@ Proof. induction 2; try rewrite H; eauto with barg. Qed. } { inv TRANSL0. repeat econstructor; eauto using Events.external_call_symbols_preserved, symbols_preserved, senv_preserved, Events.E0_right. } { inv STACKS. inv H2. repeat econstructor; eauto. - intros. admit. + intros. apply PTree_matches; eauto. } - Admitted. + Qed. End CORRECTNESS. |