let project_ival m = try let k, v = find_lonely_key m in if not (Base.is_null k) then raise Not_based_on_null else v with Not_found -> raise Not_based_on_null