diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 6 | ||||
| -rw-r--r-- | interp/notation.ml | 2 |
2 files changed, 3 insertions, 5 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 4ab85e0e6c..363f43fd75 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -358,11 +358,9 @@ let locate_if_isevar loc na = function | x -> x let reset_hidden_inductive_implicit_test env = - { env with impls = Id.Map.fold (fun id x -> - let x = match x with + { env with impls = Id.Map.map (function | (Inductive _,b,c,d) -> (Inductive [],b,c,d) - | x -> x - in Id.Map.add id x) env.impls Id.Map.empty } + | x -> x) env.impls } let check_hidden_implicit_parameters id impls = if Id.Map.exists (fun _ -> function diff --git a/interp/notation.ml b/interp/notation.ml index a5a6138f6e..624fa23aa0 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -771,7 +771,7 @@ let pr_notation_info prglob ntn c = let pr_named_scope prglob scope sc = (if String.equal scope default_scope then - match String.Map.fold (fun _ _ x -> x+1) sc.notations 0 with + match String.Map.cardinal sc.notations with | 0 -> str "No lonely notation" | n -> str "Lonely notation" ++ (if Int.equal n 1 then mt() else str"s") else |