start of equality type stuff

tests/Tests/Equal.idr

@@ -16,6 +16,9 @@ ToInfo (Error Three) where
   toInfo (ExpectedPi t) =
     [("type", "ExpectedPi"),
      ("got", prettyStr True t)]
+  toInfo (ExpectedEq t) =
+    [("type", "ExpectedEq"),
+     ("got", prettyStr True t)]
   toInfo (BadUniverse k l) =
     [("type", "BadUniverse"),
      ("low",  show k),
@@ -34,6 +37,10 @@ ToInfo (Error Three) where
     [("type", "ClashQ"),
      ("left",  prettyStr True pi),
      ("right", prettyStr True rh)]
+  toInfo (ClashD p q) =
+    [("type", "ClashD"),
+     ("left",  prettyStr True p),
+     ("right", prettyStr True q)]
 
 
 0 M : Type -> Type
@@ -127,6 +134,16 @@ tests = "equality & subtyping" :- [
         subT tm1 tm2
     ],
 
+    "eq type" :- [
+      testEq "(★₀ = ★₀ : ★₁) ≡ (★₀ = ★₀ : ★₁)" $
+        let tm = Eq0 (TYPE 1) (TYPE 0) (TYPE 0) in
+        equalT tm tm,
+      testEq "A ≔ ★₁ ⊢ (★₀ = ★₀ : ★₁) ≡ (★₀ = ★₀ : A)"
+          {globals = fromList [("A", mkDef zero (TYPE 2) (TYPE 1))]} $
+        equalT (Eq0 (TYPE 1) (TYPE 0) (TYPE 0))
+               (Eq0 (FT "A") (TYPE 0) (TYPE 0))
+    ],
+
     "lambda" :- [
       testEq "λ x ⇒ [x] ≡ λ x ⇒ [x]" $
         equalT (Lam "x" $ TUsed $ BVT 0) (Lam "x" $ TUsed $ BVT 0),