diff options
| -rw-r--r-- | doc/refman/RefMan-tac.tex | 6 | ||||
| -rw-r--r-- | tactics/eqdecide.ml4 | 1 | ||||
| -rw-r--r-- | test-suite/success/eqdecide.v | 7 |
3 files changed, 1 insertions, 13 deletions
diff --git a/doc/refman/RefMan-tac.tex b/doc/refman/RefMan-tac.tex index 977f68352..4e76fa67e 100644 --- a/doc/refman/RefMan-tac.tex +++ b/doc/refman/RefMan-tac.tex @@ -2593,12 +2593,6 @@ This tactic solves a goal of the form is an inductive type such that its constructors do not take proofs or functions as arguments, nor objects in dependent types. -\begin{Variants} -\item {\tt decide equality {\term}$_1$ {\term}$_2$ }.\\ - Solves a goal of the form {\tt \{}\term$_1${\tt =}\term$_2${\tt -\}+\{\verb|~|}\term$_1${\tt =}\term$_2${\tt \}}. -\end{Variants} - \subsection{\tt compare \term$_1$ \term$_2$ \tacindex{compare}} diff --git a/tactics/eqdecide.ml4 b/tactics/eqdecide.ml4 index 1bc9f1f7c..932e88fea 100644 --- a/tactics/eqdecide.ml4 +++ b/tactics/eqdecide.ml4 @@ -181,7 +181,6 @@ let compare c1 c2 g = (* User syntax *) TACTIC EXTEND decide_equality - [ "decide" "equality" constr(c1) constr(c2) ] -> [ decideEquality c1 c2 ] | [ "decide" "equality" ] -> [ decideEqualityGoal ] END diff --git a/test-suite/success/eqdecide.v b/test-suite/success/eqdecide.v index 5f2d0f395..8c00583ed 100644 --- a/test-suite/success/eqdecide.v +++ b/test-suite/success/eqdecide.v @@ -16,12 +16,7 @@ Qed. Lemma lem2 : forall x y : T, {x = y} + {x <> y}. intros x y. - decide equality x y. -Qed. - -Lemma lem3 : forall x y : T, {x = y} + {x <> y}. -intros x y. - decide equality y x. + decide equality. Qed. Lemma lem4 : forall x y : T, {x = y} + {x <> y}. |