Section Companion.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone0 gf.
Inductive cpn0 (r: rel) : Prop :=
| cpn0_intro
clo
(COM: compatible0 gf clo)
(CLO: clo r)
.

Lemma cpn0_uclo uclo
(MON: monotone0 uclo)
(WCOM: forall r, uclo (gf r) <0= gf (gupaco0 gf (uclo \1/ cpn0) r)):
uclo <1= gupaco0 gf cpn0.