src/Pure/Isar/proof.ML
changeset 53189 ee8b8dafef0e
parent 52732 b4da1f2ec73f
child 53192 04df1d236e1c
equal deleted inserted replaced
53188:bb5433b13ff2 53189:ee8b8dafef0e
  1162 (* terminal proofs *)  (* FIXME avoid toplevel imitation -- include in PIDE/document *)
  1162 (* terminal proofs *)  (* FIXME avoid toplevel imitation -- include in PIDE/document *)
  1163 
  1163 
  1164 local
  1164 local
  1165 
  1165 
  1166 fun future_terminal_proof proof1 proof2 done int state =
  1166 fun future_terminal_proof proof1 proof2 done int state =
  1167   if Goal.future_enabled_level 3 andalso not (is_relevant state) then
  1167   if Goal.future_enabled 3 andalso not (is_relevant state) then
  1168     state |> future_proof (fn state' =>
  1168     state |> future_proof (fn state' =>
  1169       let
  1169       let
  1170         val pos = Position.thread_data ();
  1170         val pos = Position.thread_data ();
  1171         val props = Markup.command_timing :: (Markup.nameN, "by") :: Position.properties_of pos;
  1171         val props = Markup.command_timing :: (Markup.nameN, "by") :: Position.properties_of pos;
  1172       in
  1172       in