Module Forward_simulation_trans.
Section Coop_sim_trans.
Context {F1 V1 C1 F2 V2 C2 F3 V3 C3:Type}
(Sem1 : CoopCoreSem (Genv.t F1 V1) C1)
(Sem2 : CoopCoreSem (Genv.t F2 V2) C2)
(Sem3 : CoopCoreSem (Genv.t F3 V3) C3)
(g1 : Genv.t F1 V1)
(g2 : Genv.t F2 V2)
(g3 : Genv.t F3 V3)
epts12 epts23 epts13
(EPC : entrypoints_compose epts12 epts23 epts13).
Section CaseEQ.
Section EQEQ.

Lemma eqeq: forall
(SimEq12 : Forward_simulation_equals Sem1 Sem2 g1 g2 epts12)
(SimEq23 : Forward_simulation_equals Sem2 Sem3 g2 g3 epts23),
Forward_simulation_equals Sem1 Sem3 g1 g3 epts13.