type-case

2023-04-03 17:46:23 +02:00 · 2023-04-03 17:46:23 +02:00 · a42e82c355
commit a42e82c355
parent 868550327c
12 changed files with 334 additions and 93 deletions
--- a/lib/Quox/Parser/Syntax.idr
+++ b/lib/Quox/Parser/Syntax.idr
@ -107,7 +107,13 @@ export
 toPDim : Dim 0 -> PDim
 toPDim = toPDimWith [<]

+public export
+fromNat : Nat -> PTerm
+fromNat 0     = Zero
+fromNat (S k) = Succ $ fromNat k

+
+{-
 mutual
  namespace Term
    export
@ -207,8 +213,4 @@ namespace Elim
  export
  toPTerm : Elim 0 0 -> PTerm
  toPTerm = toPTermWith [<] [<]
-
-public export
-fromNat : Nat -> PTerm
-fromNat 0     = Zero
-fromNat (S k) = Succ $ fromNat k
+-}