proposition: Lemma monotone8_map (gf: rel8 T0 T1 T2 T3 T4 T5 T6 T7 -> rel8 T0 T1 T2 T3 T4 T5 T6 T7) (MON: _monotone8 gf) : _monotone (fun R0 => @uncurry8 T0 T1 T2 T3 T4 T5 T6 T7 (gf (@curry8 T0 T1 T2 T3 T4 T5 T6 T7 R0))).
proof: Proof. red; intros. apply uncurry_map8. apply MON; apply curry_map8; assumption. Qed.
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)