diff options
| author | Hugo Herbelin | 2016-04-16 20:03:29 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 21:55:48 +0200 |
| commit | 36fb3d3a53418a81675815e47b3810e11bc31e4c (patch) | |
| tree | 22963b0f18839c0504b53e3d82bfcc6f45a31b76 | |
| parent | 9df1a3cf26d78df507d0e35c2d9ca987151777be (diff) | |
Fixing Add Parametric Relation by adding printer for binders.
| -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 395c2cd1b6..0978360a6f 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 |