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.
(un)folded: support object-level rewrites;
authorwenzelm
Sat, 28 Jan 2006 17:28:55 +0100
changeset 18821 213b7341abb6
parent 18820 24dcd5b0e26b
child 18822 9dc194c479aa
(un)folded: support object-level rewrites;
src/Pure/Isar/attrib.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/attrib.ML	Sat Jan 28 17:28:54 2006 +0100
+++ b/src/Pure/Isar/attrib.ML	Sat Jan 28 17:28:55 2006 +0100
@@ -396,8 +396,8 @@
 
 (* unfold / fold definitions *)
 
-val unfolded = syntax (thmss >> (fn defs => Thm.rule_attribute (K (Tactic.rewrite_rule defs))));
-val folded = syntax (thmss >> (fn defs => Thm.rule_attribute (K (Tactic.fold_rule defs))));
+val unfolded = syntax (thmss >> (fn defs => Thm.rule_attribute (K (ObjectLogic.unfold defs))));
+val folded = syntax (thmss >> (fn defs => Thm.rule_attribute (K (ObjectLogic.fold defs))));
 
 
 (* rule cases *)
isabelle