mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-10-05 19:27:30 +03:00
10 lines
162 B
Plaintext
10 lines
162 B
Plaintext
The
|
|
: ∀(A: *)
|
|
∀(x: A)
|
|
*
|
|
= λA λx
|
|
$(self: (The A x))
|
|
∀(P: ∀(x: A) ∀(p: (The A x)) *)
|
|
∀(value: ∀(x: A) (P x (The.value A x)))
|
|
(P x self)
|