diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -38,3 +38,8 @@
 ## 0.5.0.0 -- 2020-10-09
 
 * Fifth version. Added a new module Languages.UniquenessPeriods.Vector.PropertiesFuncRep. Added new dependencies to satisfy the new module dependencies.
+
+## 0.5.1.0 -- 2020-10-09
+
+* Fifth version revised A. Added a new function procDiverse2Ineg to the module Languages.UniquenessPeriods.Vector.PropertiesFuncRep. It can be used for minimum
+ lookup.
diff --git a/Languages/UniquenessPeriods/Vector/PropertiesFuncRep.hs b/Languages/UniquenessPeriods/Vector/PropertiesFuncRep.hs
--- a/Languages/UniquenessPeriods/Vector/PropertiesFuncRep.hs
+++ b/Languages/UniquenessPeriods/Vector/PropertiesFuncRep.hs
@@ -9,8 +9,24 @@
 -- and DobutokO.Poetry.Norms.Extended modules
 -- from the @dobutokO-poetry@ package.
 
-module Languages.UniquenessPeriods.Vector.PropertiesFuncRep where
+{-# LANGUAGE CPP #-}
 
+module Languages.UniquenessPeriods.Vector.PropertiesFuncRep (
+  -- * Functions with 'Int'
+  procDiverse2I
+  , procDiverse2Ineg
+  -- * Functions with 'Float'
+  , procDiverse2F
+  , procRhythmicity23F
+  , procBothF
+) where
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__>=710
+/* code that applies only to GHC 7.10.* and higher versions */
+import GHC.Base (mconcat)
+#endif
+#endif
 import qualified Data.Vector as V
 import String.Languages.UniquenessPeriods.Vector
 import Languages.UniquenessPeriods.Vector.PropertiesSyllables
@@ -20,11 +36,24 @@
 import Languages.Phonetic.Ukrainian.PrepareText
 import GHC.Float (int2Float)
 import Melodics.Ukrainian (convertToProperUkrainian)
+import MMSyn7.Syllable
 
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__==708
+/* code that applies only to GHC 7.8.* */
+mconcat = concat
+#endif
+#endif
+
 procDiverse2I :: FuncRep String (UniquenessGeneral2 Char) [Int]
 procDiverse2I = D2 (uniquenessPeriodsVector3 " 01-" . aux0 . convertToProperUkrainian) (justOneValue2Property . diverse2)
 {-# INLINE procDiverse2I #-}
 
+-- | Can be used to find out the minimum element.
+procDiverse2Ineg :: FuncRep String (UniquenessGeneral2 Char) [Int]
+procDiverse2Ineg = D2 (uniquenessPeriodsVector3 " 01-" . aux0 . convertToProperUkrainian) (justOneValue2Property . negate . diverse2)
+{-# INLINE procDiverse2Ineg #-}
+
 procDiverse2F :: FuncRep String (UniquenessGeneral2 Char) [Float]
 procDiverse2F = D2 (uniquenessPeriodsVector3 " 01-" . aux0 . convertToProperUkrainian) (justOneValue2Property . int2Float . diverse2)
 {-# INLINE procDiverse2F #-}
@@ -34,5 +63,5 @@
 {-# INLINE procRhythmicity23F #-}
 
 procBothF :: FuncRep String (UniquenessGeneral2 Char) [Float]
-procBothF = U1 (\xs -> [(int2Float . diverse2 . uniquenessPeriodsVector3 " 01-" . aux0 . convertToProperUkrainian $ xs)*(rhythmicity0 xs)])
+procBothF = U1 (\xs -> let ys = convertToProperUkrainian xs in [(int2Float . diverse2 . uniquenessPeriodsVector3 " 01-" . aux0  $ ys)*(evalRhythmicity23 . mconcat . syllableDurations . map ( createSyllablesP . additionalF) . vecWords $ ys)])
 {-# INLINE procBothF #-}
diff --git a/uniqueness-periods-vector-properties.cabal b/uniqueness-periods-vector-properties.cabal
--- a/uniqueness-periods-vector-properties.cabal
+++ b/uniqueness-periods-vector-properties.cabal
@@ -3,7 +3,7 @@
 -- http://haskell.org/cabal/users-guide/
 
 name:                uniqueness-periods-vector-properties
-version:             0.5.0.0
+version:             0.5.1.0
 synopsis:            Metrices for the maximum element for the uniqueness-periods-vector packages family.
 description:         Metrices for the maximum element for the uniqueness-periods-vector packages family. Generalization of the DobutokO.Poetry.Norms and DobutokO.Poetry.Norms.Extended modules from dobutokO-poetry package.
 homepage:            https://hackage.haskell.org/package/uniqueness-periods-vector-properties
@@ -22,6 +22,6 @@
 
   -- other-modules:
   other-extensions:    CPP, BangPatterns
-  build-depends:       base >=4.7 && <4.15, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, mmsyn7s >=0.9 && <1, phonetic-languages-rhythmicity >=0.1.0.1 && <1, uniqueness-periods-vector-common >=0.5 && <1, phonetic-languages-ukrainian >=0.2.3 && <1, mmsyn6ukr >=0.8.1 && <1
+  build-depends:       base >=4.7 && <4.15, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, mmsyn7s >=0.9.1 && <1, uniqueness-periods-vector-common >=0.5 && <1, phonetic-languages-ukrainian >=0.2.3 && <1, mmsyn6ukr >=0.8.1 && <1, phonetic-languages-rhythmicity >=0.1.0.1 && <1
   -- hs-source-dirs:
   default-language:    Haskell2010