src/Pure/Isar/proof.ML
changeset 8561 2675e2f4dc61
parent 8542 ac37ba498152
child 8582 3051aa8aa412
     1.1 --- a/src/Pure/Isar/proof.ML	Thu Mar 23 11:28:10 2000 +0100
     1.2 +++ b/src/Pure/Isar/proof.ML	Thu Mar 23 21:36:43 2000 +0100
     1.3 @@ -329,8 +329,9 @@
     1.4        else [];
     1.5  
     1.6      val prts =
     1.7 -     [Pretty.str ("Proof(" ^ mode_name mode ^ "): step " ^ string_of_int nr ^
     1.8 -        ", depth " ^ string_of_int (length nodes div 2)), Pretty.str ""] @
     1.9 +     [Pretty.str ("proof(" ^ mode_name mode ^ "): step " ^ string_of_int nr ^
    1.10 +        (if ! verbose then ", depth " ^ string_of_int (length nodes div 2)
    1.11 +        else "")), Pretty.str ""] @
    1.12       (if null ctxt_prts then [] else ctxt_prts @ [Pretty.str ""]) @
    1.13       (if ! verbose orelse mode = Forward then
    1.14         (pretty_facts "" facts @ pretty_goal (find_goal 0 state))