proposition: Lemma compat13_wcompat clo (CMP: compatible13 clo): wcompatible13 clo.
proof: Proof. econstructor. apply CMP. intros. apply CMP in PR. eapply gf_mon. apply PR. intros. apply gpaco13_clo, PR0. Qed.
imports: Program.Basics Paco(paco13 pacotac)