Structure DiskFilesHeader
signature DiskFilesHeader =
sig
type id = {Thy:string,Name:string}
datatype pretype = ptv of string | ptop of int * int list
datatype pre_vc = ptm_v of string * int | ptm_c of int * int
datatype preterm = app of preterm * preterm | abs of int * preterm
| atom of int
type prethm = preterm list * preterm
type 'a array = (int,'a)Binarymap.dict
type parse_result =
id array * pretype array * pre_vc array * (string * prethm) list
val convert_prethms : parse_result -> (string * HolKernel.thm) list
end
HOL 4, Kananaskis-10