equal
deleted
inserted
replaced
244 | _ => prf) |
244 | _ => prf) |
245 in if full then Reconstruct.reconstruct_proof thy prop prf' else prf' end; |
245 in if full then Reconstruct.reconstruct_proof thy prop prf' else prf' end; |
246 |
246 |
247 fun pretty_proof ctxt prf = |
247 fun pretty_proof ctxt prf = |
248 Proof_Context.pretty_term_abbrev |
248 Proof_Context.pretty_term_abbrev |
249 (Proof_Context.transfer_syntax (proof_syntax prf (Proof_Context.theory_of ctxt)) ctxt) |
249 (Proof_Context.transfer (proof_syntax prf (Proof_Context.theory_of ctxt)) ctxt) |
250 (term_of_proof prf); |
250 (term_of_proof prf); |
251 |
251 |
252 fun pretty_proof_of ctxt full th = |
252 fun pretty_proof_of ctxt full th = |
253 pretty_proof ctxt (proof_of full th); |
253 pretty_proof ctxt (proof_of full th); |
254 |
254 |