mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:46:40 +03:00
11 lines
293 B
Plaintext
11 lines
293 B
Plaintext
BBT
|
|
: ∀(K: *) // Key type
|
|
∀(V: *) // Value type
|
|
*
|
|
= λ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)
|