@@ -147,10 +147,10 @@ class Subset s t where
147instance Subset '[] '[] where
147instance Subset '[] '[] where
148 subset xs = Empty
148 subset xs = Empty
150−instance Subset s t => Subset s (x ': t) where
150+instance {-# OVERLAPPABLE #-} Subset s t => Subset s (x ': t) where
151 subset (Ext _ xs) = subset xs
151 subset (Ext _ xs) = subset xs
153−instance Subset s t => Subset (x ': s) (x ': t) where
153+instance {-# OVERLAPS #-} Subset s t => Subset (x ': s) (x ': t) where
154 subset (Ext x xs) = Ext x (subset xs)
154 subset (Ext x xs) = Ext x (subset xs)