mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:46:40 +03:00
19 lines
458 B
Plaintext
19 lines
458 B
Plaintext
Char.is_oper
|
|
: ∀(a: Char)
|
|
Bool
|
|
= λa
|
|
(Bool.or (Char.equal '+' a)
|
|
(Bool.or (Char.equal '-' a)
|
|
(Bool.or (Char.equal '*' a)
|
|
(Bool.or (Char.equal '/' a)
|
|
(Bool.or (Char.equal '%' a)
|
|
(Bool.or (Char.equal '<' a)
|
|
(Bool.or (Char.equal '>' a)
|
|
(Bool.or (Char.equal '=' a)
|
|
(Bool.or (Char.equal '&' a)
|
|
(Bool.or (Char.equal '|' a)
|
|
(Bool.or (Char.equal '^' a)
|
|
(Bool.or (Char.equal '!' a)
|
|
(Bool.or (Char.equal '~' a)
|
|
Bool.false)))))))))))))
|