pair stuff

tests/Tests/Equal.idr

@@ -16,6 +16,9 @@ ToInfo (Error Three) where
   toInfo (ExpectedPi t) =
     [("type", "ExpectedPi"),
      ("got", prettyStr True t)]
+  toInfo (ExpectedSig t) =
+    [("type", "ExpectedSig"),
+     ("got", prettyStr True t)]
   toInfo (ExpectedEq t) =
     [("type", "ExpectedEq"),
      ("got", prettyStr True t)]
@@ -139,16 +142,6 @@ 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),
@@ -170,6 +163,18 @@ tests = "equality & subtyping" :- [
              (FT "f")
   ],
 
+  "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))
+  ],
+
+  todo "dim lambda",
+
   "term closure" :- [
     note "𝑖, 𝑗 for bound variables pointing outside of the current expr",
     testEq "[𝑖]{} ≡ [𝑖]" $
@@ -266,6 +271,21 @@ tests = "equality & subtyping" :- [
       equalE (F "f" :@ FT "x") (F "x")
   ],
 
+  "dim application" :-
+  let refl : Term q d n -> Term q d n -> Elim q d n
+      refl a x = (DLam "_" $ DUnused x) :# (Eq0 a x x)
+  in
+  [
+    note #""refl [A] x" is an abbreviation for "(λᴰi ⇒ x) ∷ (x ≡ x : A)""#,
+    testEq "refl [A] x ≡ refl [A] x" $
+      equalE (refl (FT "A") (FT "x")) (refl (FT "A") (FT "x")),
+    testEq "p : (a ≡ b : A), q : (a ≡ b : A) ⊢ p ≡ q"
+           {globals =
+              let def = mkAbstract Zero $ Eq0 (FT "A") (FT "a") (FT "b") in
+              fromList [("p", def), ("q", def)]} $
+      equalE (F "p") (F "q")
+  ],
+
   todo "annotation",
 
   todo "elim closure",