explicit re-init
authorhaftmann
Sat, 15 Mar 2008 08:11:17 +0100
changeset 26276 3386bb568550
parent 26275 014d93dc2199
child 26277 461e11226111
explicit re-init
src/Pure/Isar/subclass.ML
--- a/src/Pure/Isar/subclass.ML	Sat Mar 15 08:11:16 2008 +0100
+++ b/src/Pure/Isar/subclass.ML	Sat Mar 15 08:11:17 2008 +0100
@@ -37,7 +37,7 @@
       |> ObjectLogic.ensure_propT thy;
     fun after_qed thm =
       LocalTheory.theory (Class.prove_subclass (sub, sup) thm)
-      #> LocalTheory.reinit;
+      #> (TheoryTarget.init (SOME sub) o ProofContext.theory_of);
   in
     do_proof after_qed sublocale_prop lthy
   end;