diff --git a/hydra-node/test/Hydra/Model.hs b/hydra-node/test/Hydra/Model.hs
index 5e65d8a5e52..cb7a0221599 100644
--- a/hydra-node/test/Hydra/Model.hs
+++ b/hydra-node/test/Hydra/Model.hs
@@ -127,11 +127,6 @@ data GlobalState
   | Final {finalUTxO :: UTxOType Payment}
   deriving stock (Eq, Show)
 
-isPendingCommitFrom :: Party -> GlobalState -> Bool
-isPendingCommitFrom party Initial{pendingCommits} =
-  party `Map.member` pendingCommits
-isPendingCommitFrom _ _ = False
-
 type Uncommitted = Map.Map Party (UTxOType Payment)
 
 newtype OffChainState = OffChainState {confirmedUTxO :: UTxOType Payment}