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.
Removed Logic.strip_flexpairs.
authorberghofe
Mon, 21 Oct 2002 17:11:06 +0200
changeset 13662 1f8ddc4b371e
parent 13661 ec97dfc2bfe0
child 13663 8c09e1fa24a7
Removed Logic.strip_flexpairs.
src/Pure/proofterm.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/proofterm.ML	Mon Oct 21 17:09:31 2002 +0200
+++ b/src/Pure/proofterm.ML	Mon Oct 21 17:11:06 2002 +0200
@@ -626,7 +626,7 @@
       | lift' _ _ _ = raise SAME
     and lifth' Us Ts prf = (lift' Us Ts prf handle SAME => prf);
 
-    val ps = map lift_all (Logic.strip_imp_prems (snd (Logic.strip_flexpairs prop)));
+    val ps = map lift_all (Logic.strip_imp_prems prop);
     val k = length ps;
 
     fun mk_app (b, (i, j, prf)) =
isabelle