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_l :
forall s s' s'':FSet,
eqmap unit (FSetInter (FSetUnion s s') s'')
(FSetUnion (FSetInter s s'') (FSetInter s' s'')).