notes

README.md

@@ -53,6 +53,7 @@ Parser:
 - [x] simple decl
 - [ ] check (either check at _ or infer and let it throw)
 - [ ] nf (ditto, but print value. WHNF for now    )
+- [ ] operators / mixfix
 
 Misc:
 - [x] vscode support for .newt

newt/eq.newt

@@ -1,7 +1,6 @@
 module Equality
 
 -- Leibniz equality
-
 Eq : {A : U} -> A -> A -> U
 Eq = \ {A} x y => (P : A -> U) -> P x -> P y
 
@@ -11,6 +10,8 @@ refl = \ P Px => Px
 trans : {A : U} {x y z : A} -> Eq x y -> Eq y z -> Eq x z
 trans = \ Exy Eyz => Eyz (\ w => Eq x w) Exy
 
+-- This version has a universe issue, see Abel et al for
+-- a better one
 sym : {A : U} {x y : A} -> Eq x y -> Eq y x
 sym = \ Exy => Exy (\ z => Eq z x) refl
 
@@ -20,10 +21,24 @@ id = \ x => x
 coerce : {A B : U} -> Eq A B -> A -> B
 coerce = \ EqAB a => EqAB id a
 
+-- pi-forall's formulation
 -- J : {A : U} ->
---     {C : (x y : A) -> Eq x y -> U} ->
---     (c : (x : _) -> C x x refl) ->
 --     (x y : A) ->
 --     (p : Eq x y) ->
---     C x y p
--- J = \ c x y eq => eq (\ z => C x z _) (c x)
+--     {C : (z : A) -> Eq z y -> U} ->
+--     (b : C y refl) ->
+--     C x p
+-- -- doesn't really work because we have refl and some Eq y y
+-- J = \ x y eq {C} b => eq (\z => (q : Eq z y) -> C z q) (\ _ => b)
+
+-- I don't think this is going to happen, maybe with funext?
+-- anyway, could be useful case to improve error messages.
+-- (add names)
+
+J : {A : U} ->
+    {C : (x y : A) -> Eq x y -> U} ->
+    (c : (x : _) -> C x x refl) ->
+    (x y : A) ->
+    (p : Eq x y) ->
+    C x y p
+J = \ c x y eq => eq (\ z => (q : Eq x z) -> C x z q) (\ _ => c x) eq

src/Lib/Check.idr

@@ -137,6 +137,7 @@ check ctx tm ty with (force ty)
               else if icit' == Implicit then do
                 let var = VVar (length ctx.env) [<]
                 ty' <- b $$ var
+                -- use nm' here if we want them automatically in scope
                 sc <- check (extend ctx nm' a) t ty'
                 pure $ Lam nm' sc
               else
@@ -175,8 +176,6 @@ infer ctx (RVar nm) = go 0 ctx.types
       else go (i + 1) xs
   -- need environment of name -> type..
 infer ctx (RApp t u icit) = do
-  -- icit will be used for insertion, lets get this working first...
-
   (icit, t, tty) <- case the Icit icit of
       Explicit => do
         (t, tty) <- infer ctx t