diff options
| -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 7b79d7882..a97b73da7 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 63daab227..283cff73f 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 df01b486c..9da5d44e0 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 |