Section Distributivity.
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone1 gf.

Lemma gpaco1_dist clo r rg
(CMP: wcompatible1 gf clo)
(DIST: forall r1 r2, clo (r1 \1/ r2) <1= (clo r1 \1/ clo r2)):
gpaco1 gf clo r rg <1= (paco1 gf (rclo1 clo (rg \1/ r)) \1/ rclo1 clo r).