是否有可能表达“接收2个nat并返回其总和的函数类型”？

Question

考虑以下类型：

CNat : Type
CNat = (a:Type) -> (a -> a) -> a -> a

add : CNat -> CNat -> CNat
add x y t s z = x t s (y t s z)

是否可以表达“接收两个nat x和y的函数类型，并返回另一个nat z，以便add x y == z？