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

remove Nat-specific equality

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

7
src/Data/Nat.hs
View File

@ -119,13 +119,6 @@ fromInteger n
| n T.> 0 = S (fromInteger (T.pred n)) | n T.> 0 = S (fromInteger (T.pred n))
-- | Equality for natural numbers
(≡) ∷ ℕ → ℕ → 𝔹
Z ≡ Z = T
(S n) ≡ (S m) = n ≡ m
_ ≡ _ = F
-- | Infinity -- | Infinity
(∞) ∷ ℕ (∞) ∷ ℕ
(∞) = S (∞) (∞) = S (∞)