# HG changeset patch
# User Christian Urban <urbanc@in.tum.de>
# Date 1273673855 -3600
# Node ID 872187804ff57e74a8c0cfc7a975f801b44361c3
# Parent  287aa0d3d23af591b7b152d1bb853c79f5430121
better ML-interface (returning only a list of theorems and a context)

diff -r 287aa0d3d23a -r 872187804ff5 Nominal-General/nominal_eqvt.ML
--- a/Nominal-General/nominal_eqvt.ML	Wed May 12 16:09:38 2010 +0200
+++ b/Nominal-General/nominal_eqvt.ML	Wed May 12 15:17:35 2010 +0100
@@ -10,7 +10,7 @@
   val eqvt_rel_tac: Proof.context -> string list -> term -> thm -> thm list -> int -> tactic
   val eqvt_rel_single_case_tac: Proof.context -> string list -> term -> thm -> int -> tactic
   
-  val equivariance: term list -> thm -> thm list -> Proof.context -> (string * thm list) list * local_theory
+  val equivariance: term list -> thm -> thm list -> Proof.context -> thm list * local_theory
   val equivariance_cmd: string -> Proof.context -> local_theory
 end
 
@@ -142,8 +142,9 @@
   val thm_name = Binding.qualified_name 
     (Long_Name.qualify (Long_Name.base_name name) "eqvt")
   val attr = Attrib.internal (K eqvt_add)
+  val ((_, [thm']), ctxt') =  Local_Theory.note ((thm_name, [attr]), [thm]) ctxt
 in
-  Local_Theory.note ((thm_name, [attr]), [thm]) ctxt
+  (thm', ctxt')
 end
 
 fun equivariance pred_trms raw_induct intrs ctxt =