on master help sign in
Eq Nat fix
commitb04ea13386fb1a9ed14b8a2256ad904dd739e62b authorEdwin Brady <eb@cs.st-andrews.ac.uk> dateThu 2 Feb 2012, 02:57 (15 years ago) parentc7a3b59
1 file changed+1−1
lib/prelude/nat.idr+1−1
lib/prelude/nat.idr+1−1
@@ -49,7 +49,7 @@ power base (S exp) = mult base $ power base exp
4949--------------------------------------------------------------------------------
5050
5151instance Eq Nat where
52− Z == Z = True
52+ O == O = True
5353 (S l) == (S r) = l == r
5454 _ == _ = False
5555