diff --git a/genvalidity-hspec.cabal b/genvalidity-hspec.cabal
--- a/genvalidity-hspec.cabal
+++ b/genvalidity-hspec.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 926ad060108a21f0c185f483af0bfa8e11ed0401a0e74990ecc64ee15ee1ef93
+-- hash: 5acc50959a50b61fe06ee750091b0d8a1b858be35b19f21c46a1f4159483beef
 
 name:           genvalidity-hspec
-version:        0.6.0.1
+version:        0.6.0.2
 synopsis:       Standard spec's for GenValidity instances
 description:    Note: There are companion packages for this library:
                 .
diff --git a/src/Test/Validity/Utils.hs b/src/Test/Validity/Utils.hs
--- a/src/Test/Validity/Utils.hs
+++ b/src/Test/Validity/Utils.hs
@@ -20,16 +20,16 @@
     ) where
 
 import Data.Data
-import Data.Validity
 
-import Control.Monad
-
 import Test.Hspec
 import Test.Hspec.Core.Formatters
 import Test.Hspec.Core.Runner
 import Test.Hspec.Core.Spec
+
 import Test.QuickCheck.Property
 
+import Test.Validity.Property.Utils
+
 nameOf ::
        forall a. Typeable a
     => String
@@ -117,25 +117,3 @@
             { reason = unwords ["Should have failed:", reason res]
             , expect = not $ expect res
             }
-
-shouldBeValid :: (Show a, Validity a) => a -> Expectation
-shouldBeValid a = do
-    case prettyValidation a of
-        Right _ -> pure ()
-        Left err ->
-            expectationFailure $
-            unlines
-                [ "'validate' reported this value to be invalid: " ++ show a
-                , err
-                , ""
-                ]
-    unless (isValid a) $
-        expectationFailure $
-        unlines
-            [ "isValid considered this value invalid: " ++ show a
-            , "This is odd because 'validate' reported no issues."
-            , "Are you sure 'Validity' is implemented correctly?"
-            ]
-
-shouldBeInvalid :: (Show a, Validity a) => a -> Expectation
-shouldBeInvalid a = a `shouldNotSatisfy` isValid