diff --git a/lib/Haskell/Law/Ord/Int.agda b/lib/Haskell/Law/Ord/Int.agda
index 344d4188..47d0d4ec 100644
--- a/lib/Haskell/Law/Ord/Int.agda
+++ b/lib/Haskell/Law/Ord/Int.agda
@@ -13,13 +13,6 @@ open import Haskell.Law.Eq
 open import Haskell.Law.Ord.Def
 open import Haskell.Law.Int
 
-private
-
-  2⁶³ : Nat
-  2⁶³ = 9223372036854775808 
-
-  maxW : Word
-  maxW = (n2w (monusNat 2⁶³ 1))
 
 sign2neq : ∀ (a b : Int) → isNegativeInt a ≡ True → isNegativeInt b ≡ False → ((a == b) ≡ False) 
 sign2neq a@(int64 x) b@(int64 y) h₁ h₂ with a == b in h₃