changeset 21359 | 072e83a0b5bb |
parent 21094 | 7e18c11e6267 |
child 21444 | 8f71e2b3fd92 |
--- a/src/Pure/Tools/class_package.ML Tue Nov 14 15:29:50 2006 +0100 +++ b/src/Pure/Tools/class_package.ML Tue Nov 14 15:29:52 2006 +0100 @@ -208,8 +208,8 @@ in thy |> ProofContext.init - |> Proof.theorem_i PureThy.internalK NONE after_qed' NONE ("", []) - ((map (fn t => (("", []), [(t, [])])) o maps (mk_prop thy)) insts) + |> Proof.theorem_i PureThy.internalK NONE after_qed' + ((map (fn t => [(t, [])]) o maps (mk_prop thy)) insts) end; in