mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 19:47:15 +03:00
15 lines
290 B
Plaintext
15 lines
290 B
Plaintext
BBT
|
|
: ∀(K: *) ∀(V: *) *
|
|
= λK λV
|
|
$(self: (BBT K V))
|
|
∀(P: ∀(bbt: (BBT K V)) *)
|
|
∀(bin:
|
|
∀(size: #U60)
|
|
∀(key: K)
|
|
∀(val: V)
|
|
∀(lft: (BBT K V))
|
|
∀(rgt: (BBT K V))
|
|
(P (BBT.bin K V size key val lft rgt))
|
|
)
|
|
∀(tip: (P (BBT.tip K V)))
|
|
(P self) |