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.
no_vars: reset body mode, i.e. invent global frees (which are acceptable to Variable.auto_fixes);
authorwenzelm
Thu, 17 Apr 2008 22:22:27 +0200
changeset 26715 00ff79ab6e6b
parent 26714 4773b832f1b1
child 26716 8690e75e1395
no_vars: reset body mode, i.e. invent global frees (which are acceptable to Variable.auto_fixes);
src/Pure/Isar/attrib.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/attrib.ML	Thu Apr 17 22:22:26 2008 +0200
+++ b/src/Pure/Isar/attrib.ML	Thu Apr 17 22:22:27 2008 +0200
@@ -263,8 +263,10 @@
 
 val standard = no_args (Thm.rule_attribute (K Drule.standard));
 
-val no_vars = no_args (Thm.rule_attribute (fn ctxt => fn th =>
-  let val ((_, [th']), _) = Variable.import_thms true [th] (Context.proof_of ctxt)
+val no_vars = no_args (Thm.rule_attribute (fn context => fn th =>
+  let
+    val ctxt = Variable.set_body false (Context.proof_of context);
+    val ((_, [th']), _) = Variable.import_thms true [th] ctxt;
   in th' end));
 
 val eta_long =
isabelle