src/Provers/classical.ML
changeset 52462 a241826ed003
parent 51798 ad3a241def73
child 52699 abed4121c17e
--- 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));