src/Pure/Proof/proof_syntax.ML
changeset 55725 9d605a21d7ec
parent 52788 da1fdbfebd39
child 56161 300f613060b0
equal deleted inserted replaced
55717:601ea66c5bcd 55725:9d605a21d7ec
   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