proposition: Lemma rclo8_wcompat clo (COM: wcompatible8 clo): wcompatible8 (rclo8 clo).
proof: Proof. econstructor. - apply rclo8_mon. - intros. induction PR. + eapply gf_mon. apply IN. intros. apply gpaco8_base. apply PR. + eapply gf_mon. * eapply COM. eapply COM. apply IN. apply H. * intros. eapply gpaco8_gupaco. apply gf_mon. eapply gupaco8_mon_gen; intros; [apply PR|apply gf_mon|apply PR0| |apply PR0]. apply rclo8_clo_base, PR0. Qed.
imports: Program.Basics Paco(paco8 pacotac)