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/FOLP/classical.ML
changeset 61268 abe08fb15a12
parent 60754 02924903a6fd 
--- a/src/FOLP/classical.ML	Fri Sep 25 20:04:25 2015 +0200
+++ b/src/FOLP/classical.ML	Fri Sep 25 20:37:59 2015 +0200
@@ -124,10 +124,10 @@
 
 fun print_cs ctxt (CS{safeIs,safeEs,hazIs,hazEs,...}) =
   writeln (cat_lines
-   (["Introduction rules"] @ map (Display.string_of_thm ctxt) hazIs @
-    ["Safe introduction rules"] @ map (Display.string_of_thm ctxt) safeIs @
-    ["Elimination rules"] @ map (Display.string_of_thm ctxt) hazEs @
-    ["Safe elimination rules"] @ map (Display.string_of_thm ctxt) safeEs));
+   (["Introduction rules"] @ map (Thm.string_of_thm ctxt) hazIs @
+    ["Safe introduction rules"] @ map (Thm.string_of_thm ctxt) safeIs @
+    ["Elimination rules"] @ map (Thm.string_of_thm ctxt) hazEs @
+    ["Safe elimination rules"] @ map (Thm.string_of_thm ctxt) safeEs));
 
 fun (CS{safeIs,safeEs,hazIs,hazEs,...}) addSIs ths =
   make_cs {safeIs=ths@safeIs, safeEs=safeEs, hazIs=hazIs, hazEs=hazEs};
isabelle