src/Pure/axclass.ML
changeset 30469 de9e8f1d927c
parent 30468 0cf8f536ef98
child 30519 c05c0199826f
     1.1 --- a/src/Pure/axclass.ML	Thu Mar 12 12:04:27 2009 +0100
     1.2 +++ b/src/Pure/axclass.ML	Thu Mar 12 13:18:42 2009 +0100
     1.3 @@ -370,7 +370,7 @@
     1.4      val T' = Type.strip_sorts T;
     1.5    in
     1.6      thy
     1.7 -    |> Sign.sticky_prefix name_inst
     1.8 +    |> Sign.mandatory_path name_inst
     1.9      |> Sign.declare_const [] ((Binding.name c', T'), NoSyn)
    1.10      |-> (fn const' as Const (c'', _) =>
    1.11        Thm.add_def false true
    1.12 @@ -480,7 +480,7 @@
    1.13      val class_triv = Thm.class_triv def_thy class;
    1.14      val ([(_, [intro]), (_, classrel), (_, axioms)], facts_thy) =
    1.15        def_thy
    1.16 -      |> Sign.sticky_prefix (Binding.name_of bconst)
    1.17 +      |> Sign.mandatory_path (Binding.name_of bconst)
    1.18        |> PureThy.note_thmss ""
    1.19          [((Binding.name introN, []), [([Drule.standard raw_intro], [])]),
    1.20           ((Binding.name superN, []), [(map Drule.standard raw_classrel, [])]),