diff --git a/src/Data/Abstract/Address.hs b/src/Data/Abstract/Address.hs
index f6beb07be..ccd4dfd29 100644
--- a/src/Data/Abstract/Address.hs
+++ b/src/Data/Abstract/Address.hs
@@ -41,6 +41,8 @@ instance Pointed Latest where
 
 instance Reducer a (Latest a) where
   unit = Latest
+  cons _ = id
+  snoc _ = unit
 
 instance Eq1 Latest where liftEq = genericLiftEq
 instance Ord1 Latest where liftCompare = genericLiftCompare