End EXTINJ.

(* Specifications: *)
Lemma coop_sim_trans_CaseExt: forall
(SimExt12 : Forward_simulation_extends Sem1 Sem2 g1 g2 epts12)
(SIM23 : coop_sim Sem2 Sem3 g2 g3 epts23),
coop_sim Sem1 Sem3 g1 g3 epts13.