diff options
| author | Pierre-Marie Pédrot | 2014-05-21 20:45:10 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-05-21 22:02:11 +0200 |
| commit | cfd8ec82784a5c893b63f3c82736eb76fe487ad7 (patch) | |
| tree | 6023b404ea2bab422eebae013b564dccd97da57f /tactics/extratactics.ml4 | |
| parent | 3f6c0abc4d434d14d47681e4142ff7b927294f64 (diff) | |
Removing decompose record / sum from the tactic AST.
Diffstat (limited to 'tactics/extratactics.ml4')
| -rw-r--r-- | tactics/extratactics.ml4 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index f6483e2b3d..da1475d7b3 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -179,6 +179,17 @@ TACTIC EXTEND cut_rewrite END (**********************************************************************) +(* Decompose *) + +TACTIC EXTEND decompose_sum +| [ "decompose" "sum" constr(c) ] -> [ Elim.h_decompose_or c ] +END + +TACTIC EXTEND decompose_record +| [ "decompose" "record" constr(c) ] -> [ Elim.h_decompose_and c ] +END + +(**********************************************************************) (* Contradiction *) open Contradiction |