Structure tttNumber

signature tttNumber =
sig

  val ttt_fst : ('a * 'b) -> 'a
  val number_stac : string -> string
  val drop_numbering : string list -> string list
  val replace_at : string list * string list -> string list -> string list

end

HOL 4, Kananaskis-11