equal
deleted
inserted
replaced
327 if ! verbose orelse mode = Forward then ProofContext.pretty_context context |
327 if ! verbose orelse mode = Forward then ProofContext.pretty_context context |
328 else if mode = Backward then ProofContext.pretty_prems context |
328 else if mode = Backward then ProofContext.pretty_prems context |
329 else []; |
329 else []; |
330 |
330 |
331 val prts = |
331 val prts = |
332 [Pretty.str ("proof(" ^ mode_name mode ^ "): step " ^ string_of_int nr ^ |
332 [Pretty.str ("proof (" ^ mode_name mode ^ "): step " ^ string_of_int nr ^ |
333 (if ! verbose then ", depth " ^ string_of_int (length nodes div 2) |
333 (if ! verbose then ", depth " ^ string_of_int (length nodes div 2) |
334 else "")), Pretty.str ""] @ |
334 else "")), Pretty.str ""] @ |
335 (if null ctxt_prts then [] else ctxt_prts @ [Pretty.str ""]) @ |
335 (if null ctxt_prts then [] else ctxt_prts @ [Pretty.str ""]) @ |
336 (if ! verbose orelse mode = Forward then |
336 (if ! verbose orelse mode = Forward then |
337 (pretty_facts "" facts @ pretty_goal (find_goal 0 state)) |
337 (pretty_facts "" facts @ pretty_goal (find_goal 0 state)) |