--- a/src/Pure/Isar/instance.ML Fri Nov 30 20:13:07 2007 +0100
+++ b/src/Pure/Isar/instance.ML Fri Nov 30 20:13:08 2007 +0100
@@ -61,9 +61,9 @@
|> `(fn ctxt => map (mk_def ctxt) defs)
|-> (fn defs => fold_map Specification.definition defs)
|-> (fn defs => `(fn ctxt => export_defs ctxt defs))
- ||> LocalTheory.exit
- ||> ProofContext.theory_of
- ||> TheoryTarget.instantiation arities
+ ||> LocalTheory.reinit
+ (*||> ProofContext.theory_of
+ ||> TheoryTarget.instantiation arities*)
|-> (fn defs => do_proof defs)
else
thy