proposition: Lemma monotone5_map (gf: rel5 T0 T1 T2 T3 T4 -> rel5 T0 T1 T2 T3 T4) (MON: _monotone5 gf) : _monotone (fun R0 => @uncurry5 T0 T1 T2 T3 T4 (gf (@curry5 T0 T1 T2 T3 T4 R0))).
proof: Proof. red; intros. apply uncurry_map5. apply MON; apply curry_map5; assumption. Qed.
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)