equal
deleted
inserted
replaced
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 |