def insert_parent
import bend-collections@1.0.0.0/src/containers/balanced_search_tree.bend as BalancedSearchTreeimport Base
1570def insert_parent(~K: Data, ~V: Data, ~cmp: K -> K -> Cmp, m: TreeMap<K, V, cmp>, +z: Nat, +p: Nat, +pn: Node<K>, +is_red: Bool) -> TreeMap<K, V, cmp> & Fix:
1571 match is_red:
1572 case False{}:
1573 (m, Fix{0n, False{}})
1574 case True{}:
1575 insert_grand(~K, ~V, ~cmp, m, z, p, pn)