Magic Nat

2025-04-09 12:59:02 -04:00
parent c51d368e90
commit 0ce1a5e454
7 changed files with 154 additions and 87 deletions
--- a/src/Lib/Types.newt
+++ b/src/Lib/Types.newt
@@ -310,6 +310,13 @@ record MetaContext where

 data ConInfo = NormalCon | SuccCon | ZeroCon | EnumCon

+instance Eq ConInfo where
+  NormalCon == NormalCon = True
+  SuccCon == SuccCon = True
+  ZeroCon == ZeroCon = True
+  EnumCon == EnumCon = True
+  _ == _ = False
+
 instance Show ConInfo where
  show NormalCon = ""
  show SuccCon = "[S]"