proposition: Lemma cpn12_cpn r: cpn12 (cpn12 r) <12= cpn12 r.
proof: Proof. intros. apply cpn12_gupaco, gpaco12_gupaco, gpaco12_clo. apply gf_mon. eapply cpn12_mon, gpaco12_clo. apply PR. Qed.
imports: Program.Basics Paco(paco12 pacotac)