mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 20:40:38 +03:00
12 lines
219 B
Plaintext
12 lines
219 B
Plaintext
QUnit.one : QUnit =
|
|
~λP ~λSP λnew (new #0 λone one)
|
|
|
|
QUnit : * =
|
|
$(self: QUnit)
|
|
∀(P: ∀(x: QUnit) *)
|
|
(Sigma #U60 λtag
|
|
#match tag = tag {
|
|
#0: ∀(one: (P QUnit.one)) (P self)
|
|
#+: Empty
|
|
}: *)
|