fixued issue with definition indecies

src/Parser/Parse.idr

@@ -435,7 +435,7 @@ definitions defs = do
     ty <- expr defs 0 []
     match PTDefEq
     tr <- expr defs 0 []
-    next <- definitions (arg :: defs) <|> pure ([], [])
+    next <- definitions (defs ++ [arg]) <|> pure ([], [])
     pure (arg :: fst next, (ty, tr) :: snd next)
 
 parsePi : List String -> Grammar () PiToken True a -> List (WithBounds PiToken) -> Either String a

tests/nat-id.pi

@@ -1,6 +1,9 @@
 let add : ℕ → ℕ → ℕ
   ≔ ℕ-ind (λ_. ℕ → ℕ) (λn.n) (λn.λan.λm. suc (an m))
 
+let add_test : Id ℕ (add 2 2) 4
+  ≔ refl ℕ 4
+
 let add_id_l : Π (n : ℕ) Id ℕ n (add 0 n)
   ≔ λn. refl ℕ n