proposition: Fact rbalS_match l x vx r : rspec (fun a y vy b => Rd l x vx (Bk a y vy b)) (fun r => match l with | Bk a y vy b => lbal (Rd a y vy b) x vx r | Rd a y vy (Bk b z vz c) => Rd (lbal (makeRed a) y vy b) z vz (Bk c x vx r) | _ => Rd l x vx r end) r (rbalS l x vx r).
proof: Proof. exact (rmatch _ _ _). Qed.
imports: Coq(Bool BinPos Pnat Setoid SetoidList PeanoNat) Coq(Orders OrdersFacts OrdersLists) MMaps(Utils Interface OrdList GenTree)