diff options
| author | herbelin | 2004-03-15 15:00:15 +0000 |
|---|---|---|
| committer | herbelin | 2004-03-15 15:00:15 +0000 |
| commit | a591fca8ff59aadda14b595468dea640b6224ffb (patch) | |
| tree | 82f2791da0981b7ab3202f7b3eb693d6e25b9039 | |
| parent | 2196380d8295a577c603f8c09df8e3e7c5b12ebf (diff) | |
Ajout affichage contexte local
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5494 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index cf73540e5f..fa92245239 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -98,7 +98,9 @@ let print_uni u = (pp (pr_uni u)) let pp_universes u = pp (str"[" ++ pr_universes u ++ str"]") -let ppenv e = pp (pr_rel_context e (rel_context e)) +let ppenv e = pp + (str "[" ++ pr_named_context_of e ++ str "]" ++ spc() ++ + str "[" ++ pr_rel_context e (rel_context e) ++ str "]") let pptac = (fun x -> pp(Pptactic.pr_glob_tactic x)) |