Section Main.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone9 gf.
Variant gpaco9 clo r rg x0 x1 x2 x3 x4 x5 x6 x7 x8 : Prop :=
| gpaco9_intro (IN: @rclo9 clo (paco9 (compose gf (rclo9 clo)) (rg \9/ r) \9/ r) x0 x1 x2 x3 x4 x5 x6 x7 x8)
.
Definition gupaco9 clo r := gpaco9 clo r r.
Hint Resolve gpaco9_def_mon : paco.

Lemma gupaco9_mon clo r r' x0 x1 x2 x3 x4 x5 x6 x7 x8
(IN: @gupaco9 clo r x0 x1 x2 x3 x4 x5 x6 x7 x8)
(LEr: r <9= r'):
@gupaco9 clo r' x0 x1 x2 x3 x4 x5 x6 x7 x8.