diff options
| author | Pierre-Marie Pédrot | 2014-08-07 00:54:18 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-08-07 01:23:02 +0200 |
| commit | 27a7d7133f83cb95eff90df4338a47b0d6681aa0 (patch) | |
| tree | f13ae6f466e68fcc8355e51c93799932615e1768 /printing | |
| parent | 07a9afbdf9561402897728963d40de80b9912bea (diff) | |
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.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 4 |
1 files changed, 0 insertions, 4 deletions
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 ++ |