Section MapAxioms.
Variables A B C : Type.
Definition eqmap (m m':Map A) := eqm A (MapGet A m) (MapGet A m').
End MapAxioms.

Lemma FSetInter_Union_r :
forall s s' s'':FSet,
eqmap unit (FSetInter s (FSetUnion s' s''))
(FSetUnion (FSetInter s s') (FSetInter s s'')).