Section Compatibility.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone14 gf.
Structure compatible14 (clo: rel -> rel) : Prop :=
compat14_intro {
compat14_mon: monotone14 clo;
compat14_compat : forall r,
clo (gf r) <14= gf (clo r);
}.
Structure wcompatible14 clo : Prop :=
wcompat14_intro {
wcompat14_mon: monotone14 clo;
wcompat14_wcompat : forall r,
clo (gf r) <14= gf (gupaco14 gf clo r);
}.

Lemma wcompat14_compat clo
(WCMP: wcompatible14 clo) :
compatible14 (gupaco14 gf clo).