rnhmjoj/interlude
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add natural exponentiation

Browse Source
This commit is contained in:
rnhmjoj 2016-11-28 21:14:14 +01:00
parent f0b2422711
commit 0994ae2940
No known key found for this signature in database
GPG Key ID: 362BB82B7E496B7C
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Nat.hs
View File

@ -55,6 +55,11 @@ singletons [d|
Z × m = Z Z × m = Z
(S n) × m = (n × m) + m (S n) × m = (n × m) + m
-- | Exponentiation
(^) ∷ ℕ → ℕ → ℕ
n ^ Z = (S Z)
n ^ (S m) = n × (n ^ m)
-- | Ordering relation < -- | Ordering relation <
(<) ∷ ℕ → ℕ → 𝔹 (<) ∷ ℕ → ℕ → 𝔹
Z < Z = F Z < Z = F