mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 20:47:25 +03:00
9 lines
176 B
Plaintext
9 lines
176 B
Plaintext
Pair
|
|
: ∀(A: *) ∀(B: *) *
|
|
= λA λB
|
|
$(self: (Pair A B))
|
|
∀(P: ∀(pair: (Pair A B)) *)
|
|
∀(new:
|
|
∀(fst: A) ∀(snd: B) (P (Pair.new A B fst snd))
|
|
)
|
|
(P self) |