proposition: Lemma gupaco4_mon clo r r' x0 x1 x2 x3 (IN: @gupaco4 clo r x0 x1 x2 x3) (LEr: r <4= r'): @gupaco4 clo r' x0 x1 x2 x3.
proof: Proof. eapply gpaco4_mon. apply IN. apply LEr. apply LEr. Qed.
imports: Program.Basics Paco(paco4 pacotac)