∀ {α : Type u_1} {cmp : α → α → Ordering} {v : α} (c : Batteries.RBNode α) (y : α) (d : Batteries.RBNode α)
  (motive :
    Batteries.RBNode.All (fun x => Batteries.RBNode.cmpLT cmp v x) (Batteries.RBNode.node Batteries.RBColor.red c y d) →
      Prop)
  (vr :
    Batteries.RBNode.All (fun x => Batteries.RBNode.cmpLT cmp v x) (Batteries.RBNode.node Batteries.RBColor.red c y d)),
  (∀ (vy : Batteries.RBNode.cmpLT cmp v y) (vc : Batteries.RBNode.All (fun x => Batteries.RBNode.cmpLT cmp v x) c)
      (right : Batteries.RBNode.All (fun x => Batteries.RBNode.cmpLT cmp v x) d), motive ⋯) →
    motive vr