diff options
| author | Julien Forest | 2014-04-14 23:22:14 +0200 |
|---|---|---|
| committer | Julien Forest | 2014-04-14 23:22:14 +0200 |
| commit | 5fb2050e424062540ffbf22de0838fafe4de0a41 (patch) | |
| tree | 235a18a0481828d9af31c28df41e3492c5adb044 /printing/pptactic.ml | |
| parent | a51d94e77bd352522744da4dbdbf98b36c19631e (diff) | |
Closing bug #3260
adding a new grammar entry for clauses
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 520eac8abb..e74dd9fc15 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1034,6 +1034,12 @@ let () = Miscprint.pr_intro_pattern Miscprint.pr_intro_pattern Miscprint.pr_intro_pattern; + Genprint.register_print0 + Constrarg.wit_clause_dft_concl + (pr_clauses (Some true) (pr_or_metaid pr_lident)) + (pr_clauses (Some true) pr_lident) + (pr_clauses (Some true) (fun id -> pr_lident (Loc.ghost,id))) + ; Genprint.register_print0 Constrarg.wit_sort pr_glob_sort pr_glob_sort pr_sort; Genprint.register_print0 Stdarg.wit_int int int int; |