Section MapFacts.
Variables (K V : Type).
Context {map : Type}.
Context {M : Map K V map}.
Context {MOk: MapOk eq M}.
Context {Kdec: @RelDec K eq}.
Context {KdecOk: RelDec_Correct Kdec}.

(* Should move to extlib *)
Lemma lookup_add_eq: forall k v s, lookup k (add k v s) = Some v.