Section Companion.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone14 gf.
Inductive cpn14 (r: rel) x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 : Prop :=
| cpn14_intro
clo
(COM: compatible14 gf clo)
(CLO: clo r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13)
.

Lemma cpn14_uclo uclo
(MON: monotone14 uclo)
(WCOM: forall r, uclo (gf r) <14= gf (gupaco14 gf (uclo \15/ cpn14) r)):
uclo <15= gupaco14 gf cpn14.