# HG changeset patch
# User wenzelm
# Date 1150741292 -7200
# Node ID feb4d150cfd89050c0b1cd87c49f08b98bb6f707
# Parent  3f93418318126eaa7e7a9905992dc89feec3db24
added declare_thm, thm_context;
added trade(T);

diff -r 3f9341831812 -r feb4d150cfd8 src/Pure/variable.ML
--- a/src/Pure/variable.ML	Mon Jun 19 20:21:30 2006 +0200
+++ b/src/Pure/variable.ML	Mon Jun 19 20:21:32 2006 +0200
@@ -24,6 +24,8 @@
   val declare_type: typ -> Context.proof -> Context.proof
   val declare_syntax: term -> Context.proof -> Context.proof
   val declare_term: term -> Context.proof -> Context.proof
+  val declare_thm: thm -> Context.proof -> Context.proof
+  val thm_context: thm -> Context.proof
   val rename_wrt: Context.proof -> term list -> (string * 'a) list -> (string * 'a) list
   val add_fixes: string list -> Context.proof -> string list * Context.proof
   val invent_fixes: string list -> Context.proof -> string list * Context.proof
@@ -41,6 +43,8 @@
   val import_terms: bool -> term list -> Context.proof -> term list * Context.proof
   val importT: thm list -> Context.proof -> thm list * Context.proof
   val import: bool -> thm list -> Context.proof -> thm list * Context.proof
+  val tradeT: Context.proof -> (thm list -> thm list) -> thm list -> thm list
+  val trade: Context.proof -> (thm list -> thm list) -> thm list -> thm list
   val warn_extra_tfrees: Context.proof -> Context.proof -> unit
   val monomorphic: Context.proof -> term list -> term list
   val polymorphic: Context.proof -> term list -> term list
@@ -181,6 +185,9 @@
       used,
       ins_occs t occ));
 
+fun declare_thm th = fold declare_term (Thm.full_prop_of th :: Thm.hyps_of th);
+fun thm_context th = Context.init_proof (Thm.theory_of_thm th) |> declare_thm th;
+
 end;
 
 
@@ -263,9 +270,10 @@
 
 fun gen_export inst inner outer ths =
   let
-    val maxidx = fold Thm.maxidx_thm ths ~1;
-    val inner' = fold (declare_occs o Thm.full_prop_of) ths inner;
-  in map (Thm.generalize (inst inner' outer) (maxidx + 1)) ths end;
+    val ths' = map Thm.adjust_maxidx_thm ths;
+    val maxidx = fold Thm.maxidx_thm ths' ~1;
+    val inner' = fold (declare_occs o Thm.full_prop_of) ths' inner;
+  in map (Thm.generalize (inst inner' outer) (maxidx + 1)) ths' end;
 
 val exportT = gen_export (rpair [] oo exportT_inst);
 val export = gen_export export_inst;
@@ -318,6 +326,16 @@
   in (ths', ctxt') end;
 
 
+(* import/export *)
+
+fun gen_trade imp exp ctxt f ths =
+  let val (ths', ctxt') = imp ths ctxt
+  in exp ctxt' ctxt (f ths') end;
+
+val tradeT = gen_trade importT exportT;
+val trade = gen_trade (import true) export;
+
+
 
 (** implicit polymorphism **)