Section Companion.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone10 gf.
Inductive cpn10 (r: rel) x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 : Prop :=
| cpn10_intro
clo
(COM: compatible10 gf clo)
(CLO: clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9)
.

Lemma cpn10_uclo uclo
(MON: monotone10 uclo)
(WCOM: forall r, uclo (gf r) <10= gf (gupaco10 gf (uclo \11/ cpn10) r)):
uclo <11= gupaco10 gf cpn10.