1 2 3 4 5 6 7 8 9 10
module Type infixr 4 ~> public export data Ty : Type where N : Ty (~>) : Ty -> Ty -> Ty %name Ty ty