Section cc_simT_trans.
End cc_simT_trans.

Lemma coop_correctnessT_implies_cc_simT:
forall ExternIdents entrypoints I F1 C1 V F2 C2
(Sem1: CoopCoreSem (Genv.t F1 V) C1)
(Sem2: CoopCoreSem (Genv.t F2 V) C2)
P1 P2 trans
(EPC:entrypoints_compose entrypoints entrypoints entrypoints)
(MAIN: In (P1.(prog_main), CompilerCorrectness.extern_func main_sig) ExternIdents),
CompilerCorrectness.coop_correctnessT I ExternIdents entrypoints
F1 C1 V F2 C2 Sem1 Sem2 P1 P2 trans ->
CompilerCorrectness.cc_simT I ExternIdents entrypoints F1 C1 V F2 C2 Sem1 Sem2 P1 P2 trans.