changeset 73383 | 6b104dc069de |
parent 72584 | 4ea19e5dc67e |
child 75123 | 66eb6fdfc244 |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_isar_preplay.ML Fri Mar 05 13:48:23 2021 +0100 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_isar_preplay.ML Fri Mar 05 16:09:42 2021 +0100 @@ -57,7 +57,7 @@ else let val y = f timeout x in (case get_time y of - SOME time => next_timeout := time_min (time, !next_timeout) + SOME time => next_timeout := Time.min (time, !next_timeout) | _ => ()); SOME y end