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 gpaco10_gpaco clo r rg:
gpaco10 clo (gpaco10 clo r rg) (gupaco10 clo (rg \10/ r)) <10= gpaco10 clo r rg.