mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
12 lines
268 B
Plaintext
12 lines
268 B
Plaintext
Char.is_name
|
|
: ∀(a: Char)
|
|
Bool
|
|
= λa
|
|
(Bool.or (Char.is_between 'a' 'z' a)
|
|
(Bool.or (Char.is_between 'A' 'Z' a)
|
|
(Bool.or (Char.is_between '0' '9' a)
|
|
(Bool.or (Char.equal '_' a)
|
|
(Bool.or (Char.equal '.' a)
|
|
(Bool.or (Char.equal '-' a)
|
|
Bool.false))))))
|