fact: Definition rrcase {A} f g m : A := match m with | Rd (Rd a x vx b) y vy c => f a x vx b y vy c | Rd a x vx (Rd b y vy c) => f a x vx b y vy c | _ => g m end.
imports: Coq(Bool BinPos Pnat Setoid SetoidList PeanoNat) Coq(Orders OrdersFacts OrdersLists) MMaps(Utils Interface OrdList GenTree)