diff options
| author | Maxime Dénès | 2017-11-06 22:52:20 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-11-06 22:52:20 +0100 |
| commit | 0d81e80a09db7d352408be4dfc5ba263f6ed98ef (patch) | |
| tree | 2754ab2c5b6fb039b02fbe096940b112039f4e50 /interp/declare.ml | |
| parent | e029cf5b417b22ebc65a8193469bbbe450f725ce (diff) | |
| parent | c71e69a9be2094061e041d60614b090c8381f0b7 (diff) | |
Merge PR #6064: [api] Deprecate all legacy uses of Name.Id in core.
Diffstat (limited to 'interp/declare.ml')
| -rw-r--r-- | interp/declare.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/declare.ml b/interp/declare.ml index 7fcb38296f..bd8f3db507 100644 --- a/interp/declare.ml +++ b/interp/declare.ml @@ -464,7 +464,7 @@ let cache_universes (p, l) = let glob = Global.global_universe_names () in let glob', ctx = List.fold_left (fun ((idl,lid),ctx) (id, lev) -> - ((Idmap.add id (p, lev) idl, + ((Id.Map.add id (p, lev) idl, Univ.LMap.add lev id lid), Univ.ContextSet.add_universe lev ctx)) (glob, Univ.ContextSet.empty) l @@ -525,7 +525,7 @@ let do_constraint poly l = (str "Cannot declare constraints on anonymous universes") | GType (Some (loc, Name id)) -> let names, _ = Global.global_universe_names () in - try loc, Idmap.find id names + try loc, Id.Map.find id names with Not_found -> user_err ?loc ~hdr:"Constraint" (str "Undeclared universe " ++ pr_id id) in |