--- a/src/Pure/Isar/proof_context.ML Wed May 31 14:14:59 2000 +0200
+++ b/src/Pure/Isar/proof_context.ML Wed May 31 14:26:46 2000 +0200
@@ -814,13 +814,13 @@
fun get_thm (ctxt as Context {thy, thms, ...}) name =
(case Symtab.lookup (thms, name) of
- Some (Some [th]) => th
+ Some (Some [th]) => Thm.transfer thy th
| Some (Some _) => raise CONTEXT ("Single theorem expected: " ^ quote name, ctxt)
| _ => (PureThy.get_thm thy name handle THEORY (msg, _) => raise CONTEXT (msg, ctxt)));
fun get_thms (ctxt as Context {thy, thms, ...}) name =
(case Symtab.lookup (thms, name) of
- Some (Some ths) => ths
+ Some (Some ths) => map (Thm.transfer thy) ths
| _ => (PureThy.get_thms thy name handle THEORY (msg, _) => raise CONTEXT (msg, ctxt)));
fun get_thmss ctxt names = flat (map (get_thms ctxt) names);