# HG changeset patch
# User wenzelm
# Date 1372320857 -7200
# Node ID a241826ed00328787867c8df225ace75b38bc1d1
# Parent  ef4c16887f8342ace8fca003437a9e578e92f408
actually use Data.sizef, not hardwired size_of_thm;

diff -r ef4c16887f83 -r a241826ed003 src/Provers/classical.ML
--- a/src/Provers/classical.ML	Thu Jun 27 10:08:41 2013 +0200
+++ b/src/Provers/classical.ML	Thu Jun 27 10:14:17 2013 +0200
@@ -802,13 +802,13 @@
 fun astar_tac ctxt =
   Object_Logic.atomize_prems_tac THEN'
   SELECT_GOAL
-    (ASTAR (has_fewer_prems 1, fn lev => fn thm => size_of_thm thm + weight_ASTAR * lev)
+    (ASTAR (has_fewer_prems 1, fn lev => fn thm => Data.sizef thm + weight_ASTAR * lev)
       (step_tac ctxt 1));
 
 fun slow_astar_tac ctxt =
   Object_Logic.atomize_prems_tac THEN'
   SELECT_GOAL
-    (ASTAR (has_fewer_prems 1, fn lev => fn thm => size_of_thm thm + weight_ASTAR * lev)
+    (ASTAR (has_fewer_prems 1, fn lev => fn thm => Data.sizef thm + weight_ASTAR * lev)
       (slow_step_tac ctxt 1));