diff options
| author | Pierre-Marie Pédrot | 2021-02-17 13:21:24 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-02-17 13:21:24 +0100 |
| commit | c55b5b8575f2f717d6d9c759996173e250dd1c75 (patch) | |
| tree | 70f352f5b214c09a3557f314c25814a638ebe267 /vernac | |
| parent | c6bc1cea49cb5a18142437325ecb6875514c22bb (diff) | |
| parent | 925794c34d08752cee85362d1c2772559e89d2c9 (diff) | |
Merge PR #13734: Fix #13732: Implicit Type vs universes
Reviewed-by: ppedrot
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 664c6b2f36..42ba63903d 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1438,7 +1438,10 @@ let vernac_reserve bl = let env = Global.env() in let sigma = Evd.from_env env in let t,ctx = Constrintern.interp_type env sigma c in - let t = Detyping.detype Detyping.Now false Id.Set.empty env (Evd.from_ctx ctx) t in + let t = Flags.without_option Detyping.print_universes (fun () -> + Detyping.detype Detyping.Now false Id.Set.empty env (Evd.from_ctx ctx) t) + () + in let t,_ = Notation_ops.notation_constr_of_glob_constr (default_env ()) t in Reserve.declare_reserved_type idl t) in List.iter sb_decl bl |