Definition main_sig : signature := mksignature nil (Some AST.Tint).

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.