actually use Data.sizef, not hardwired size_of_thm;
authorwenzelm
Thu Jun 27 10:14:17 2013 +0200 (2013-06-27)
changeset 52462a241826ed003
parent 52461 ef4c16887f83
child 52463 c45a6939217f
actually use Data.sizef, not hardwired size_of_thm;
src/Provers/classical.ML
     1.1 --- a/src/Provers/classical.ML	Thu Jun 27 10:08:41 2013 +0200
     1.2 +++ b/src/Provers/classical.ML	Thu Jun 27 10:14:17 2013 +0200
     1.3 @@ -802,13 +802,13 @@
     1.4  fun astar_tac ctxt =
     1.5    Object_Logic.atomize_prems_tac THEN'
     1.6    SELECT_GOAL
     1.7 -    (ASTAR (has_fewer_prems 1, fn lev => fn thm => size_of_thm thm + weight_ASTAR * lev)
     1.8 +    (ASTAR (has_fewer_prems 1, fn lev => fn thm => Data.sizef thm + weight_ASTAR * lev)
     1.9        (step_tac ctxt 1));
    1.10  
    1.11  fun slow_astar_tac ctxt =
    1.12    Object_Logic.atomize_prems_tac THEN'
    1.13    SELECT_GOAL
    1.14 -    (ASTAR (has_fewer_prems 1, fn lev => fn thm => size_of_thm thm + weight_ASTAR * lev)
    1.15 +    (ASTAR (has_fewer_prems 1, fn lev => fn thm => Data.sizef thm + weight_ASTAR * lev)
    1.16        (slow_step_tac ctxt 1));
    1.17  
    1.18