src/Pure/axclass.ML
changeset 31943 5e960a0780a2
parent 31904 a86896359ca4
child 31944 c8a35979a5bc
     1.1 --- a/src/Pure/axclass.ML	Sat Jul 04 23:25:28 2009 +0200
     1.2 +++ b/src/Pure/axclass.ML	Mon Jul 06 19:58:52 2009 +0200
     1.3 @@ -470,9 +470,9 @@
     1.4  
     1.5      (* definition *)
     1.6  
     1.7 -    val conjs = map (curry Logic.mk_inclass (Term.aT [])) super @ flat axiomss;
     1.8 +    val conjs = map (curry Logic.mk_of_class (Term.aT [])) super @ flat axiomss;
     1.9      val class_eq =
    1.10 -      Logic.mk_equals (Logic.mk_inclass (Term.aT [], class), Logic.mk_conjunction_balanced conjs);
    1.11 +      Logic.mk_equals (Logic.mk_of_class (Term.aT [], class), Logic.mk_conjunction_balanced conjs);
    1.12  
    1.13      val ([def], def_thy) =
    1.14        thy
    1.15 @@ -605,7 +605,7 @@
    1.16      val ths =
    1.17        sort |> map (fn c =>
    1.18          Goal.finish (the (lookup_type cache' typ c) RS
    1.19 -          Goal.init (Thm.cterm_of thy (Logic.mk_inclass (typ, c))))
    1.20 +          Goal.init (Thm.cterm_of thy (Logic.mk_of_class (typ, c))))
    1.21          |> Thm.adjust_maxidx_thm ~1);
    1.22    in (ths, cache') end;
    1.23