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 rclo14_dist clo
(MON: monotone14 clo)
(DIST: forall r1 r2, clo (r1 \14/ r2) <14= (clo r1 \14/ clo r2)):
forall r1 r2, rclo14 clo (r1 \14/ r2) <14= (rclo14 clo r1 \14/ rclo14 clo r2).