sig
  val find : Extlib.ExtMap.Map.S.key -> 'a Extlib.ExtMap.Map.S.t -> 'a option
end