proposition: Lemma monotone14_map (gf: rel14 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 -> rel14 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13) (MON: _monotone14 gf) : _monotone (fun R0 => @uncurry14 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 (gf (@curry14 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 R0))).
proof: Proof. red; intros. apply uncurry_map14. apply MON; apply curry_map14; assumption. Qed.
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)