23 val init: theory -> context |
23 val init: theory -> context |
24 val is_fixed: context -> string -> bool |
24 val is_fixed: context -> string -> bool |
25 val default_type: context -> string -> typ option |
25 val default_type: context -> string -> typ option |
26 val used_types: context -> string list |
26 val used_types: context -> string list |
27 val read_typ: context -> string -> typ |
27 val read_typ: context -> string -> typ |
28 val read_typ_no_norm: context -> string -> typ |
28 val read_typ_raw: context -> string -> typ |
29 val cert_typ: context -> typ -> typ |
29 val cert_typ: context -> typ -> typ |
30 val cert_typ_no_norm: context -> typ -> typ |
30 val cert_typ_raw: context -> typ -> typ |
31 val get_skolem: context -> string -> string |
31 val get_skolem: context -> string -> string |
32 val extern_skolem: context -> term -> term |
32 val extern_skolem: context -> term -> term |
33 val read_termTs: context -> (string -> bool) -> (indexname -> typ option) |
33 val read_termTs: context -> (string -> bool) -> (indexname -> typ option) |
34 -> (indexname -> sort option) -> string list -> (string * typ) list |
34 -> (indexname -> sort option) -> string list -> (string * typ) list |
35 -> term list * (indexname * typ) list |
35 -> term list * (indexname * typ) list |
411 |
411 |
412 in |
412 in |
413 |
413 |
414 (* Read/certify type, using default sort information from context. *) |
414 (* Read/certify type, using default sort information from context. *) |
415 |
415 |
416 val read_typ = read_typ_aux Sign.read_typ'; |
416 val read_typ = read_typ_aux Sign.read_typ'; |
417 val read_typ_no_norm = read_typ_aux Sign.read_typ_no_norm'; |
417 val read_typ_raw = read_typ_aux Sign.read_typ_raw'; |
418 val cert_typ = cert_typ_aux Sign.certify_typ; |
418 val cert_typ = cert_typ_aux Sign.certify_typ; |
419 val cert_typ_no_norm = cert_typ_aux Sign.certify_typ_no_norm; |
419 val cert_typ_raw = cert_typ_aux Sign.certify_typ_raw; |
420 |
420 |
421 end; |
421 end; |
422 |
422 |
423 |
423 |
424 (* internalize Skolem constants *) |
424 (* internalize Skolem constants *) |