# HG changeset patch
# User Cezary Kaliszyk <kaliszyk@in.tum.de>
# Date 1273673884 -7200
# Node ID af11e9fbc45af5eb229638978fd8207d1a3d7749
# Parent  7c97467957675a9c4aef50f5d4a50b84adebce56# Parent  872187804ff57e74a8c0cfc7a975f801b44361c3
merge

diff -r 7c9746795767 -r af11e9fbc45a Nominal-General/nominal_eqvt.ML
--- a/Nominal-General/nominal_eqvt.ML	Wed May 12 16:11:23 2010 +0200
+++ b/Nominal-General/nominal_eqvt.ML	Wed May 12 16:18:04 2010 +0200
@@ -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 =