src/Pure/Isar/class.ML
changeset 38757 2b3e054ae6fc
parent 38756 d07959fabde6
child 39133 70d3915c92f0
     1.1 --- a/src/Pure/Isar/class.ML	Thu Aug 26 13:09:12 2010 +0200
     1.2 +++ b/src/Pure/Isar/class.ML	Thu Aug 26 15:48:08 2010 +0200
     1.3 @@ -482,7 +482,7 @@
     1.4  
     1.5  val type_name = sanitize_name o Long_Name.base_name;
     1.6  
     1.7 -fun define_overloaded (c, U) v (b_def, rhs) = Local_Theory.theory_result
     1.8 +fun define_overloaded (c, U) v (b_def, rhs) = Local_Theory.background_theory_result
     1.9      (AxClass.declare_overloaded (c, U) ##>> AxClass.define_overloaded b_def (c, rhs))
    1.10    ##> (map_instantiation o apsnd) (filter_out (fn (_, (v', _)) => v' = v))
    1.11    ##> Local_Theory.target synchronize_inst_syntax;
    1.12 @@ -572,7 +572,7 @@
    1.13      val (tycos, vs, sort) = (#arities o the_instantiation) lthy;
    1.14      val arities_proof = maps (fn tyco => Logic.mk_arities (tyco, map snd vs, sort)) tycos;
    1.15      fun after_qed' results =
    1.16 -      Local_Theory.theory (fold (AxClass.add_arity o Thm.varifyT_global) results)
    1.17 +      Local_Theory.background_theory (fold (AxClass.add_arity o Thm.varifyT_global) results)
    1.18        #> after_qed;
    1.19    in
    1.20      lthy