src/Pure/Isar/attrib.ML
changeset 46903 3d44892ac0d6
parent 46775 6287653e63ec
child 46906 3c1787d46935
     1.1 --- a/src/Pure/Isar/attrib.ML	Tue Mar 13 14:44:27 2012 +0100
     1.2 +++ b/src/Pure/Isar/attrib.ML	Tue Mar 13 16:22:18 2012 +0100
     1.3 @@ -399,8 +399,10 @@
     1.4    setup (Binding.name "rotated") (Scan.lift rotated) "rotated theorem premises" #>
     1.5    setup (Binding.name "defn") (add_del Local_Defs.defn_add Local_Defs.defn_del)
     1.6      "declaration of definitional transformations" #>
     1.7 -  setup (Binding.name "abs_def") (Scan.succeed (Thm.rule_attribute (K Drule.abs_def)))
     1.8 -    "abstract over free variables of a definition"));
     1.9 +  setup (Binding.name "abs_def")
    1.10 +    (Scan.succeed (Thm.rule_attribute (fn context =>
    1.11 +      Local_Defs.meta_rewrite_rule (Context.proof_of context) #> Drule.abs_def)))
    1.12 +    "abstract over free variables of definitionial theorem"));
    1.13  
    1.14  
    1.15