src/Pure/Isar/context_rules.ML
changeset 17314 04e21a27c0ad
parent 16512 1fa048f2a590
child 17351 f7f2f56fcc28
     1.1 --- a/src/Pure/Isar/context_rules.ML	Thu Sep 08 16:08:50 2005 +0200
     1.2 +++ b/src/Pure/Isar/context_rules.ML	Thu Sep 08 16:09:23 2005 +0200
     1.3 @@ -111,7 +111,7 @@
     1.4  fun print_rules prt x (Rules {rules, ...}) =
     1.5    let
     1.6      fun prt_kind (i, b) =
     1.7 -      Pretty.big_list (the (assoc (kind_names, (i, b))) ^ ":")
     1.8 +      Pretty.big_list ((the o AList.lookup (op =) kind_names) (i, b) ^ ":")
     1.9          (List.mapPartial (fn (_, (k, th)) => if k = (i, b) then SOME (prt x th) else NONE)
    1.10            (sort (int_ord o pairself fst) rules));
    1.11    in Pretty.writeln (Pretty.chunks (map prt_kind rule_kinds)) end;