From d656e028c629eceb2c1aa2d5a29b05fc590c207b Mon Sep 17 00:00:00 2001
From: depsterr <depsterr@protonmail.com>
Date: Sat, 23 Apr 2022 16:38:53 +0200
Subject: [PATCH] enough for today

---
 pi.ipkg           |  1 +
 src/Ctx.idr       | 18 ++++++++++++++++++
 src/Misc.idr      | 11 ++++++++++-
 src/Normalize.idr | 22 ++++++++++++++++++++++
 src/Term.idr      | 16 +++++++---------
 src/Value.idr     |  6 +++---
 6 files changed, 61 insertions(+), 13 deletions(-)
 create mode 100644 src/Ctx.idr

diff --git a/pi.ipkg b/pi.ipkg
index c65eaec..1e59915 100644
--- a/pi.ipkg
+++ b/pi.ipkg
@@ -2,6 +2,7 @@ package pi
 
 modules = Term
         , Value
+        , Ctx
         , Normalize
         , Convert
         , Check
diff --git a/src/Ctx.idr b/src/Ctx.idr
new file mode 100644
index 0000000..1b6f10f
--- /dev/null
+++ b/src/Ctx.idr
@@ -0,0 +1,18 @@
+module Ctx
+
+import Misc
+
+import Data.Nat
+
+%default total
+
+infixr 7 ::
+
+public export
+data Ctx : (Index -> Type) -> (_ : Index) -> Type where
+  Nil  : Ctx ty 0
+  (::) : ty n -> Ctx ty n -> Ctx ty (S n)
+
+public export
+data Closure : (Index -> Type) -> Type where
+  MkClosure : Ctx ty n -> ty n -> Closure ty
diff --git a/src/Misc.idr b/src/Misc.idr
index 672d569..9419ba0 100644
--- a/src/Misc.idr
+++ b/src/Misc.idr
@@ -14,8 +14,17 @@ Name = String
 
 public export
 PI : Type -> Type
-PI = Maybe
+PI = Either String
+
+public export
+oops : String -> PI a
+oops = Left
 
 public export
 lteTransp : LTE a b -> a = c -> b = d -> LTE c d
 lteTransp p Refl Refl = p
+
+public export
+lteS : {n : _} -> LTE n (S n)
+lteS {n = Z}   = LTEZero
+lteS {n = S n} = LTESucc lteS
diff --git a/src/Normalize.idr b/src/Normalize.idr
index 5e353c5..3db568d 100644
--- a/src/Normalize.idr
+++ b/src/Normalize.idr
@@ -1,3 +1,25 @@
 module Normalize
 
+import Term
+import Value
+import Ctx
+import Misc
+
+import Data.Nat
+
 %default total
+
+public export
+eval : List (Closure Term) -> Ctx Term n -> Term n -> PI NF
+eval stack ctx TType      = pure NType
+eval stack ctx (TVar n p) = pure NType
+
+eval stack ctx (TApp f x) = eval (MkClosure ctx x :: stack) ctx f
+eval _ _ _ = oops "eval"
+
+public export
+finalize : Term 0 -> PI NF
+finalize term = eval [] Nil term
+
+-- idris can't see that there is no case for TVar itself
+finalize (TVar n p) = void (succNotLTEzero p)
diff --git a/src/Term.idr b/src/Term.idr
index ac96d80..f643c9c 100644
--- a/src/Term.idr
+++ b/src/Term.idr
@@ -12,8 +12,7 @@ import Misc
 -}
 public export
 data Term : (_ : Index) -> Type where
-  TType   : Term n                         -- The type of types (type in type)
-  TDef    : Name -> Term n                 -- Axiomised term
+  TType   : Term n                         -- Type of types
   TLam    : Term n -> Term (S n) -> Term n -- Lambda abstraction (λ Type -> Scope)
   TPi     : Term n -> Term (S n) -> Term n -- Pi type            (∏ A    -> B a  )
   TApp    : Term n -> Term n -> Term n     -- Appliction
@@ -22,10 +21,9 @@ data Term : (_ : Index) -> Type where
 public export
 weaken : {p, q : _} -> LTE p q -> Term p -> Term q
 weaken _ TType    = TType
-weaken _ (TDef n) = TDef n
 weaken p (TLam ty sc) = TLam (weaken p ty) (weaken (LTESucc p) sc)
-weaken p (TPi  a  bx) = TLam (weaken p a ) (weaken (LTESucc p) bx)
-weaken p (TApp f x) = TApp (weaken p f) (weaken p x)
+weaken p (TPi  a  bx) = TLam (weaken p a)  (weaken (LTESucc p) bx)
+weaken p (TApp f x)   = TApp (weaken p f)  (weaken p x)
 {-
   Getting new index
   =================
@@ -46,10 +44,10 @@ weaken p (TApp f x) = TApp (weaken p f) (weaken p x)
   Proving validity of new index
   =============================
 
-              r <= p           => (+mono)
-          r + q <= p + q       => (-mono)
-    (r + q) - p <= (p + q) - p => (lteTransp -+)
-    (r + q) - p <= q           ∎
+              r < p           => (+mono)
+          r + q < p + q       => (-mono)
+    (r + q) - p < (p + q) - p => (lteTransp -+)
+    (r + q) - p < q           ∎
 
 -}
 weaken {p = S p} {q = S q} (LTESucc p1) (TVar r p2') =
diff --git a/src/Value.idr b/src/Value.idr
index ac32ad8..3f73276 100644
--- a/src/Value.idr
+++ b/src/Value.idr
@@ -7,6 +7,6 @@ import Misc
 
 public export
 data NF : Type where
-  NType : NF
-  NDef  : Name -> NF
-  NLam  : NF -> (Term 1 -> PI NF) -> NF
+  NType : NF                    -- Type of types
+  NLam  : NF    -> Term 1 -> NF -- Lambda abstraction
+  NPi   : NF    -> Term 1 -> NF -- Pi Type