diff options
author | 2015-01-17 20:17:17 +0530 | |
---|---|---|
committer | 2015-01-17 20:17:17 +0530 | |
commit | 3bcca0aecb368a723d247d1f8b2348790bc87035 (patch) | |
tree | 81dbfb0613e67109887e9121e3d984bf752aa4ab /tactics | |
parent | 014878c3a05365d4af7e3edcfc8d612c45fdf1f3 (diff) |
Univs: proper printing of global and local universe names (only
printing functions touched in the kernel).
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/inv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index 5becb1ed3..5502356fb 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -478,7 +478,7 @@ let wrap_inv_error id = function (e, info) -> match e with Proofview.tclENV >>= fun env -> tclZEROMSG ( (strbrk "Inversion would require case analysis on sort " ++ - pr_sort k ++ + pr_sort Evd.empty k ++ strbrk " which is not allowed for inductive definition " ++ pr_inductive env (fst i) ++ str ".")) | e -> Proofview.tclZERO ~info e |