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