Section Companion.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone2 gf.
Inductive cpn2 (r: rel) x0 x1 : Prop :=
| cpn2_intro
clo
(COM: compatible2 gf clo)
(CLO: clo r x0 x1)
.

Lemma cpn2_uclo uclo
(MON: monotone2 uclo)
(WCOM: forall r, uclo (gf r) <2= gf (gupaco2 gf (uclo \3/ cpn2) r)):
uclo <3= gupaco2 gf cpn2.