diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-10 13:01:47 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-10 13:01:47 +0000 |
| commit | 7306ee7c3027983da38dde0ae7aa85c46bc943f6 (patch) | |
| tree | c4527fd3102182f9f7b583ad1f93dd6d09876e7e /dev/top_printers.ml | |
| parent | 7af1bbb5e411607c20d62e371c22e687baa1d7dd (diff) | |
ajout d'un afficher de contexte et d'une fonction constbody_of_string
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1739 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index e2a91022f..48b12aa2e 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -80,6 +80,8 @@ 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 cnt = ref 0 let constr_display csr = |