no_vars: reset body mode, i.e. invent global frees (which are acceptable to Variable.auto_fixes);
authorwenzelm
Thu Apr 17 22:22:27 2008 +0200 (2008-04-17)
changeset 2671500ff79ab6e6b
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
     1.1 --- a/src/Pure/Isar/attrib.ML	Thu Apr 17 22:22:26 2008 +0200
     1.2 +++ b/src/Pure/Isar/attrib.ML	Thu Apr 17 22:22:27 2008 +0200
     1.3 @@ -263,8 +263,10 @@
     1.4  
     1.5  val standard = no_args (Thm.rule_attribute (K Drule.standard));
     1.6  
     1.7 -val no_vars = no_args (Thm.rule_attribute (fn ctxt => fn th =>
     1.8 -  let val ((_, [th']), _) = Variable.import_thms true [th] (Context.proof_of ctxt)
     1.9 +val no_vars = no_args (Thm.rule_attribute (fn context => fn th =>
    1.10 +  let
    1.11 +    val ctxt = Variable.set_body false (Context.proof_of context);
    1.12 +    val ((_, [th']), _) = Variable.import_thms true [th] ctxt;
    1.13    in th' end));
    1.14  
    1.15  val eta_long =