equal
deleted
inserted
replaced
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; |