diff options
| author | Pierre-Marie Pédrot | 2014-05-21 17:08:04 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-05-21 17:38:48 +0200 |
| commit | 741747c4ecb2be5f51bf5e0395f9fcb28329e86b (patch) | |
| tree | 1c9595161bca3a6f2bf5f2503bb03b33b31c49f5 /grammar | |
| parent | bf18afeefa06e972c6cb98fa8a81ec7172fdde7f (diff) | |
Moving left & right tactics out of the AST.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/q_coqast.ml4 | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/grammar/q_coqast.ml4 b/grammar/q_coqast.ml4 index e152cdd7f4..a52fdeb62c 100644 --- a/grammar/q_coqast.ml4 +++ b/grammar/q_coqast.ml4 @@ -385,10 +385,6 @@ let rec mlexpr_of_atomic_tactic = function $mlexpr_of_move_location mlexpr_of_hyp id2$ >> (* Constructors *) - | Tacexpr.TacLeft (ev,l) -> - <:expr< Tacexpr.TacLeft $mlexpr_of_bool ev$ $mlexpr_of_binding_kind l$>> - | Tacexpr.TacRight (ev,l) -> - <:expr< Tacexpr.TacRight $mlexpr_of_bool ev$ $mlexpr_of_binding_kind l$>> | Tacexpr.TacSplit (ev,b,l) -> <:expr< Tacexpr.TacSplit ($mlexpr_of_bool ev$,$mlexpr_of_bool b$,$mlexpr_of_list mlexpr_of_binding_kind l$)>> |