more equality & tests

lib/Quox/Syntax/Term/Base.idr

@@ -90,7 +90,7 @@ mutual
     ||| `CasePair 𝜋 𝑒 𝑟 𝐴 𝑥 𝑦 𝑡` is
     ||| `𝐜𝐚𝐬𝐞 𝜋 · 𝑒 𝐫𝐞𝐭𝐮𝐫𝐧 𝑟 ⇒ 𝐴 𝐨𝐟 { (𝑥, 𝑦) ⇒ 𝑡 }`
     CasePair : (qty : q) -> (pair : Elim q d n) ->
-               (r : Name) -> (ret  : ScopeTerm q d n) ->
+               (r : Name) -> (ret : ScopeTerm q d n) ->
                (x, y : Name) -> (body : ScopeTermN 2 q d n) ->
                Elim q d n
 
@@ -146,6 +146,11 @@ public export %inline
 Eq0 : (ty, l, r : Term q d n) -> Term q d n
 Eq0 {ty, l, r} = Eq {i = "_", ty = DUnused ty, l, r}
 
+||| non dependent pair type
+public export %inline
+And : (fst, snd : Term q d n) -> Term q d n
+And {fst, snd} = Sig {x = "_", fst, snd = TUnused snd}
+
 ||| same as `F` but as a term
 public export %inline
 FT : Name -> Term q d n