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