From 8a944ab3c58854f19197745f1b3c1f9ea6c3093f Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Fri, 21 May 2021 19:42:46 +0100 Subject: Fix admitted in last theorem --- src/hls/RTLPargenproof.v | 11 ++++++++--- 1 file 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. -- cgit