diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-06-18 15:16:21 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-06-18 15:16:21 +0200 |
commit | 58312db34d43803a2cb63e20667a5059988dc0d1 (patch) | |
tree | 0e7c007d48fea7acf3494c78050f07e6a8d6fdb6 /scheduling/BTL_Schedulerproof.v | |
parent | 0321d5f0aa2478ab830990a3637c37566bd9b634 (diff) | |
download | compcert-kvx-58312db34d43803a2cb63e20667a5059988dc0d1.tar.gz compcert-kvx-58312db34d43803a2cb63e20667a5059988dc0d1.zip |
lemma on eqregs?
Diffstat (limited to 'scheduling/BTL_Schedulerproof.v')
-rw-r--r-- | scheduling/BTL_Schedulerproof.v | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/scheduling/BTL_Schedulerproof.v b/scheduling/BTL_Schedulerproof.v index 6963ee8b..1a4c5757 100644 --- a/scheduling/BTL_Schedulerproof.v +++ b/scheduling/BTL_Schedulerproof.v @@ -80,7 +80,6 @@ Lemma match_stack_equiv stk1 stk2: forall stk3, list_forall2 equiv_stackframe stk2 stk3 -> list_forall2 match_stackframes stk1 stk3. Proof. - (*Local Hint Resolve match_stackframes_equiv: core.*) induction 1; intros stk3 EQ; inv EQ; constructor; eauto. inv H3; inv H; econstructor; eauto. intros; rewrite <- EQUIV; auto. @@ -297,17 +296,13 @@ Qed. End SYMBOLIC_CTX. -Lemma iblock_step_eqregs sp ib: - forall rs rs' +Lemma iblock_step_eqregs stk sp f ib: + forall rs rs' m s t (EQREGS: forall r, rs # r = rs' # r) - fin m rs2 m2 (ISTEP: iblock_istep tpge sp rs m ib rs2 m2 (Some fin)), - iblock_istep tpge sp rs' m ib rs2 m2 (Some fin). + (STEP: iblock_step tr_inputs tpge stk f sp rs m ib s t), + iblock_step tr_inputs tpge stk f sp rs' m ib s t. Proof. - induction ib; intros; inv ISTEP. - - - admit. - - econstructor; eauto. - - econstructor. eapply IHib1; eauto. + Admitted. Lemma iblock_step_simulation stk1 stk2 f1 f2 sp rs rs' m ibf t s pc @@ -325,9 +320,7 @@ Proof. exploit symbolic_simu_correct; repeat (eauto; simpl). intros (s' & STEP2 & MS). exists ib2; exists s'. repeat split; auto. - destruct STEP2 as (rs2 & m2 & fin & ISTEP2 & FSTEP2). - unfold iblock_step. exists rs2; exists m2; exists fin. - split; auto. + eapply iblock_step_eqregs; eauto. Admitted. Local Hint Constructors step: core. |