changeset 19585 | 70a1ce3b23ae |
parent 19574 | 7c761751e998 |
child 19642 | ea7162f84677 |
--- a/src/Pure/axclass.ML Sun May 07 00:21:13 2006 +0200 +++ b/src/Pure/axclass.ML Sun May 07 00:22:05 2006 +0200 @@ -283,7 +283,7 @@ |> map_term_types (Term.map_atyps (fn TFree _ => Term.aT [] | U => U)) |> Logic.close_form; - val axiomss = prep_propp (ctxt, map (map (rpair ([], [])) o snd) raw_specs) + val axiomss = prep_propp (ctxt, map (map (rpair []) o snd) raw_specs) |> snd |> map (map (prep_axiom o fst)); val name_atts = Attrib.map_specs (prep_att thy) raw_specs |> map fst;