src/Pure/Isar/proof_context.ML
changeset 79449 e6fb110d6e44
parent 79437 848073637388
child 79451 ef867bf3e6c9
equal deleted inserted replaced
79448:a5f327d9466f 79449:e6fb110d6e44
   493 val read_typ_syntax = read_typ_mode Type.mode_syntax;
   493 val read_typ_syntax = read_typ_mode Type.mode_syntax;
   494 val read_typ_abbrev = read_typ_mode Type.mode_abbrev;
   494 val read_typ_abbrev = read_typ_mode Type.mode_abbrev;
   495 
   495 
   496 
   496 
   497 fun cert_typ_mode mode ctxt T =
   497 fun cert_typ_mode mode ctxt T =
   498   Type.cert_typ_mode mode (tsig_of ctxt) T
   498   Type.cert_typ mode (tsig_of ctxt) T
   499     handle TYPE (msg, _, _) => error msg;
   499     handle TYPE (msg, _, _) => error msg;
   500 
   500 
   501 val cert_typ = cert_typ_mode Type.mode_default;
   501 val cert_typ = cert_typ_mode Type.mode_default;
   502 val cert_typ_syntax = cert_typ_mode Type.mode_syntax;
   502 val cert_typ_syntax = cert_typ_mode Type.mode_syntax;
   503 val cert_typ_abbrev = cert_typ_mode Type.mode_abbrev;
   503 val cert_typ_abbrev = cert_typ_mode Type.mode_abbrev;