diff options
| author | Gaëtan Gilbert | 2017-09-15 15:46:30 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2017-11-24 19:18:56 +0100 |
| commit | d437078a4ca82f7ca6d19be5ee9452359724f9a0 (patch) | |
| tree | 628fd2161dcc0fcfabe9499669ee932d7878b63d /vernac/command.ml | |
| parent | 485a0a6280abbef62f7e2c2bfbaf3b73d67bbdaf (diff) | |
Use Maps and ids for universe binders
Before sometimes there were lists and strings.
Diffstat (limited to 'vernac/command.ml')
| -rw-r--r-- | vernac/command.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/command.ml b/vernac/command.ml index 257c003b5a..5d83de0708 100644 --- a/vernac/command.ml +++ b/vernac/command.ml @@ -258,7 +258,7 @@ let do_assumptions_unbound_univs (_, poly, _ as kind) nl l = let l = List.map (on_pi2 nf_evar) l in pi2 (List.fold_left (fun (subst,status,ctx) ((is_coe,idl),t,imps) -> let t = replace_vars subst t in - let (refs,status') = declare_assumptions idl is_coe kind (t,ctx) [] imps false nl in + let (refs,status') = declare_assumptions idl is_coe kind (t,ctx) Universes.empty_binders imps false nl in let subst' = List.map2 (fun (_,id) (c,u) -> (id,Universes.constr_of_global_univ (c,u))) idl refs |