mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 19:47:15 +03:00
18 lines
276 B
Plaintext
18 lines
276 B
Plaintext
QBool
|
|
: *
|
|
= $(self: QBool)
|
|
∀(P: ∀(x: QBool) *)
|
|
(Sigma
|
|
#U60
|
|
λt
|
|
∀(x:
|
|
#match t = t {
|
|
#0: (P QBool.true)
|
|
#+: #match t = t-1 {
|
|
#0: (P QBool.false)
|
|
#+: ∀(x: Empty) *
|
|
}: *
|
|
}: *
|
|
)
|
|
(P self)
|
|
) |