data MyNat
    = S (Inf MyNat)
    | Z

%builtin Natural MyNat