changeset 31174 | f1f1e9b53c81 |
parent 30761 | ac7570d80c3d |
child 31177 | c39994cb152a |
--- 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;