more fromparser stuff

tests/Tests/Typechecker.idr

@@ -396,6 +396,13 @@ tests = "typechecker" :- [
           (Pi_ One "x" (FT "A")
             (Eq0 (E $ F "P" :@ BVT 0)
                  (E $ F "p" :@ BVT 0) (E $ F "q" :@ BVT 0)))
-          (Eq0 (Pi_ Any "x" (FT "A") $ E $ F "P" :@ BVT 0) (FT "p") (FT "q")))
+          (Eq0 (Pi_ Any "x" (FT "A") $ E $ F "P" :@ BVT 0) (FT "p") (FT "q"))),
+    todo "absurd (when coerce is in)"
+    -- absurd : (`true ≡ `false : {true, false}) ⇾ (0·A : ★₀) → A ≔
+    --   λ e ⇒
+    --     case coerce [i ⇒ case e @i return ★₀ of {`true ⇒ {tt}; `false ⇒ {}}]
+    --            @0 @1 `tt
+    --     return A
+    --     of { }
   ]
 ]