equal
deleted
inserted
replaced
1039 (* terminal proofs *) |
1039 (* terminal proofs *) |
1040 |
1040 |
1041 local |
1041 local |
1042 |
1042 |
1043 fun future_terminal_proof proof1 proof2 meths int state = |
1043 fun future_terminal_proof proof1 proof2 meths int state = |
1044 if int orelse is_relevant state orelse not (Future.enabled ()) |
1044 if int orelse is_relevant state orelse not (Future.enabled () andalso ! Goal.parallel_proofs) |
1045 then proof1 meths state |
1045 then proof1 meths state |
1046 else snd (state |> proof2 (fn state' => Future.fork_pri ~1 (fn () => ((), proof1 meths state')))); |
1046 else snd (state |> proof2 (fn state' => Future.fork_pri ~1 (fn () => ((), proof1 meths state')))); |
1047 |
1047 |
1048 in |
1048 in |
1049 |
1049 |