diff --git a/Basement/These.hs b/Basement/These.hs
--- a/Basement/These.hs
+++ b/Basement/These.hs
@@ -13,7 +13,6 @@
 
 import Basement.Compat.Base
 import Basement.NormalForm
-import Basement.Compat.Bifunctor
 
 -- | Either a or b or both.
 data These a b
@@ -26,11 +25,3 @@
     toNormalForm (This a) = toNormalForm a
     toNormalForm (That b) = toNormalForm b
     toNormalForm (These a b) = toNormalForm a `seq` toNormalForm b
-
-instance Bifunctor These where
-    bimap fa _  (This a)    = This  (fa a)
-    bimap _  fb (That b)    = That  (fb b)
-    bimap fa fb (These a b) = These (fa a) (fb b)
-
-instance Functor (These a) where
-    fmap = second
diff --git a/basement.cabal b/basement.cabal
--- a/basement.cabal
+++ b/basement.cabal
@@ -1,5 +1,5 @@
 name:                basement
-version:             0.0.15
+version:             0.0.16
 synopsis:            Foundation scrap box of array & string
 description:         Foundation most basic primitives without any dependencies
 license:             BSD3