src/Pure/Isar/rule_insts.ML
changeset 33368 b1cf34f1855c
parent 33317 b4534348b8fd
child 36950 75b8f26f2f07
equal deleted inserted replaced
33367:2912bf1871ba 33368:b1cf34f1855c
   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 _ [] = []