Section Main.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone8 gf.
Variant gpaco8 clo r rg x0 x1 x2 x3 x4 x5 x6 x7 : Prop :=
| gpaco8_intro (IN: @rclo8 clo (paco8 (compose gf (rclo8 clo)) (rg \8/ r) \8/ r) x0 x1 x2 x3 x4 x5 x6 x7)
.
Definition gupaco8 clo r := gpaco8 clo r r.
Hint Resolve gpaco8_def_mon : paco.

Lemma gpaco8_mon clo r r' rg rg' x0 x1 x2 x3 x4 x5 x6 x7
(IN: @gpaco8 clo r rg x0 x1 x2 x3 x4 x5 x6 x7)
(LEr: r <8= r')
(LErg: rg <8= rg'):
@gpaco8 clo r' rg' x0 x1 x2 x3 x4 x5 x6 x7.