diff options
author | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-19 10:18:19 +0000 |
---|---|---|
committer | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-19 10:18:19 +0000 |
commit | 78332d5f65970ab1b4aaa5180fb03cbb046d1ad1 (patch) | |
tree | dbce3bbfeb80e229e1c12ade063fd7fed699ad6f /parsing | |
parent | 5623c36e6e1b22c1141831fc10d643988fc30f18 (diff) |
added products and sorts as possible heads for canonical structures
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10577 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
-rw-r--r-- | parsing/prettyp.ml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index 2eb22b177..b39cdedda 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -742,9 +742,15 @@ let print_path_between cls clt = in print_path ((i,j),p) +let pr_cs_pattern = function + Const_cs c -> pr_global c + | Prod_cs -> str "_ -> _" + | Default_cs -> str "_" + | Sort_cs s -> pr_sort_family s + let print_canonical_projections () = - prlist_with_sep pr_fnl (fun ((r1,r2),o) -> - (match r2 with Some sr2 -> pr_global sr2 | None -> str " _") ++ + prlist_with_sep pr_fnl + (fun ((r1,r2),o) -> pr_cs_pattern r2 ++ str " <- " ++ pr_global r1 ++ str " ( " ++ pr_lconstr o.o_DEF ++ str " )") (canonical_projections ()) |