Section Companion.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone6 gf.
Inductive cpn6 (r: rel) x0 x1 x2 x3 x4 x5 : Prop :=
| cpn6_intro
clo
(COM: compatible6 gf clo)
(CLO: clo r x0 x1 x2 x3 x4 x5)
.

Lemma cpn6_uclo uclo
(MON: monotone6 uclo)
(WCOM: forall r, uclo (gf r) <6= gf (gupaco6 gf (uclo \7/ cpn6) r)):
uclo <7= gupaco6 gf cpn6.