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