proposition: Lemma compat11_compatible' clo (COM: compatible11 gf clo): compatible'11 clo.
proof: Proof. destruct COM. econstructor; [apply compat11_mon0|]. intros. split. - eapply compat11_mon0; intros; [apply PR| apply PR0]. - apply compat11_compat0. eapply compat11_mon0; intros; [apply PR| apply PR0]. Qed.
imports: Program.Basics Paco(paco11 pacotac)