diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-16 20:03:29 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-06-16 17:43:28 +0200 |
| commit | 818422ad1ff602d692f712733517e26db013bfa8 (patch) | |
| tree | c89893e732e44f7b33004a21e6efe56fb20c3cfe /ltac | |
| parent | 007baa025031b1decf87b811358b3c2154ee5da4 (diff) | |
Fixing Add Parametric Relation by adding printer for binders.
Diffstat (limited to 'ltac')
| -rw-r--r-- | ltac/g_rewrite.ml4 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ltac/g_rewrite.ml4 b/ltac/g_rewrite.ml4 index 29ffbed19..7a2097515 100644 --- a/ltac/g_rewrite.ml4 +++ b/ltac/g_rewrite.ml4 @@ -187,6 +187,11 @@ let wit_binders = let binders = Pcoq.create_generic_entry Pcoq.utactic "binders" (Genarg.rawwit wit_binders) +let () = + let raw_printer _ _ _ l = Pp.pr_non_empty_arg Ppconstr.pr_binders l in + let printer _ _ _ _ = Pp.str "<Unavailable printer for binders>" in + Pptactic.declare_extra_genarg_pprule wit_binders raw_printer printer printer + open Pcoq GEXTEND Gram |