type t = T

let t : t = match (T<>) { U<> -> T<> }