checkpoint before case

2024-08-02 21:39:39 -07:00
parent 0bb2d48d72
commit 067a83960d
6 changed files with 37 additions and 14 deletions
--- a/src/Lib/TopContext.idr
+++ b/src/Lib/TopContext.idr
@@ -28,6 +28,16 @@ public export
 claim : String -> Tm -> TopContext -> TopContext
 claim name ty = { defs $= (MkEntry name ty Axiom ::) }

+
+public export
+deftype : String -> Tm -> List String -> TopContext -> TopContext
+deftype name ty cons = { defs $= (MkEntry name ty (TCon cons) :: )}
+
+public export
+defcon : String -> Nat -> String -> Tm -> TopContext -> TopContext
+defcon cname arity tyname ty = { defs $= (MkEntry cname ty (DCon arity tyname) ::) }
+
+
 -- TODO update existing, throw, etc.

 public export