sig
  type 'a undoAlphaElement
  type 'a alphaTableData
  type 'a alphaTable =
      (string, (string, 'Alpha.alphaTableData Stdlib.ref) Stdlib.Hashtbl.t)
      Stdlib.Hashtbl.t
  val newAlphaName :
    alphaTable:'Alpha.alphaTable ->
    undolist:'Alpha.undoAlphaElement list Stdlib.ref option ->
    lookupname:string -> data:'-> string * 'a
  val registerAlphaName :
    alphaTable:'Alpha.alphaTable -> lookupname:string -> data:'-> unit
  val getAlphaPrefix : lookupname:string -> string * string
  val undoAlphaChanges :
    alphaTable:'Alpha.alphaTable ->
    undolist:'Alpha.undoAlphaElement list -> unit
end