# HG changeset patch
# User haftmann
# Date 1281694525 -7200
# Node ID c4de81b7fdecf8d5164a283229c061c5604dc422
# Parent  9bfcb1507c6b02d0f798842cf2174fa1eab9d839
avoid variable name acc (cf. cs. 3142c1e21a0e)

diff -r 9bfcb1507c6b -r c4de81b7fdec src/HOL/Tools/record.ML
--- 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