author | smolkas |
Thu, 14 Feb 2013 23:54:46 +0100 | |
changeset 51132 | f8dc1c94ef8b |
parent 51131 | 7de262be1e95 |
child 51133 | fb16c4276620 |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_proof.ML Thu Feb 14 22:49:22 2013 +0100 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_proof.ML Thu Feb 14 23:54:46 2013 +0100 @@ -60,7 +60,7 @@ | Prove (_, _, _, Case_Split (cases, _)) => Integer.add (fold (Integer.add o metis_steps_total) cases 1) | Prove (_, _, _, Subblock subproof) => - Integer.add (metis_steps_total subproof) + Integer.add (metis_steps_total subproof + 1) | _ => I) proof 0 end