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