proposition: Lemma monotone6_map (gf: rel6 T0 T1 T2 T3 T4 T5 -> rel6 T0 T1 T2 T3 T4 T5) (MON: _monotone6 gf) : _monotone (fun R0 => @uncurry6 T0 T1 T2 T3 T4 T5 (gf (@curry6 T0 T1 T2 T3 T4 T5 R0))).
proof: Proof. red; intros. apply uncurry_map6. apply MON; apply curry_map6; assumption. Qed.
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)