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

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