mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
27 lines
537 B
Plaintext
27 lines
537 B
Plaintext
QBool2.match
|
|
: ∀(a: QBool2)
|
|
∀(P: ∀(x: QBool2) *)
|
|
∀(t: (P QBool2.true))
|
|
∀(f: (P QBool2.false))
|
|
(P a)
|
|
= λa λP λt λf
|
|
(~a
|
|
P
|
|
λtag
|
|
#match tag = tag {
|
|
#0: t
|
|
#+: #match tag_1 = tag-1 {
|
|
#0: f
|
|
#+: λe (~e λx *)
|
|
}: #match tag_1 = tag_1 {
|
|
#0: (P QBool2.false)
|
|
#+: ∀(e: Empty) *
|
|
}: *
|
|
}: #match tag = tag {
|
|
#0: (P QBool2.true)
|
|
#+: #match tag_1 = tag-1 {
|
|
#0: (P QBool2.false)
|
|
#+: ∀(e: Empty) *
|
|
}: *
|
|
}: *
|
|
) |