Definition. Definitions, Datatypes, Induction, Functions › The cat function [isa-001Y]

fun cat :: ‹oots ⇒ oots ⇒ oots› where ‹cat (ONEs n xs) ys = prepend ONE n (cat xs ys)› | ‹cat (TWOs n xs) ys = prepend TWO n (cat xs ys)› | ‹cat Empty ys = ys›

This function uses the prepend function to concatenate two oots sequences together.