src/HOL/Eisbach/eisbach_rule_insts.ML
changeset 61852 d273c24b5776
parent 60909 3db3f4154e18
child 61853 fb7756087101
equal deleted inserted replaced
61851:ccf2df82b2d3 61852:d273c24b5776
   243       (fn ((unchecked, args), context) =>
   243       (fn ((unchecked, args), context) =>
   244         let
   244         let
   245           val read_insts = read_of_insts (not unchecked) context args;
   245           val read_insts = read_of_insts (not unchecked) context args;
   246         in
   246         in
   247           Thm.rule_attribute (fn context => fn thm =>
   247           Thm.rule_attribute (fn context => fn thm =>
   248             if Method_Closure.is_free_thm thm andalso unchecked
   248             if Thm.is_free_dummy thm andalso unchecked
   249             then Method_Closure.dummy_free_thm
   249             then Drule.free_dummy_thm
   250             else read_instantiate_closed (Context.proof_of context) (read_insts thm) thm)
   250             else read_instantiate_closed (Context.proof_of context) (read_insts thm) thm)
   251         end))
   251         end))
   252       "positional instantiation of theorem");
   252       "positional instantiation of theorem");
   253 
   253 
   254 end;
   254 end;