Mercurial Mercurial > repos > isabelle / 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.
src/HOL/Tools/record.ML
changeset 38401 c4de81b7fdec
parent 38252 175a5b4b2c94
child 38529 4cc2ca4d6237 
--- 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