From 36fb3d3a53418a81675815e47b3810e11bc31e4c Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 16 Apr 2016 20:03:29 +0200
Subject: Fixing Add Parametric Relation by adding printer for binders.

---
 ltac/g_rewrite.ml4 | 5 +++++
 1 file changed, 5 insertions(+)

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
-- 
cgit v1.2.3