From 818422ad1ff602d692f712733517e26db013bfa8 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 29ffbed196..7a20975158 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