proposition: Lemma monotone4_eq (gf: rel4 T0 T1 T2 T3 -> rel4 T0 T1 T2 T3) : monotone4 gf <-> _monotone4 gf.
proof: Proof. unfold monotone4, _monotone4, le4. split; intros; eapply H; eassumption. Qed.
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)