proposition: Lemma monotone3_map (gf: rel3 T0 T1 T2 -> rel3 T0 T1 T2) (MON: _monotone3 gf) : _monotone (fun R0 => @uncurry3 T0 T1 T2 (gf (@curry3 T0 T1 T2 R0))).
proof: Proof. red; intros. apply uncurry_map3. apply MON; apply curry_map3; assumption. Qed.
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)