fix equality types

lib/Quox/Typechecker.idr

@@ -257,9 +257,9 @@ parameters {auto _ : IsQty q}
       Y t' => checkTypeC (extendDim t.name ctx) t' u
       N t' => checkTypeC ctx                    t' u
     -- if Ψ | Γ ⊢₀ l ⇐ A‹0›
-    check0 ctx t.zero l
+    check0 ctx l t.zero
     -- if Ψ | Γ ⊢₀ r ⇐ A‹1›
-    check0 ctx t.one  r
+    check0 ctx r t.one
     -- then Ψ | Γ ⊢₀ Eq [i ⇒ A] l r ⇐ Type ℓ
 
   checkType' ctx t@(DLam {}) u =