diff options
| author | herbelin | 2001-11-19 08:40:40 +0000 |
|---|---|---|
| committer | herbelin | 2001-11-19 08:40:40 +0000 |
| commit | 7d8a167b36d1f27cc38f3b042eb6f2c01a8b6177 (patch) | |
| tree | d3432765a2944e4f4ab6bfa50b653acebcd2beec /pretyping | |
| parent | 058e824e819b3610d0a4c0c53ded094b4b347b9f (diff) | |
Re-installation de l'affichage des globaux par des noms courts
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2200 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/detyping.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 405e2e16bf..714b7f6821 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -31,9 +31,9 @@ let encode_inductive ref = let indsp = match ref with | IndRef indsp -> indsp | _ -> - let id = basename (Nametab.sp_of_global (Global.env()) ref) in errorlabstrm "indsp_of_id" - [< pr_id id; 'sTR" is not an inductive type" >] in + [< pr_global_env (Global.env()) ref; + 'sTR" is not an inductive type" >] in let (mib,mip) = Global.lookup_inductive indsp in let constr_lengths = Array.map List.length mip.mind_listrec in (indsp,constr_lengths) @@ -83,7 +83,7 @@ module PrintingCasesIf = let field = "If" let title = "Types leading to pretty-printing of Cases using a `if' form: " let member_message ref b = - let s = string_of_id (basename (sp_of_global (Global.env()) ref)) in + let s = string_of_qualid(shortest_qualid_of_global (Global.env()) ref) in if b then "Cases on elements of " ^ s ^ " are printed using a `if' form" else @@ -98,7 +98,7 @@ module PrintingCasesLet = let title = "Types leading to a pretty-printing of Cases using a `let' form:" let member_message ref b = - let s = string_of_id (basename (sp_of_global (Global.env()) ref)) in + let s = string_of_qualid(shortest_qualid_of_global (Global.env()) ref) in if b then "Cases on elements of " ^ s ^ " are printed using a `let' form" else |