mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
10 lines
233 B
Plaintext
10 lines
233 B
Plaintext
data The <A: *> (x: A)
|
|
| value (x: A) : (The A x)
|
|
|
|
// λ-encoded version:
|
|
// The <A: *> (x: A) : * =
|
|
// $(self: (The A x))
|
|
// ∀(P: ∀(x: A) ∀(t: (The A x)) *)
|
|
// ∀(value: ∀(x: A) (P x (The/value A x)))
|
|
// (P x self)
|