src/Pure/Isar/rule_insts.ML
changeset 30763 6976521b4263
parent 30722 623d4831c8cf
child 31945 d5f186aa0bed
equal deleted inserted replaced
30762:cabf9ff3a129 30763:6976521b4263
   281           (*the same name are renamed during printing*)
   281           (*the same name are renamed during printing*)
   282 
   282 
   283         val (param_names, ctxt') = ctxt
   283         val (param_names, ctxt') = ctxt
   284           |> Variable.declare_thm thm
   284           |> Variable.declare_thm thm
   285           |> Thm.fold_terms Variable.declare_constraints st
   285           |> Thm.fold_terms Variable.declare_constraints st
   286           |> ProofContext.add_fixes_i (map (fn (x, T) => (Binding.name x, SOME T, NoSyn)) params);
   286           |> ProofContext.add_fixes (map (fn (x, T) => (Binding.name x, SOME T, NoSyn)) params);
   287 
   287 
   288         (* Process type insts: Tinsts_env *)
   288         (* Process type insts: Tinsts_env *)
   289         fun absent xi = error
   289         fun absent xi = error
   290               ("No such variable in theorem: " ^ Term.string_of_vname xi);
   290               ("No such variable in theorem: " ^ Term.string_of_vname xi);
   291         val (rtypes, rsorts) = Drule.types_sorts thm;
   291         val (rtypes, rsorts) = Drule.types_sorts thm;