ᛒ
Size: a a a
ᛒ
ᛒ
LP
AG
DM
DM
LP
Oℕ
AG
> parseNeu "(\\y.\\x.S <x []> : * -> * -> *) [`Z, `Z]"
Right (Cut (Ann (Lam "y" (Lam "x" (Succ (Emb (Var "x" []))))) (Imp A (Imp A A))) (Cons Zero (Cons Zero []))) : Either Error Neu
DM
AG
AG
DM
AG
arg : All (Box (Parser' Val) :-> Parser' Arg)
arg recv = alt (cmap Nil $ string "[]") $
between (char '[') (char ']') $
Combinators.map (flip apply Nil) $
chainl1
(alts [ cmap Inc $ char '$'
, tst recv
, map Cons $ rand (char '`') recv
])
(cmap (.) $ withSpaces $ char ',')
AK
ΛВ
DM
DM