Theorem: Batteries.RBNode.Path.Ordered.del
File: .lake/packages/batteries/Batteries/Data/RBMap/Alter.lean

Proof steps:
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
⊢ RBNode.Ordered cmp ((left c✝ parent x b).del a red)
state_after: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
⊢ RBNode.Ordered cmp (parent.del (node red a x b) c✝)
tactic: unfold del
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
⊢ RBNode.Ordered cmp (parent.del (node red a x b) c✝)
state_after: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
ax : All (fun a => cmpLT cmp a x) a
ap : All (RootOrdered cmp parent) a
⊢ RBNode.Ordered cmp (parent.del (node red a x b) c✝)
tactic: have ⟨ax, ap⟩ := All_and.1 H
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
ax : All (fun a => cmpLT cmp a x) a
ap : All (RootOrdered cmp parent) a
⊢ RBNode.Ordered cmp (parent.del (node red a x b) c✝)
state_after: no goals
tactic: exact hp.del ⟨ax, xb, ha, hb⟩ ⟨xp, ap, bp⟩
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
⊢ RBNode.Ordered cmp ((right c✝ a x parent).del b red)
state_after: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
⊢ RBNode.Ordered cmp (parent.del (node red a x b) c✝)
tactic: unfold del
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
⊢ RBNode.Ordered cmp (parent.del (node red a x b) c✝)
state_after: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
xb : All (cmpLT cmp x) b
bp : All (RootOrdered cmp parent) b
⊢ RBNode.Ordered cmp (parent.del (node red a x b) c✝)
tactic: have ⟨xb, bp⟩ := All_and.1 H
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
xb : All (cmpLT cmp x) b
bp : All (RootOrdered cmp parent) b
⊢ RBNode.Ordered cmp (parent.del (node red a x b) c✝)
state_after: no goals
tactic: exact hp.del ⟨ax, xb, ha, hb⟩ ⟨xp, ap, bp⟩
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
⊢ RBNode.Ordered cmp ((left c✝ parent x b).del a black)
state_after: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
⊢ RBNode.Ordered cmp (parent.del (a.balLeft x b) c✝)
tactic: unfold del
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
⊢ RBNode.Ordered cmp (parent.del (a.balLeft x b) c✝)
state_after: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
ax : All (fun a => cmpLT cmp a x) a
ap : All (RootOrdered cmp parent) a
⊢ RBNode.Ordered cmp (parent.del (a.balLeft x b) c✝)
tactic: have ⟨ax, ap⟩ := All_and.1 H
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
parent : Path α
x : α
b a : RBNode α
ha : RBNode.Ordered cmp a
hp : Ordered cmp parent
xb : All (fun x_1 => cmpLT cmp x x_1) b
xp : RootOrdered cmp parent x
bp : All (RootOrdered cmp parent) b
hb : RBNode.Ordered cmp b
H : All (RootOrdered cmp (left c✝ parent x b)) a
ax : All (fun a => cmpLT cmp a x) a
ap : All (RootOrdered cmp parent) a
⊢ RBNode.Ordered cmp (parent.del (a.balLeft x b) c✝)
state_after: no goals
tactic: exact hp.del (ha.balLeft ax xb hb) (ap.balLeft xp bp)
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
⊢ RBNode.Ordered cmp ((right c✝ a x parent).del b black)
state_after: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
⊢ RBNode.Ordered cmp (parent.del (a.balRight x b) c✝)
tactic: unfold del
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
⊢ RBNode.Ordered cmp (parent.del (a.balRight x b) c✝)
state_after: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
xb : All (cmpLT cmp x) b
bp : All (RootOrdered cmp parent) b
⊢ RBNode.Ordered cmp (parent.del (a.balRight x b) c✝)
tactic: have ⟨xb, bp⟩ := All_and.1 H
state_before: α : Type u_1
cmp : α → α → Ordering
c✝ : RBColor
a : RBNode α
x : α
parent : Path α
b : RBNode α
hb : RBNode.Ordered cmp b
hp : Ordered cmp parent
ax : All (fun x_1 => cmpLT cmp x_1 x) a
xp : RootOrdered cmp parent x
ap : All (RootOrdered cmp parent) a
ha : RBNode.Ordered cmp a
H : All (RootOrdered cmp (right c✝ a x parent)) b
xb : All (cmpLT cmp x) b
bp : All (RootOrdered cmp parent) b
⊢ RBNode.Ordered cmp (parent.del (a.balRight x b) c✝)
state_after: no goals
tactic: exact hp.del (ha.balRight ax xb hb) (ap.balRight xp bp)