diff --git a/mono-traversable/src/Data/MonoTraversable.hs b/mono-traversable/src/Data/MonoTraversable.hs
index e86658d4..41d01999 100644
--- a/mono-traversable/src/Data/MonoTraversable.hs
+++ b/mono-traversable/src/Data/MonoTraversable.hs
@@ -166,6 +166,7 @@ type instance Element (Product f g a) = a
 type instance Element (U.Vector a) = a
 type instance Element (VS.Vector a) = a
 #if MIN_VERSION_vector(0,13,2)
+-- | @since 1.0.21.0
 type instance Element (VSC.Vector a) = a
 #endif
 type instance Element (Arg a b) = b
@@ -268,6 +269,7 @@ instance VS.Storable a => MonoFunctor (VS.Vector a) where
     omap = VS.map
     {-# INLINE omap #-}
 #if MIN_VERSION_vector(0,13,2)
+-- | @since 1.0.21.0
 instance MonoFunctor (VSC.Vector a)
 #endif
 -- | @since 1.0.20.0
@@ -778,6 +780,7 @@ instance VS.Storable a => MonoFoldable (VS.Vector a) where
     {-# INLINE maximumByEx #-}
     {-# INLINE minimumByEx #-}
 #if MIN_VERSION_vector(0,13,2)
+-- | @since 1.0.21.0
 instance MonoFoldable (VSC.Vector a) where
     ofoldr = VSC.foldr
     ofoldl' = VSC.foldl'
@@ -1106,6 +1109,7 @@ instance VS.Storable a => MonoTraversable (VS.Vector a) where
     {-# INLINE otraverse #-}
     {-# INLINE omapM #-}
 #if MIN_VERSION_vector(0,13,2)
+-- | @since 1.0.21.0
 instance MonoTraversable (VSC.Vector a)
 #endif
 instance MonoTraversable (Either a b) where
@@ -1276,6 +1280,7 @@ instance VS.Storable a => MonoPointed (VS.Vector a) where
     opoint = VS.singleton
     {-# INLINE opoint #-}
 #if MIN_VERSION_vector(0,13,2)
+-- | @since 1.0.21.0
 instance MonoPointed (VSC.Vector a)
 #endif
 instance MonoPointed (Either a b) where
@@ -1389,6 +1394,7 @@ instance GrowingAppend (V.Vector a)
 instance U.Unbox a => GrowingAppend (U.Vector a)
 instance VS.Storable a => GrowingAppend (VS.Vector a)
 #if MIN_VERSION_vector(0,13,2)
+-- | @since 1.0.21.0
 instance GrowingAppend (VSC.Vector a)
 #endif
 instance GrowingAppend S.ByteString
diff --git a/mono-traversable/src/Data/Sequences.hs b/mono-traversable/src/Data/Sequences.hs
index a1d0ec63..18f56fb9 100644
--- a/mono-traversable/src/Data/Sequences.hs
+++ b/mono-traversable/src/Data/Sequences.hs
@@ -1102,6 +1102,7 @@ instance IsSequence (V.Vector a) where
     {-# INLINE unsafeIndex #-}
 
 #if MIN_VERSION_vector(0,13,2)
+-- | @since 1.0.21.0
 instance SemiSequence (VSC.Vector a) where
     type Index (VSC.Vector a) = Int
     reverse = VSC.reverse
@@ -1118,6 +1119,7 @@ instance SemiSequence (VSC.Vector a) where
     {-# INLINE cons #-}
     {-# INLINE snoc #-}
 
+-- | @since 1.0.21.0
 instance IsSequence (VSC.Vector a) where
     fromList = VSC.fromList
     lengthIndex = VSC.length