From 27a7d7133f83cb95eff90df4338a47b0d6681aa0 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 7 Aug 2014 00:54:18 +0200
Subject: Instead of relying on a trick to make the constructor tactic parse,
 put all the tactics using the constructor keyword in one entry. This has the
 side-effect to also remove the other variant of constructor from the AST.

I also needed to hack around the "tauto" tactic to make it work, by
calling directly the ML tactic through a TacExtend node. This may be
generalized to get rid of the intermingled dependencies between this
tactic and the infamous Ltac quotation mechanism.
---
 printing/pptactic.ml | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'printing')

diff --git a/printing/pptactic.ml b/printing/pptactic.ml
index 24f374b179..cdcff9bb2c 100644
--- a/printing/pptactic.ml
+++ b/printing/pptactic.ml
@@ -778,10 +778,6 @@ and pr_atom1 = function
 
   (* Constructors *)
   | TacSplit (ev,l) -> hov 1 (str (with_evars ev "exists") ++ prlist_with_sep (fun () -> str",") pr_ex_bindings l)
-  | TacConstructor (ev,n,l) ->
-      hov 1 (str (with_evars ev "constructor") ++
-             pr_or_var pr_intarg n ++ pr_bindings l)
-
   (* Conversion *)
   | TacReduce (r,h) ->
       hov 1 (pr_red_expr r ++
-- 
cgit v1.2.3