diff --git a/ouroboros-consensus-cardano/app/ledger-db-backends-checker.hs b/ouroboros-consensus-cardano/app/ledger-db-backends-checker.hs
deleted file mode 100644
index 23be7a725c..0000000000
--- a/ouroboros-consensus-cardano/app/ledger-db-backends-checker.hs
+++ /dev/null
@@ -1,104 +0,0 @@
-{-# LANGUAGE DataKinds           #-}
-{-# LANGUAGE FlexibleContexts    #-}
-{-# LANGUAGE MonoLocalBinds      #-}
-{-# LANGUAGE NumericUnderscores  #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE TupleSections       #-}
--- | This tiny executable loads an in-mem backing store and an lmdb backing store and checks:
---
--- 1. Slot number is the same
--- 2. The values are the same
---
--- It only works for CardanoBlock for the time being.
-
-module Main (main) where
-
-import           Cardano.Binary as CBOR
-import           Cardano.Ledger.Crypto
-import           Cardano.Slotting.Slot (SlotNo, WithOrigin (..))
-import qualified Codec.CBOR.Read as CBOR
-import           Control.Monad (unless)
-import qualified Data.ByteString.Lazy as BSL
-import qualified Data.Map.Strict as Map
-import           Data.String (fromString)
-import qualified Database.LMDB.Simple as LMDB
-import qualified Database.LMDB.Simple.Cursor as LMDB.Cursor
-import           Options.Applicative as O
-import           Ouroboros.Consensus.Cardano
-import           Ouroboros.Consensus.Ledger.Extended
-import           Ouroboros.Consensus.Ledger.Tables
-import           Ouroboros.Consensus.Protocol.Praos.Translate ()
-import           Ouroboros.Consensus.Shelley.HFEras ()
-import           Ouroboros.Consensus.Shelley.Ledger.SupportsProtocol ()
-import qualified Ouroboros.Consensus.Storage.LedgerDB.BackingStore.LMDB as Consensus.LMDB
-import qualified Ouroboros.Consensus.Storage.LedgerDB.BackingStore.LMDB.Bridge as Consensus.LMDB.Bridge
-import qualified System.FS.API as FS
-import qualified System.FS.API.Types as FS
-import qualified System.FS.IO as FS
-
-data Options = Options { inmemFile :: FilePath, lmdbFile :: FilePath } deriving Show
-
-optsParser :: Parser Options
-optsParser = Options
-  <$> O.argument O.str (metavar "INMEM path")
-  <*> O.argument O.str (metavar "LMDB path")
-
-opts :: ParserInfo Options
-opts = info (optsParser <**> helper)
-      ( fullDesc
-     <> progDesc "Check databases"
-     <> O.header "db-checker" )
-
-main :: IO ()
-main = do
-  op <- execParser opts
-  (s1, v1) <- getMemDb $ inmemFile op
-  putStrLn "INMEM done"
-  (s2, v2) <- getLMDB $ lmdbFile op
-  putStrLn "LMDB done"
-  if s1 == s2
-    then putStrLn "SAME SLOT"
-    else putStrLn $ "DIFFERENT SLOT" <> show (s1, s2)
-
-  if v1 == v2
-    then putStrLn "SAME VALUES"
-    else putStrLn "DIFFERENT VALUES"
-
-getMemDb :: FilePath -> IO (WithOrigin SlotNo, LedgerTables (ExtLedgerState (CardanoBlock StandardCrypto)) ValuesMK)
-getMemDb f = do
-  let fs = FS.ioHasFS (FS.MountPoint f)
-  FS.withFile fs (FS.fsPathFromList [fromString "tvar"]) FS.ReadMode $ \h -> do
-    bs <- FS.hGetAll fs h
-    case CBOR.deserialiseFromBytes ((,) <$> CBOR.fromCBOR <*> valuesMKDecoder) bs of
-      Left  err        -> error $ show err
-      Right (extra, x) -> do
-        unless (BSL.null extra) $ error $ show "Leftover bytes"
-        pure x
-
-getLMDB :: FilePath -> IO (WithOrigin SlotNo, LedgerTables (ExtLedgerState (CardanoBlock StandardCrypto)) ValuesMK)
-getLMDB dbFilePath = do
-  dbEnv <- LMDB.openEnvironment dbFilePath limits
-  Just dbSettings <- LMDB.readWriteTransaction dbEnv $ (LMDB.getDatabase (Just "_dbstate") :: LMDB.Transaction LMDB.ReadWrite (LMDB.Database () Consensus.LMDB.DbState)) >>= flip LMDB.get ()
-  dbBackingTables <- LMDB.readWriteTransaction dbEnv $ traverseLedgerTables (\(NameMK name) -> Consensus.LMDB.LMDBMK name <$> LMDB.getDatabase (Just name)) namesLedgerTables
-  (Consensus.LMDB.dbsSeq dbSettings,) <$> (LMDB.readWriteTransaction dbEnv (zipLedgerTablesA f dbBackingTables codecLedgerTables) :: IO (LedgerTables (ExtLedgerState (CardanoBlock StandardCrypto)) ValuesMK))
-  where
-    f :: Ord k => Consensus.LMDB.LMDBMK k v -> CodecMK k v -> LMDB.Transaction mode (ValuesMK k v)
-    f (Consensus.LMDB.LMDBMK _ db) codecMK =
-      ValuesMK <$>
-        Consensus.LMDB.Bridge.runCursorAsTransaction'
-          (LMDB.Cursor.forEachForward
-            (\acc k v -> Map.insert k v acc)
-            Map.empty
-          )
-          db
-          codecMK
-    -- Preferably, these settings should match the default configuration for
-    -- @cardano-node@. There, we pick @'lmdbMapSize'@ and @'lmdbMaxDatabases'@
-    -- such that they are sufficient for the medium term, i.e., until a more
-    -- performant backing store is developed and integrated.
-    limits :: LMDB.Limits
-    limits = LMDB.Limits {
-        LMDB.mapSize = 16_000_000_000
-      , LMDB.maxDatabases = 10
-      , LMDB.maxReaders = 16
-    }
diff --git a/ouroboros-consensus-cardano/ouroboros-consensus-cardano.cabal b/ouroboros-consensus-cardano/ouroboros-consensus-cardano.cabal
index 2dcca9c960..12f3a3c4c0 100644
--- a/ouroboros-consensus-cardano/ouroboros-consensus-cardano.cabal
+++ b/ouroboros-consensus-cardano/ouroboros-consensus-cardano.cabal
@@ -569,22 +569,3 @@ test-suite tools-test
     , cardano-tools
     , tasty
     , tasty-hunit
-
-executable ledger-db-backends-checker
-  import:         common-exe
-  hs-source-dirs: app
-  main-is:        ledger-db-backends-checker.hs
-  build-depends:
-    , base
-    , bytestring
-    , cardano-binary
-    , cardano-ledger-core
-    , cardano-lmdb-simple
-    , cardano-slotting
-    , cborg
-    , containers
-    , fs-api
-    , optparse-applicative
-    , ouroboros-consensus
-    , ouroboros-consensus-cardano
-    , ouroboros-consensus-protocol