Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
defs: allow conditions;
authorwenzelm
Fri, 18 Jul 1997 13:37:16 +0200
changeset 3530 d9ca80f0759c
parent 3529 31186470665f
child 3531 f6cc9112f4e9
defs: allow conditions;
src/Pure/drule.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/drule.ML	Fri Jul 18 13:36:43 1997 +0200
+++ b/src/Pure/drule.ML	Fri Jul 18 13:37:16 1997 +0200
@@ -119,7 +119,7 @@
   let
     fun err msg = raise_term msg [tm];
 
-    val (lhs, rhs) = Logic.dest_equals tm
+    val (lhs, rhs) = Logic.dest_equals (Logic.strip_imp_concl tm)
       handle TERM _ => err "Not a meta-equality (==)";
     val (head, args) = strip_comb lhs;
     val (c, ty) = dest_Const head
isabelle