# HG changeset patch
# User wenzelm
# Date 1436866183 -7200
# Node ID a8babbb6d5eaf542a0500e95b12af4633d0f49da
# Parent  b6713e04889ea3256d21bb8ed78572670c6687ca
normalize proof before splitting conjunctions, according to Proof.conclude_goal (see also 4dd0ba632e40) -- may reduce general resource usage;

diff -r b6713e04889e -r a8babbb6d5ea src/Pure/goal.ML
--- a/src/Pure/goal.ML	Mon Jul 13 19:25:58 2015 +0200
+++ b/src/Pure/goal.ML	Tue Jul 14 11:29:43 2015 +0200
@@ -230,7 +230,9 @@
             result)
           (Thm.term_of stmt);
   in
-    Conjunction.elim_balanced (length props) res
+    res
+    |> length props > 1 ? Thm.norm_proof
+    |> Conjunction.elim_balanced (length props)
     |> map (Assumption.export false ctxt' ctxt)
     |> Variable.export ctxt' ctxt
     |> map Drule.zero_var_indexes