fact: Definition lbal l k vk r := match l with | Rd (Rd a x vx b) y vy c => Rd (Bk a x vx b) y vy (Bk c k vk r) | Rd a x vx (Rd b y vy c) => Rd (Bk a x vx b) y vy (Bk c k vk r) | _ => Bk l k vk r end.
imports: Coq(Bool BinPos Pnat Setoid SetoidList PeanoNat) Coq(Orders OrdersFacts OrdersLists) MMaps(Utils Interface OrdList GenTree)