Add tactic is_evar (Closes: #2433)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13663 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 13 insertions, 0 deletions

diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4
index f9c8e47fd..393934abf 100644
--- a/tactics/extratactics.ml4
+++ b/tactics/extratactics.ml4
@@ -705,3 +705,16 @@ END
 
 
 (* ********************************************************************* *)
+
+TACTIC EXTEND constr_eq
+| [ "constr_eq" constr(x) constr(y) ] -> [
+    if eq_constr x y then tclIDTAC else tclFAIL 0 (str "Not equal") ]
+END
+
+TACTIC EXTEND is_evar
+| [ "is_evar" constr(x) ] ->
+    [ match kind_of_term x with
+        | Evar _ -> tclIDTAC
+        | _ -> tclFAIL 0 (str "Not an evar")
+    ]
+END