Definition FSetDelta (s s':FSet) : FSet := MapDelta unit s s'.

(* Specifications: *)
Lemma in_FSet_delta : forall (s s':FSet) (a:ad), in_FSet a (FSetDelta s s') = xorb (in_FSet a s) (in_FSet a s').
Lemma FSet_Dom : forall s:FSet, MapDom unit s = s.