Section Main.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone7 gf.
Variant gpaco7 clo r rg x0 x1 x2 x3 x4 x5 x6 : Prop :=
| gpaco7_intro (IN: @rclo7 clo (paco7 (compose gf (rclo7 clo)) (rg \7/ r) \7/ r) x0 x1 x2 x3 x4 x5 x6)
.
Definition gupaco7 clo r := gpaco7 clo r r.
Hint Resolve gpaco7_def_mon : paco.

Lemma gpaco7_mon clo r r' rg rg' x0 x1 x2 x3 x4 x5 x6
(IN: @gpaco7 clo r rg x0 x1 x2 x3 x4 x5 x6)
(LEr: r <7= r')
(LErg: rg <7= rg'):
@gpaco7 clo r' rg' x0 x1 x2 x3 x4 x5 x6.