Mercurial Mercurial > hg > nominal2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Nominal-General/nominal_eqvt.ML
changeset 2110 872187804ff5
parent 2107 5686d83db1f9
child 2117 b3a5bda07007 
--- 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 =
nominal2