rachel/pi
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixued issue with definition indecies

Browse Source
This commit is contained in:
Rachel Lambda Samuelsson 2022-07-27 00:28:06 +02:00
parent 90255e9c40
commit 60954c21c3
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Parser/Parse.idr
View File

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

3
tests/nat-id.pi
View File

@ -1,6 +1,9 @@
let add : ℕ → ℕ → ℕ let add : ℕ → ℕ → ℕ
≔ ℕ-ind (λ_. ℕ → ℕ) (λn.n) (λn.λan.λm. suc (an m)) ≔ ℕ-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) let add_id_l : Π (n : ℕ) Id ℕ n (add 0 n)
≔ λn. refl ℕ n ≔ λn. refl ℕ n