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 b02400bf..67de7275 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. - try_simplify_someHyps. - repeat (econstructor; simpl; eauto). - exploit exit_checker_res; eauto. - intro; subst; simpl. auto. + destruct Pos.eq_dec; 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_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. (* Icond *) unfold tmp; clear tmp; simpl. intros EVAL; erewrite <- eqlive_reg_listmem; eauto. - try_simplify_someHyps. - destruct b eqn:EQb; simpl in * |-; try congruence. - intros; exploit exit_checker_eqlive; eauto. - intros (path & PATH & EQLIVE2). + 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); repeat (econstructor; simpl; eauto). Qed. |