diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-25 22:34:15 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-25 22:34:15 +0000 |
| commit | 6e34881bf892602f297797481880ffa1d7db139d (patch) | |
| tree | 6ba89e642dd33be462f37720b57234ebc9828670 /interp/constrintern.ml | |
| parent | f4a6a6aaa928e7a6c8d360c45268cb82c020c2dc (diff) | |
Actually using the domain function for maps.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16736 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 4ab85e0e6..363f43fd7 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 |