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