src/Pure/Isar/attrib.ML

--- a/src/Pure/Isar/attrib.ML	Sat May 16 15:24:35 2009 +0200
+++ b/src/Pure/Isar/attrib.ML	Sat May 16 20:17:59 2009 +0200
@@ -123,7 +123,7 @@
 
 fun attribute thy = attribute_i thy o intern_src thy;
 
-fun eval_thms ctxt args = ProofContext.note_thmss Thm.theoremK
+fun eval_thms ctxt args = ProofContext.note_thmss Thm.generated_theoremK
     [(Thm.empty_binding, args |> map (fn (a, atts) =>
         (ProofContext.get_fact ctxt a, map (attribute (ProofContext.theory_of ctxt)) atts)))] ctxt
   |> fst |> maps snd;