mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-17 18:57:12 +03:00
10 lines
370 B
Plaintext
10 lines
370 B
Plaintext
BBT.got_size
|
|
: ∀(K: *) ∀(V: *) ∀(map: (BBT K V))
|
|
(Pair U60 (BBT K V))
|
|
= λK λV λmap
|
|
use P = λx (Pair U60 (BBT K V))
|
|
use bin = λsize λnext.key λnext.val λnext.lft λnext.rgt
|
|
use map = (BBT.bin K V size next.key next.val next.lft next.rgt)
|
|
(Pair.new U60 (BBT K V) size map)
|
|
use tip = (Pair.new U60 (BBT K V) 0 (BBT.tip K V))
|
|
(~map P bin tip) |