Section BoolSpec.
Variable elt elt' elt'' : Type.
Implicit Types m : t elt.
Implicit Types x y z : key.
Implicit Types e : elt.
Hint Resolve add_neq_o : map.
Hint Resolve remove_eq_o : map.
Hint Resolve remove_neq_o : map.

Lemma map_o : forall m x (f:elt->elt'),
find x (map f m) = Datatypes.option_map f (find x m).