src/Pure/Isar/proof.ML
changeset 8582 3051aa8aa412
parent 8561 2675e2f4dc61
child 8617 33e2bd53aec3
equal deleted inserted replaced
8581:5c7ed2af8bfb 8582:3051aa8aa412
   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))