proposition: Lemma monotone4_map (gf: rel4 T0 T1 T2 T3 -> rel4 T0 T1 T2 T3) (MON: _monotone4 gf) : _monotone (fun R0 => @uncurry4 T0 T1 T2 T3 (gf (@curry4 T0 T1 T2 T3 R0))).
proof: Proof. red; intros. apply uncurry_map4. apply MON; apply curry_map4; assumption. Qed.
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)