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.
major_prem_of: Logic.strip_assums_concl;
authorwenzelm
Thu, 04 Oct 2001 23:27:01 +0200
changeset 11692 6d15ae4b1123
parent 11691 fc9bd420162c
child 11693 63b0b2ec5830
major_prem_of: Logic.strip_assums_concl;
src/Pure/thm.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/thm.ML	Thu Oct 04 16:09:12 2001 +0200
+++ b/src/Pure/thm.ML	Thu Oct 04 23:27:01 2001 +0200
@@ -358,7 +358,7 @@
 
 fun major_prem_of thm =
   (case prems_of thm of
-    prem :: _ => prem
+    prem :: _ => Logic.strip_assums_concl prem
   | [] => raise THM ("major_prem_of: rule with no premises", 0, [thm]));
 
 fun no_prems thm = nprems_of thm = 0;
isabelle