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 /tactics | |
| parent | c004e8ff6e71d716c0cfd850c55007c2d3cddf25 (diff) | |
Removing symmetry from the atomic tactics.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/coretactics.ml4 | 5 | ||||
| -rw-r--r-- | tactics/tacenv.ml | 1 |
2 files changed, 5 insertions, 1 deletions
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 |