diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -41,5 +41,9 @@
 
 ## 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.
+* Fifth version revised A. Added a new function procDiverse2Ineg to the module Languages.UniquenessPeriods.Vector.PropertiesFuncRep. It can be used for the minimum element lookup.
+
+## 0.5.2.0 -- 2020-10-09
+
+* Fifth version revised B. Added two more new functions procRhythmicity23Fneg and procBothFneg to the module
+Languages.UniquenessPeriods.Vector.PropertiesFuncRep. They can be used for the minimum element 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
@@ -18,7 +18,9 @@
   -- * Functions with 'Float'
   , procDiverse2F
   , procRhythmicity23F
+  , procRhythmicity23Fneg
   , procBothF
+  , procBothFneg
 ) where
 
 #ifdef __GLASGOW_HASKELL__
@@ -62,6 +64,16 @@
 procRhythmicity23F = U1 (justOneValue2Property . rhythmicity0)
 {-# INLINE procRhythmicity23F #-}
 
+-- | Can be used to find out the minimum element.
+procRhythmicity23Fneg :: FuncRep String (UniquenessGeneral2 Char) [Float]
+procRhythmicity23Fneg = U1 (justOneValue2Property . negate . rhythmicity0)
+{-# INLINE procRhythmicity23Fneg #-}
+
 procBothF :: FuncRep String (UniquenessGeneral2 Char) [Float]
 procBothF = U1 (\xs -> let ys = convertToProperUkrainian xs in [(int2Float . diverse2 . uniquenessPeriodsVector3 " 01-" . aux0  $ ys)*(evalRhythmicity23 . mconcat . syllableDurations . map ( createSyllablesP . additionalF) . vecWords $ ys)])
 {-# INLINE procBothF #-}
+
+-- | Can be used to find out the minimum element.
+procBothFneg :: FuncRep String (UniquenessGeneral2 Char) [Float]
+procBothFneg = U1 (\xs -> let ys = convertToProperUkrainian xs in [(int2Float . negate . diverse2 . uniquenessPeriodsVector3 " 01-" . aux0  $ ys)*(evalRhythmicity23 . mconcat . syllableDurations . map ( createSyllablesP . additionalF) . vecWords $ ys)])
+{-# INLINE procBothFneg #-}
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.1.0
+version:             0.5.2.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