Section Companion.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone7 gf.
Inductive cpn7 (r: rel) x0 x1 x2 x3 x4 x5 x6 : Prop :=
| cpn7_intro
clo
(COM: compatible7 gf clo)
(CLO: clo r x0 x1 x2 x3 x4 x5 x6)
.

Lemma cpn7_uclo uclo
(MON: monotone7 uclo)
(WCOM: forall r, uclo (gf r) <7= gf (gupaco7 gf (uclo \8/ cpn7) r)):
uclo <8= gupaco7 gf cpn7.