diff --git a/src/Control/Abstract/Primitive.hs b/src/Control/Abstract/Primitive.hs
index d26f454b6..6b3ce0f4f 100644
--- a/src/Control/Abstract/Primitive.hs
+++ b/src/Control/Abstract/Primitive.hs
@@ -91,4 +91,7 @@ runPrimitive = interpret (\ (Prim builtin params) -> case builtin of
 data SomeBuiltin where
   SomeBuiltin :: Builtin arg return -> SomeBuiltin
 
+instance Eq SomeBuiltin where
+  SomeBuiltin Print == SomeBuiltin Print = True
+
 deriving instance Show SomeBuiltin