diff options
| author | soubiran | 2008-06-06 16:03:45 +0000 |
|---|---|---|
| committer | soubiran | 2008-06-06 16:03:45 +0000 |
| commit | 86b28df4c6029d43a0f12ab7c2d85cc13f4f60f1 (patch) | |
| tree | 1b1a907b423b3b400eac8bd29718521525fb4f00 /dev | |
| parent | 35689ba23648cdae2b6aef5df0902af349bbf17a (diff) | |
ajout d'un printer pour les contraintes d'univers + correction d'un bug sur les notations dans les alias de module.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11063 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/db | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 2 |
2 files changed, 3 insertions, 0 deletions
@@ -21,6 +21,7 @@ install_printer Top_printers.pprawconstr install_printer Top_printers.ppconstr install_printer Top_printers.ppuni install_printer Top_printers.ppuniverses +install_printer Top_printers.ppconstraints install_printer Top_printers.pptype install_printer Top_printers.ppj install_printer Top_printers.ppenv diff --git a/dev/top_printers.ml b/dev/top_printers.ml index a63c6c2dd6..afae141b99 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -120,6 +120,8 @@ let ppuni u = pp(pr_uni u) let ppuniverses u = pp (str"[" ++ pr_universes u ++ str"]") +let ppconstraints c = pp (pr_constraints c) + let ppenv e = pp (str "[" ++ pr_named_context_of e ++ str "]" ++ spc() ++ str "[" ++ pr_rel_context e (rel_context e) ++ str "]") |