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.
tuned;
authorwenzelm
Sun, 23 Nov 2008 18:37:56 +0100
changeset 28876 a87d27cc8498
parent 28875 c1c0e23ed063
child 28877 9ff624bd4fe1
tuned;
src/Pure/proofterm.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/proofterm.ML	Sun Nov 23 17:27:15 2008 +0100
+++ b/src/Pure/proofterm.ML	Sun Nov 23 18:37:56 2008 +0100
@@ -1242,9 +1242,9 @@
       map SOME (frees_of prop);
 
     val proof0 =
-      (if ! proofs = 2 then fold_rev implies_intr_proof hyps prf else MinProof)
-      |> rew_proof thy
-      |> (#4 o shrink_proof thy [] 0);
+      if ! proofs = 2 then
+        #4 (shrink_proof thy [] 0 (rew_proof thy (fold_rev implies_intr_proof hyps prf)))
+      else MinProof;
 
     fun new_prf () = (serial (), name, prop,
       Lazy.lazy (fn () => fulfill_proof thy (Lazy.force promises)
isabelle