src/Pure/Isar/term_style.ML
changeset 16165 dbe9ee8ffcdd
parent 16160 833f4160130e
child 16167 b2e4c4058b71
     1.1 --- a/src/Pure/Isar/term_style.ML	Wed Jun 01 09:46:06 2005 +0200
     1.2 +++ b/src/Pure/Isar/term_style.ML	Wed Jun 01 10:30:07 2005 +0200
     1.3 @@ -59,7 +59,7 @@
     1.4  
     1.5  fun premise i _ t =
     1.6    let val prems = Logic.strip_imp_prems t
     1.7 -  in if i <= length prems then List.nth(prems,i-1)
     1.8 +  in if i <= length prems then List.nth(prems, i-1)
     1.9       else error ("Not enough premises: premise" ^ string_of_int i)
    1.10    end;
    1.11   
    1.12 @@ -75,6 +75,6 @@
    1.13    add_style "premise7" (premise 7),
    1.14    add_style "premise8" (premise 8),
    1.15    add_style "premise9" (premise 9),
    1.16 -  add_style "conclusion" (K Logic.strip_imp_concl)];
    1.17 +  add_style "concl" (K Logic.strip_imp_concl)];
    1.18  
    1.19  end;