Section Main.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone10 gf.
Variant gpaco10 clo r rg x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 : Prop :=
| gpaco10_intro (IN: @rclo10 clo (paco10 (compose gf (rclo10 clo)) (rg \10/ r) \10/ r) x0 x1 x2 x3 x4 x5 x6 x7 x8 x9)
.
Definition gupaco10 clo r := gpaco10 clo r r.
Hint Resolve gpaco10_def_mon : paco.

Lemma gupaco10_mon clo r r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9
(IN: @gupaco10 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9)
(LEr: r <10= r'):
@gupaco10 clo r' x0 x1 x2 x3 x4 x5 x6 x7 x8 x9.