mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-19 09:28:20 +03:00
4 lines
146 B
Plaintext
4 lines
146 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)) |