proposition: Lemma cpn1_compat: compatible1 gf cpn1.
proof: Proof. econstructor; [apply cpn1_mon|intros]. destruct PR; eapply gf_mon with (r:=clo r). - eapply (compat1_compat COM); apply CLO. - intros. econstructor; [apply COM|apply PR]. Qed.
imports: Program.Basics Paco(paco1 pacotac)