mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-19 09:28:20 +03:00
19 lines
383 B
Plaintext
19 lines
383 B
Plaintext
Kind.API.check
|
|
: ∀(term: Kind.Term) (IO Unit)
|
|
= λterm
|
|
(IO.run
|
|
Unit
|
|
(Kind.if.ref
|
|
term
|
|
(IO Unit)
|
|
λnam λval (Kind.API.check val)
|
|
λterm
|
|
(Kind.if.ann
|
|
term
|
|
(IO Unit)
|
|
λval λtyp
|
|
(Kind.API.check.done (Kind.check val typ Nat.zero))
|
|
λterm (Kind.API.check.done (Kind.infer term Nat.zero))
|
|
)
|
|
)
|
|
) |