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