diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-06 15:21:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-06 15:32:36 +0200 |
| commit | 3b83b311798f0d06444e1994602e0b531e207ef5 (patch) | |
| tree | 8d41bca774ee92bfa2c9866cc54ef4d7acd5a20c /tactics/tacintern.ml | |
| parent | ce85edee592fef31575e138af2945ce8be74cd07 (diff) | |
Moving the [split] tactic out of the AST.
Diffstat (limited to 'tactics/tacintern.ml')
| -rw-r--r-- | tactics/tacintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacintern.ml b/tactics/tacintern.ml index 4d711af9a..35952c9dd 100644 --- a/tactics/tacintern.ml +++ b/tactics/tacintern.ml @@ -520,7 +520,7 @@ let rec intern_atomic lf ist x = | TacRevert l -> TacRevert (List.map (intern_hyp_or_metaid ist) l) (* Constructors *) - | TacSplit (ev,b,bll) -> TacSplit (ev,b,List.map (intern_bindings ist) bll) + | TacSplit (ev,bll) -> TacSplit (ev,List.map (intern_bindings ist) bll) | TacAnyConstructor (ev,t) -> TacAnyConstructor (ev,Option.map (intern_pure_tactic ist) t) | TacConstructor (ev,n,bl) -> TacConstructor (ev,intern_or_var ist n,intern_bindings ist bl) |