diff options
Diffstat (limited to 'scheduling/RTLpathLivegenproof.v')
-rw-r--r-- | scheduling/RTLpathLivegenproof.v | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/scheduling/RTLpathLivegenproof.v b/scheduling/RTLpathLivegenproof.v index 67de7275..b02400bf 100644 --- a/scheduling/RTLpathLivegenproof.v +++ b/scheduling/RTLpathLivegenproof.v @@ -308,10 +308,10 @@ Proof. inversion_ASSERT. inversion_SOME b. intros EVAL. intros ARGS; erewrite <- eqlive_reg_listmem; eauto. - destruct Pos.eq_dec; try_simplify_someHyps; - repeat (econstructor; simpl; eauto); - exploit exit_checker_res; eauto; - intro; subst; simpl; auto. + try_simplify_someHyps. + repeat (econstructor; simpl; eauto). + exploit exit_checker_res; eauto. + intro; subst; simpl. auto. Qed. Lemma iinst_checker_istep_continue ge sp pm alive i res rs m st: @@ -348,14 +348,14 @@ Proof. intros EQLIVE. set (tmp := istep ge i sp rs2). destruct i; simpl; try_simplify_someHyps; repeat (inversion_ASSERT || inversion_SOME b); try_simplify_someHyps; try congruence. - 1-3: explore_destruct; simpl; try destruct Pos.eq_dec; try_simplify_someHyps; repeat (inversion_ASSERT || inversion_SOME b); try_simplify_someHyps; try congruence. + 1-3: explore_destruct; simpl; try_simplify_someHyps; repeat (inversion_ASSERT || inversion_SOME b); try_simplify_someHyps; try congruence. (* Icond *) unfold tmp; clear tmp; simpl. intros EVAL; erewrite <- eqlive_reg_listmem; eauto. - destruct Pos.eq_dec; try_simplify_someHyps; - destruct b eqn:EQb; simpl in * |-; try congruence; - intros; exploit exit_checker_eqlive; eauto; - intros (path & PATH & EQLIVE2); + try_simplify_someHyps. + destruct b eqn:EQb; simpl in * |-; try congruence. + intros; exploit exit_checker_eqlive; eauto. + intros (path & PATH & EQLIVE2). repeat (econstructor; simpl; eauto). Qed. |