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