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_union clo1 clo2
(WCMP1: wcompatible14 clo1)
(WCMP2: wcompatible14 clo2):
wcompatible14 (clo1 \15/ clo2).