mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:25:31 +03:00
9 lines
155 B
Plaintext
9 lines
155 B
Plaintext
BBT.singleton
|
|
: ∀(K: *)
|
|
∀(V: *)
|
|
∀(key: K)
|
|
∀(val: V)
|
|
(BBT K V)
|
|
= λK λV λkey λval
|
|
(BBT.bin K V #1 key val (BBT.tip K V) (BBT.tip K V))
|