diff options
| author | Pierre-Marie Pédrot | 2014-05-20 20:46:11 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-06-02 12:59:13 +0200 |
| commit | 1f0976cbed9f1ee23b082bd5dc5da126e8b47a75 (patch) | |
| tree | c0e610209a0e164a6b32fe78376fa6d85bb0efa4 | |
| parent | c004e8ff6e71d716c0cfd850c55007c2d3cddf25 (diff) | |
Removing symmetry from the atomic tactics.
| -rw-r--r-- | parsing/g_tactic.ml4 | 2 | ||||
| -rw-r--r-- | tactics/coretactics.ml4 | 5 | ||||
| -rw-r--r-- | tactics/tacenv.ml | 1 |
3 files changed, 6 insertions, 2 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 7b79d7882c..a97b73da78 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -639,7 +639,7 @@ GEXTEND Gram | IDENT "econstructor"; t = OPT tactic -> TacAnyConstructor (true,t) (* Equivalence relations *) - | IDENT "symmetry"; cl = clause_dft_concl -> TacSymmetry cl + | IDENT "symmetry"; "in"; cl = in_clause -> TacSymmetry cl (* Equality and inversion *) | IDENT "rewrite"; l = LIST1 oriented_rewriter SEP ","; diff --git a/tactics/coretactics.ml4 b/tactics/coretactics.ml4 index 63daab2275..283cff73f8 100644 --- a/tactics/coretactics.ml4 +++ b/tactics/coretactics.ml4 @@ -10,6 +10,7 @@ open Util open Names +open Locus open Tacexpr open Misctypes open Tacinterp @@ -113,3 +114,7 @@ TACTIC EXTEND specialize Tacticals.New.tclWITHHOLES false specialize sigma c ] END + +TACTIC EXTEND symmetry + [ "symmetry" ] -> [ Tactics.intros_symmetry {onhyps=Some[];concl_occs=AllOccurrences} ] +END diff --git a/tactics/tacenv.ml b/tactics/tacenv.ml index df01b486c2..9da5d44e06 100644 --- a/tactics/tacenv.ml +++ b/tactics/tacenv.ml @@ -84,7 +84,6 @@ let initial_atomic = "esplit", TacSplit(true,false,[NoBindings]); "constructor", TacAnyConstructor (false,None); "econstructor", TacAnyConstructor (true,None); - "symmetry", TacSymmetry nocl ] in let fold accu (s, t) = Id.Map.add (Id.of_string s) t accu in |