changeset 74411 | 20b0b27bc6c7 |
parent 74282 | c2ee8d993d6a |
child 79134 | 5f0bbed1c606 |
--- a/src/Pure/Proof/proof_checker.ML Sat Oct 02 12:45:51 2021 +0200 +++ b/src/Pure/Proof/proof_checker.ML Sat Oct 02 12:59:16 2021 +0200 @@ -72,7 +72,8 @@ let val lookup = lookup_thm thy in fn prf => let - val prf_names = Proofterm.fold_proof_terms Term.declare_term_frees prf Name.context; + val prf_names = + Name.build_context (prf |> Proofterm.fold_proof_terms Term.declare_term_frees); fun thm_of_atom thm Ts = let