{Set,Map}.find
Also replace all the function raising `Not_found` by their `_opt` version.
Set.S
Map.S
S.SET
S.MAP