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.
QuotMain.thy
changeset 523 1a4eb39ba834
parent 522 6b77cfd508e9
parent 521 fdfeef0399f7
child 524 c7c6ba5ac043
child 525 3f657c4fbefa 
--- a/QuotMain.thy	Fri Dec 04 12:20:49 2009 +0100
+++ b/QuotMain.thy	Fri Dec 04 12:21:15 2009 +0100
@@ -794,7 +794,7 @@
               val [R2, f, g, x, y] = map (cterm_of thy) [R2, f, g, x, y];
               val t_inst = [NONE, NONE, NONE, SOME R2, NONE, NONE, SOME f, SOME g, SOME x, SOME y];
               val thm = Drule.instantiate' ty_inst t_inst @{thm APPLY_RSP}
-              (*val _ = tracing (Syntax.string_of_term @{context} (prop_of thm))*)
+              val _ = tracing ("instantiated rule" ^ Syntax.string_of_term @{context} (prop_of thm))
             in
               rtac thm 1
             end
nominal2