Section Compatibility.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone11 gf.
Structure compatible11 (clo: rel -> rel) : Prop :=
compat11_intro {
compat11_mon: monotone11 clo;
compat11_compat : forall r,
clo (gf r) <11= gf (clo r);
}.
Structure wcompatible11 clo : Prop :=
wcompat11_intro {
wcompat11_mon: monotone11 clo;
wcompat11_wcompat : forall r,
clo (gf r) <11= gf (gupaco11 gf clo r);
}.

Lemma rclo11_wcompat clo
(COM: wcompatible11 clo):
wcompatible11 (rclo11 clo).