remove Nat-specific equality

2016-11-28 21:14:43 +01:00 · 2016-11-28 21:14:43 +01:00 · 12af0730eb
commit 12af0730eb
parent 0994ae2940
1 changed files with 0 additions and 7 deletions
--- a/src/Data/Nat.hs
+++ b/src/Data/Nat.hs
@ -119,13 +119,6 @@ fromInteger n
  | n T.>  0 = S (fromInteger (T.pred n)) 


-- | Equality for natural numbers
-(≡) ∷ ℕ → ℕ → 𝔹 
-Z     ≡ Z     = T
-(S n) ≡ (S m) = n ≡ m
-_     ≡ _     = F
-
-
 -- | Infinity
 (∞) ∷ ℕ
 (∞) = S (∞)