Section Companion.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone3 gf.
Inductive cpn3 (r: rel) x0 x1 x2 : Prop :=
| cpn3_intro
clo
(COM: compatible3 gf clo)
(CLO: clo r x0 x1 x2)
.

Lemma cpn3_uclo uclo
(MON: monotone3 uclo)
(WCOM: forall r, uclo (gf r) <3= gf (gupaco3 gf (uclo \4/ cpn3) r)):
uclo <4= gupaco3 gf cpn3.