End EQ_SIMULATION_STAR_WF.
Section EQ_SIMULATION_STAR.
Variable measure: C1 -> nat.
Hypothesis eq_star_simulation:
forall c1 m c1' m', corestep Sem1 ge1 c1 m c1' m'  ->
forall c2, match_cores c1 c1 c2 ->
(exists c2', corestep_plus Sem2 ge2 c2 m c2' m' /\ match_cores c1' c1' c2')
\/ (measure c1' < measure c1 /\ m=m' /\ match_cores c1' c1' c2)%nat.

(* Specifications: *)
Lemma eq_simulation_star:
@Forward_simulation_eq.Forward_simulation_equals _ _ _ _ _ _ _ Sem1 Sem2 ge1 ge2 entry_points.