Section Companion.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone5 gf.
Inductive cpn5 (r: rel) x0 x1 x2 x3 x4 : Prop :=
| cpn5_intro
clo
(COM: compatible5 gf clo)
(CLO: clo r x0 x1 x2 x3 x4)
.

Lemma cpn5_uclo uclo
(MON: monotone5 uclo)
(WCOM: forall r, uclo (gf r) <5= gf (gupaco5 gf (uclo \6/ cpn5) r)):
uclo <6= gupaco5 gf cpn5.