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