equal
deleted
inserted
replaced
175 if is_tvar xi then |
175 if is_tvar xi then |
176 T.assign (SOME (T.Typ (the (AList.lookup (op =) type_insts xi)))) arg |
176 T.assign (SOME (T.Typ (the (AList.lookup (op =) type_insts xi)))) arg |
177 else |
177 else |
178 T.assign (SOME (T.Term (the (AList.lookup (op =) term_insts xi)))) arg); |
178 T.assign (SOME (T.Term (the (AList.lookup (op =) term_insts xi)))) arg); |
179 in |
179 in |
180 Drule.instantiate insts thm |> RuleCases.save thm |
180 Drule.instantiate insts thm |> Rule_Cases.save thm |
181 end; |
181 end; |
182 |
182 |
183 fun read_instantiate_mixed' ctxt (args, concl_args) thm = |
183 fun read_instantiate_mixed' ctxt (args, concl_args) thm = |
184 let |
184 let |
185 fun zip_vars _ [] = [] |
185 fun zip_vars _ [] = [] |