mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
7 lines
167 B
Plaintext
7 lines
167 B
Plaintext
Char.is_between
|
|
: ∀(min: Char) ∀(max: Char) ∀(chr: Char) Bool
|
|
= λmin λmax λchr
|
|
(Bool.and
|
|
(U60.to_bool #(>= chr min))
|
|
(U60.to_bool #(<= chr max))
|
|
) |