End EXT_SIMULATION_STAR_WF.
Section EXT_SIMULATION_STAR.
Variable measure: C1 -> nat.
Hypothesis ext_star_simulation:
forall (c1 : C1) (m1 : mem) (c1' : C1) (m1' : mem),
corestep Sem1 ge1 c1 m1 c1' m1' ->
forall (c2 : C2) (m2 : mem),
match_states c1 c1 m1 c2 m2 ->
exists c2' : C2,
exists m2' : mem,
match_states c1' c1' m1' c2' m2' /\
(corestep_plus Sem2 ge2 c2 m2 c2' m2' \/
corestep_star Sem2 ge2 c2 m2 c2' m2' /\ ltof C1 measure c1' c1).

Lemma ext_simulation_star:
Forward_simulation_ext.Forward_simulation_extends Sem1 Sem2 ge1 ge2 entry_points.