src/Pure/Isar/proof.ML
changeset 29435 a5f84ac14609
parent 29416 438c39fc93c8
child 29448 34b9652b2f45
equal deleted inserted replaced
29434:3f49ae779bdd 29435:a5f84ac14609
  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