# HG changeset patch
# User wenzelm
# Date 1160353204 -7200
# Node ID 0e129a1df18008f6a50092d167985344f7112bff
# Parent  7132ab2b4621a35323b3475d11e59add8e703f3a
added exit;

diff -r 7132ab2b4621 -r 0e129a1df180 src/Pure/Isar/local_theory.ML
--- a/src/Pure/Isar/local_theory.ML	Mon Oct 09 02:20:02 2006 +0200
+++ b/src/Pure/Isar/local_theory.ML	Mon Oct 09 02:20:04 2006 +0200
@@ -11,8 +11,6 @@
 sig
   type operations
   val target_of: local_theory -> Proof.context
-  val init: string option -> operations -> Proof.context -> local_theory
-  val reinit: local_theory -> local_theory
   val theory: (theory -> theory) -> local_theory -> local_theory
   val theory_result: (theory -> 'a * theory) -> local_theory -> 'a * local_theory
   val target: (Proof.context -> Proof.context) -> local_theory -> local_theory
@@ -34,6 +32,9 @@
     local_theory -> (bstring * thm list) * Proof.context
   val const_syntax: Syntax.mode -> (string * mixfix) list -> local_theory -> local_theory
   val abbrevs: Syntax.mode -> ((bstring * mixfix) * term) list -> local_theory -> local_theory
+  val init: string option -> operations -> Proof.context -> local_theory
+  val reinit: local_theory -> local_theory
+  val exit: local_theory -> Proof.context
 end;
 
 structure LocalTheory: LOCAL_THEORY =
@@ -54,7 +55,8 @@
   notes: ((bstring * Attrib.src list) * (thm list * Attrib.src list) list) list -> local_theory ->
     (bstring * thm list) list * local_theory,
   term_syntax: (Context.generic -> Context.generic) -> local_theory -> local_theory,
-  declaration: (Context.generic -> Context.generic) -> local_theory -> local_theory};
+  declaration: (Context.generic -> Context.generic) -> local_theory -> local_theory,
+  exit: local_theory -> local_theory};
 
 datatype lthy = LThy of
  {theory_prefix: string option,
@@ -91,17 +93,6 @@
   (theory_prefix, operations, f target));
 
 
-(* init *)
-
-fun init theory_prefix operations target = target |> Data.map
-  (fn NONE => SOME (make_lthy (theory_prefix, operations, target))
-    | SOME _ => error "Local theory already initialized");
-
-fun reinit lthy =
-  let val {theory_prefix, operations, target} = get_lthy lthy
-  in init theory_prefix operations target end;
-
-
 (* substructure mappings *)
 
 fun theory_result f lthy =
@@ -162,4 +153,17 @@
 fun abbrevs mode args =
   term_syntax (Context.mapping (Sign.add_abbrevs mode args) (ProofContext.add_abbrevs mode args));
 
+
+(* init -- exit *)
+
+fun init theory_prefix operations target = target |> Data.map
+  (fn NONE => SOME (make_lthy (theory_prefix, operations, target))
+    | SOME _ => error "Local theory already initialized");
+
+fun reinit lthy =
+  let val {theory_prefix, operations, target} = get_lthy lthy
+  in init theory_prefix operations target end;
+
+fun exit lthy = lthy |> operation #exit |> target_of;
+
 end;