Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
natElim : a -> (a -> a) -> Nat -> a
natElim z s O = z
natElim z s (S n) = s (natElim z s n)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment