diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-07 00:19:22 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-07 01:12:59 +0200 |
| commit | 07a9afbdf9561402897728963d40de80b9912bea (patch) | |
| tree | e30c0599ecccad324425d2c1ace2cde846cf5bf3 /grammar | |
| parent | fe3b935204b8e4889b969bfd2faaaaa679e8a3cf (diff) | |
Removing the "constructor" tactic from the AST.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/q_coqast.ml4 | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/grammar/q_coqast.ml4 b/grammar/q_coqast.ml4 index 1614301ec..32001e629 100644 --- a/grammar/q_coqast.ml4 +++ b/grammar/q_coqast.ml4 @@ -390,8 +390,6 @@ let rec mlexpr_of_atomic_tactic = function | Tacexpr.TacSplit (ev,l) -> <:expr< Tacexpr.TacSplit ($mlexpr_of_bool ev$, $mlexpr_of_list mlexpr_of_binding_kind l$)>> - | Tacexpr.TacAnyConstructor (ev,t) -> - <:expr< Tacexpr.TacAnyConstructor $mlexpr_of_bool ev$ $mlexpr_of_option mlexpr_of_tactic t$>> | Tacexpr.TacConstructor (ev,n,l) -> let n = mlexpr_of_or_var mlexpr_of_int n in <:expr< Tacexpr.TacConstructor $mlexpr_of_bool ev$ $n$ $mlexpr_of_binding_kind l$>> |