src/Provers/blast.ML
changeset 42616 92715b528e78
parent 42477 52fa26b6c524
child 42793 88bee9f6eec7
equal deleted inserted replaced
42607:c8673078f915 42616:92715b528e78
  1267   handle PROVE => Seq.empty;
  1267   handle PROVE => Seq.empty;
  1268 
  1268 
  1269 (*Public version with fixed depth*)
  1269 (*Public version with fixed depth*)
  1270 fun depth_tac cs lim i st = timing_depth_tac (Timing.start ()) cs lim i st;
  1270 fun depth_tac cs lim i st = timing_depth_tac (Timing.start ()) cs lim i st;
  1271 
  1271 
  1272 val (depth_limit, setup_depth_limit) = Attrib.config_int_global "blast_depth_limit" (K 20);
  1272 val (depth_limit, setup_depth_limit) =
       
  1273   Attrib.config_int_global @{binding blast_depth_limit} (K 20);
  1273 
  1274 
  1274 fun blast_tac cs i st =
  1275 fun blast_tac cs i st =
  1275     ((DEEPEN (1, Config.get_global (Thm.theory_of_thm st) depth_limit)
  1276     ((DEEPEN (1, Config.get_global (Thm.theory_of_thm st) depth_limit)
  1276         (timing_depth_tac (Timing.start ()) cs) 0) i
  1277         (timing_depth_tac (Timing.start ()) cs) 0) i
  1277      THEN flexflex_tac) st
  1278      THEN flexflex_tac) st