type t = T

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