- let rec inner_loc default = function
- | [] -> default
- | (_,(NotationEnv.NoType,NotationEnv.LocValue l))::_ -> l
- | _::tl -> inner_loc default tl
+ let rec get_disamb = function
+ | [] -> Stdpp.dummy_loc,None,None
+ | (_,(NotationEnv.NoType,NotationEnv.DisambiguationValue dv))::_ -> dv
+ | _::tl -> get_disamb tl