Section Companion.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone4 gf.
Inductive cpn4 (r: rel) x0 x1 x2 x3 : Prop :=
| cpn4_intro
clo
(COM: compatible4 gf clo)
(CLO: clo r x0 x1 x2 x3)
.

Lemma cpn4_uclo uclo
(MON: monotone4 uclo)
(WCOM: forall r, uclo (gf r) <4= gf (gupaco4 gf (uclo \5/ cpn4) r)):
uclo <5= gupaco4 gf cpn4.