sig
  val declare : string -> 's Record.layout
  val field :
    's Record.layout -> string -> 'a Record.Type.t -> ('a, 's) Record.Field.t
  val seal : 's Record.layout -> unit
  val make : 's Record.layout -> 's Record.t
  val layout_name : 's Record.layout -> string
  val layout_id : 's Record.layout -> 's Record.Polid.t
end