Structure RecordType

signature RecordType =
sig
  include Abbrev

  val prove_recordtype_thms
    : TypeBasePure.tyinfo * string list -> TypeBasePure.tyinfo * string

  val update_tyinfo
    : ((string * hol_type) list * thm list * thm list) option
      -> thm list
      -> TypeBasePure.tyinfo
      -> TypeBasePure.tyinfo
end

(*

   [prove_recordtype_thms] takes a tyinfo with the basic information
    about the type and a list of names for the record fields.  Returns
    an augmented tyinfo and a string corresponding to an ML expression
    which modifies a tyinfo in the same way as the result has just been
    modified.

   [update_tyinfo ths] transforms a tyinfo by adding the ths to it as
    extra simplification theorems. Also updates the tyinfo with
    accessor and update information.

*)

HOL 4, Kananaskis-10