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