mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-10-26 16:20:58 +03:00
15 lines
262 B
Plaintext
15 lines
262 B
Plaintext
QBool2
|
|
: *
|
|
= $(self: QBool2)
|
|
∀(P: ∀(x: QBool2) *)
|
|
∀(new:
|
|
∀(tag: #U60)
|
|
#match tag = tag {
|
|
#0: (P QBool2.true)
|
|
#+: #match tag_1 = tag-1 {
|
|
#0: (P QBool2.false)
|
|
#+: ∀(e: Empty) *
|
|
}: *
|
|
}: *
|
|
)
|
|
(P self) |