Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
avoid variable name acc (cf. cs. 3142c1e21a0e)
authorhaftmann
Fri, 13 Aug 2010 12:15:25 +0200
changeset 38401 c4de81b7fdec
parent 38400 9bfcb1507c6b
child 38407 0dbbb511634d
avoid variable name acc (cf. cs. 3142c1e21a0e)
src/HOL/Tools/record.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/record.ML	Fri Aug 13 10:51:23 2010 +0200
+++ b/src/HOL/Tools/record.ML	Fri Aug 13 12:15:25 2010 +0200
@@ -1217,7 +1217,7 @@
 
 fun get_upd_acc_cong_thm upd acc thy simpset =
   let
-    val insts = [("upd", cterm_of thy upd), ("acc", cterm_of thy acc)];
+    val insts = [("upd", cterm_of thy upd), ("ac", cterm_of thy acc)];
     val prop = Thm.concl_of (named_cterm_instantiate insts updacc_cong_triv);
   in
     Goal.prove (ProofContext.init_global thy) [] [] prop
isabelle