Additional lemmas for Red-black trees

@[simp, irreducible]

theorem Batteries.RBNode.min?_reverse {α : Type u_1} (t : RBNode α) : t.reverse.min? = t.max?

@[simp]

theorem Batteries.RBNode.max?_reverse {α : Type u_1} (t : RBNode α) : t.reverse.max? = t.min?

@[simp]

theorem Batteries.RBNode.mem_nil {α : Type u_1} {x : α} : ¬x ∈ nil

@[simp]

theorem Batteries.RBNode.mem_node {α : Type u_1} {y : α} {c : RBColor} {a : RBNode α} {x : α} {b : RBNode α} : y ∈ node c a x b ↔ y = x ∨ y ∈ a ∨ y ∈ b

theorem Batteries.RBNode.All_def {α : Type u_1} {p : α → Prop} {t : RBNode α} : All p t ↔ ∀ (x : α), x ∈ t → p x

theorem Batteries.RBNode.Any_def {α : Type u_1} {p : α → Prop} {t : RBNode α} : Any p t ↔ ∃ (x : α), x ∈ t ∧ p x

theorem Batteries.RBNode.memP_def {α✝ : Type u_1} {cut : α✝ → Ordering} {t : RBNode α✝} : MemP cut t ↔ ∃ (x : α✝), x ∈ t ∧ cut x = Ordering.eq

theorem Batteries.RBNode.mem_def {α✝ : Type u_1} {cmp : α✝ → α✝ → Ordering} {x : α✝} {t : RBNode α✝} : Mem cmp x t ↔ ∃ (y : α✝), y ∈ t ∧ cmp x y = Ordering.eq

theorem Batteries.RBNode.mem_congr {α : Type u_1} {cmp : α → α → Ordering} {x y : α} [Std.TransCmp cmp] {t : RBNode α} (h : cmp x y = Ordering.eq) : Mem cmp x t ↔ Mem cmp y t

theorem Batteries.RBNode.isOrdered_iff' {α : Type u_1} {cmp : α → α → Ordering} {L R : Option α} [Std.TransCmp cmp] {t : RBNode α} : isOrdered cmp t L R = true ↔ (∀ (a : α), a ∈ L → All (fun (x : α) => cmpLT cmp a x) t) ∧ (∀ (a : α), a ∈ R → All (fun (x : α) => cmpLT cmp x a) t) ∧ (∀ (a : α), a ∈ L → ∀ (b : α), b ∈ R → cmpLT cmp a b) ∧ Ordered cmp t

theorem Batteries.RBNode.isOrdered_iff {α : Type u_1} {cmp : α → α → Ordering} [Std.TransCmp cmp] {t : RBNode α} : isOrdered cmp t = true ↔ Ordered cmp t

@[implicit_reducible]

instance Batteries.RBNode.instDecidableOrderedOfTransCmp {α : Type u_1} (cmp : α → α → Ordering) [Std.TransCmp cmp] (t : RBNode α) : Decidable (Ordered cmp t)

Equations

• Batteries.RBNode.instDecidableOrderedOfTransCmp cmp t = decidable_of_iff (Batteries.RBNode.isOrdered cmp t = true) ⋯

class Batteries.RBNode.IsCut {α : Type u_1} (cmp : α → α → Ordering) (cut : α → Ordering) : Prop

A cut is like a homomorphism of orderings: it is a monotonic predicate with respect to cmp, but it can make things that are distinguished by cmp equal. This is sufficient for find? to locate an element on which cut returns .eq, but there may be other elements, not returned by find?, on which cut also returns .eq.

• le_lt_trans {x y : α} [Std.TransCmp cmp] : cmp x y ≠ Ordering.gt → cut x = Ordering.lt → cut y = Ordering.lt

  The set {x | cut x = .lt} is downward-closed.

• le_gt_trans {x y : α} [Std.TransCmp cmp] : cmp x y ≠ Ordering.gt → cut y = Ordering.gt → cut x = Ordering.gt

  The set {x | cut x = .gt} is upward-closed.

theorem Batteries.RBNode.IsCut.lt_trans {α✝ : Type u_1} {cmp : α✝ → α✝ → Ordering} {cut : α✝ → Ordering} {x y : α✝} [IsCut cmp cut] [Std.TransCmp cmp] (H : cmp x y = Ordering.lt) : cut x = Ordering.lt → cut y = Ordering.lt

theorem Batteries.RBNode.IsCut.gt_trans {α✝ : Type u_1} {cmp : α✝ → α✝ → Ordering} {cut : α✝ → Ordering} {x y : α✝} [IsCut cmp cut] [Std.TransCmp cmp] (H : cmp x y = Ordering.lt) : cut y = Ordering.gt → cut x = Ordering.gt

theorem Batteries.RBNode.IsCut.congr {α✝ : Type u_1} {cmp : α✝ → α✝ → Ordering} {cut : α✝ → Ordering} {x y : α✝} [IsCut cmp cut] [Std.TransCmp cmp] (H : cmp x y = Ordering.eq) : cut x = cut y

instance Batteries.RBNode.instIsCutFlipOrderingSwap {α : Type u_1} (cmp : α → α → Ordering) (cut : α → Ordering) [IsCut cmp cut] : IsCut (flip cmp) fun (x : α) => (cut x).swap

class Batteries.RBNode.IsStrictCut {α : Type u_1} (cmp : α → α → Ordering) (cut : α → Ordering) extends Batteries.RBNode.IsCut cmp cut : Prop

IsStrictCut upgrades the IsCut property to ensure that at most one element of the tree can match the cut, and hence find? will return the unique such element if one exists.

• le_lt_trans {x y : α} [Std.TransCmp cmp] : cmp x y ≠ Ordering.gt → cut x = Ordering.lt → cut y = Ordering.lt
• le_gt_trans {x y : α} [Std.TransCmp cmp] : cmp x y ≠ Ordering.gt → cut y = Ordering.gt → cut x = Ordering.gt
• exact {x y : α} [Std.TransCmp cmp] : cut x = Ordering.eq → cmp x y = cut y

  If cut = x, then cut and x have compare the same with respect to other elements.

instance Batteries.RBNode.instIsStrictCut {α : Type u_1} (cmp : α → α → Ordering) (a : α) : IsStrictCut cmp (cmp a)

A "representable cut" is one generated by cmp a for some a. This is always a valid cut.

instance Batteries.RBNode.instIsStrictCutFlipOrderingSwap {α : Type u_1} (cmp : α → α → Ordering) (cut : α → Ordering) [IsStrictCut cmp cut] : IsStrictCut (flip cmp) fun (x : α) => (cut x).swap

theorem Batteries.RBNode.foldr_cons {α : Type u_1} (t : RBNode α) (l : List α) : foldr (fun (x1 : α) (x2 : List α) => x1 :: x2) t l = t.toList ++ l

@[simp]

theorem Batteries.RBNode.toList_nil {α : Type u_1} : nil.toList = []

@[simp]

theorem Batteries.RBNode.toList_node {α : Type u_1} {c : RBColor} {a : RBNode α} {x : α} {b : RBNode α} : (node c a x b).toList = a.toList ++ x :: b.toList

@[simp]

theorem Batteries.RBNode.toList_reverse {α : Type u_1} (t : RBNode α) : t.reverse.toList = t.toList.reverse

@[simp]

theorem Batteries.RBNode.mem_toList {α : Type u_1} {x : α} {t : RBNode α} : x ∈ t.toList ↔ x ∈ t

@[simp]

theorem Batteries.RBNode.mem_reverse {α : Type u_1} {a : α} {t : RBNode α} : a ∈ t.reverse ↔ a ∈ t

theorem Batteries.RBNode.min?_eq_toList_head? {α : Type u_1} {t : RBNode α} : t.min? = t.toList.head?

theorem Batteries.RBNode.max?_eq_toList_getLast? {α : Type u_1} {t : RBNode α} : t.max? = t.toList.getLast?

theorem Batteries.RBNode.foldr_eq_foldr_toList {α : Type u_1} {α✝ : Type u_2} {f : α → α✝ → α✝} {init : α✝} {t : RBNode α} : foldr f t init = List.foldr f init t.toList

theorem Batteries.RBNode.foldl_eq_foldl_toList {α : Type u_1} {α✝ : Type u_2} {f : α✝ → α → α✝} {init : α✝} {t : RBNode α} : foldl f init t = List.foldl f init t.toList

theorem Batteries.RBNode.foldl_reverse {α : Type u_1} {β : Type u_2} {t : RBNode α} {f : β → α → β} {init : β} : foldl f init t.reverse = foldr (flip f) t init

theorem Batteries.RBNode.foldr_reverse {α : Type u_1} {β : Type u_2} {t : RBNode α} {f : α → β → β} {init : β} : foldr f t.reverse init = foldl (flip f) init t

theorem Batteries.RBNode.forM_eq_forM_toList {m : Type u_1 → Type u_2} {α : Type u_3} {f : α → m PUnit} [Monad m] [LawfulMonad m] {t : RBNode α} : forM f t = t.toList.forM f

theorem Batteries.RBNode.foldlM_eq_foldlM_toList {m : Type u_1 → Type u_2} {α : Type u_3} {a✝ : Type u_1} {f : a✝ → α → m a✝} {init : a✝} [Monad m] [LawfulMonad m] {t : RBNode α} : foldlM f init t = List.foldlM f init t.toList

theorem Batteries.RBNode.forIn_visit_eq_bindList {m : Type u_1 → Type u_2} {α : Type u_3} {α✝ : Type u_1} {f : α → α✝ → m (ForInStep α✝)} {init : α✝} [Monad m] [LawfulMonad m] {t : RBNode α} : forIn.visit f t init = ForInStep.bindList f t.toList (ForInStep.yield init)

theorem Batteries.RBNode.forIn_eq_forIn_toList {m : Type u_1 → Type u_2} {α : Type u_3} {α✝ : Type u_1} {init : α✝} {f : α → α✝ → m (ForInStep α✝)} [Monad m] [LawfulMonad m] {t : RBNode α} : forIn t init f = forIn t.toList init f

theorem Batteries.RBNode.Stream.foldr_cons {α : Type u_1} (t : RBNode.Stream α) (l : List α) : foldr (fun (x1 : α) (x2 : List α) => x1 :: x2) t l = t.toList ++ l

@[simp]

theorem Batteries.RBNode.Stream.toList_nil {α : Type u_1} : nil.toList = []

@[simp]

theorem Batteries.RBNode.Stream.toList_cons {α : Type u_1} {x : α} {r : RBNode α} {s : RBNode.Stream α} : (cons x r s).toList = x :: r.toList ++ s.toList

theorem Batteries.RBNode.Stream.foldr_eq_foldr_toList {α : Type u_1} {α✝ : Type u_2} {f : α → α✝ → α✝} {init : α✝} {s : RBNode.Stream α} : foldr f s init = List.foldr f init s.toList

theorem Batteries.RBNode.Stream.foldl_eq_foldl_toList {α : Type u_1} {α✝ : Type u_2} {f : α✝ → α → α✝} {init : α✝} {t : RBNode.Stream α} : foldl f init t = List.foldl f init t.toList

theorem Batteries.RBNode.Stream.forIn_eq_forIn_toList {m : Type u_1 → Type u_2} {α : Type u_3} {α✝ : Type u_1} {init : α✝} {f : α → α✝ → m (ForInStep α✝)} [Monad m] [LawfulMonad m] {t : RBNode α} : forIn t init f = forIn t.toList init f

theorem Batteries.RBNode.toStream_toList' {α : Type u_1} {t : RBNode α} {s : RBNode.Stream α} : (t.toStream s).toList = t.toList ++ s.toList

@[simp]

theorem Batteries.RBNode.toStream_toList {α : Type u_1} {t : RBNode α} : t.toStream.toList = t.toList

theorem Batteries.RBNode.Stream.next?_toList {α : Type u_1} {s : RBNode.Stream α} : Option.map (fun (x : α × RBNode.Stream α) => match x with | (a, b) => (a, b.toList)) s.next? = s.toList.next?

theorem Batteries.RBNode.ordered_iff {α : Type u_1} {cmp : α → α → Ordering} {t : RBNode α} : Ordered cmp t ↔ List.Pairwise (cmpLT cmp) t.toList

theorem Batteries.RBNode.Ordered.toList_sorted {α : Type u_1} {cmp : α → α → Ordering} {t : RBNode α} : Ordered cmp t → List.Pairwise (cmpLT cmp) t.toList

theorem Batteries.RBNode.min?_mem {α : Type u_1} {a : α} {t : RBNode α} (h : t.min? = some a) : a ∈ t

theorem Batteries.RBNode.Ordered.min?_le {α : Type u_1} {cmp : α → α → Ordering} {a : α} {t : RBNode α} [Std.TransCmp cmp] (ht : Ordered cmp t) (h : t.min? = some a) (x : α) (hx : x ∈ t) : cmp a x ≠ Ordering.gt

theorem Batteries.RBNode.max?_mem {α : Type u_1} {a : α} {t : RBNode α} (h : t.max? = some a) : a ∈ t

theorem Batteries.RBNode.Ordered.le_max? {α : Type u_1} {cmp : α → α → Ordering} {a : α} {t : RBNode α} [Std.TransCmp cmp] (ht : Ordered cmp t) (h : t.max? = some a) (x : α) (hx : x ∈ t) : cmp x a ≠ Ordering.gt

@[simp]

theorem Batteries.RBNode.setBlack_toList {α : Type u_1} {t : RBNode α} : t.setBlack.toList = t.toList

@[simp]

theorem Batteries.RBNode.setRed_toList {α : Type u_1} {t : RBNode α} : t.setRed.toList = t.toList

@[simp]

theorem Batteries.RBNode.balance1_toList {α : Type u_1} {l : RBNode α} {v : α} {r : RBNode α} : (l.balance1 v r).toList = l.toList ++ v :: r.toList

@[simp]

theorem Batteries.RBNode.balance2_toList {α : Type u_1} {l : RBNode α} {v : α} {r : RBNode α} : (l.balance2 v r).toList = l.toList ++ v :: r.toList

@[simp]

theorem Batteries.RBNode.balLeft_toList {α : Type u_1} {l : RBNode α} {v : α} {r : RBNode α} : (l.balLeft v r).toList = l.toList ++ v :: r.toList

@[simp]

theorem Batteries.RBNode.balRight_toList {α : Type u_1} {l : RBNode α} {v : α} {r : RBNode α} : (l.balRight v r).toList = l.toList ++ v :: r.toList

theorem Batteries.RBNode.size_eq {α : Type u_1} {t : RBNode α} : t.size = t.toList.length

@[simp]

theorem Batteries.RBNode.reverse_size {α : Type u_1} (t : RBNode α) : t.reverse.size = t.size

@[simp]

theorem Batteries.RBNode.Any_reverse {α : Type u_1} {p : α → Prop} {t : RBNode α} : Any p t.reverse ↔ Any p t

@[simp]

theorem Batteries.RBNode.memP_reverse {α : Type u_1} {cut : α → Ordering} {t : RBNode α} : MemP cut t.reverse ↔ MemP (fun (x : α) => (cut x).swap) t

theorem Batteries.RBNode.Mem_reverse {α : Type u_1} {cmp : α → α → Ordering} {x : α} [Std.OrientedCmp cmp] {t : RBNode α} : Mem cmp x t.reverse ↔ Mem (flip cmp) x t

theorem Batteries.RBNode.find?_some_eq_eq {α : Type u_1} {cut : α → Ordering} {x : α} {t : RBNode α} : x ∈ find? cut t → cut x = Ordering.eq

theorem Batteries.RBNode.find?_some_mem {α : Type u_1} {cut : α → Ordering} {x : α} {t : RBNode α} : x ∈ find? cut t → x ∈ t

theorem Batteries.RBNode.find?_some_memP {α : Type u_1} {cut : α → Ordering} {x : α} {t : RBNode α} (h : x ∈ find? cut t) : MemP cut t

theorem Batteries.RBNode.Ordered.memP_iff_find? {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} [Std.TransCmp cmp] [IsCut cmp cut] (ht : Ordered cmp t) : MemP cut t ↔ ∃ (x : α), find? cut t = some x

theorem Batteries.RBNode.Ordered.unique {α : Type u_1} {cmp : α → α → Ordering} {t : RBNode α} {x y : α} [Std.TransCmp cmp] (ht : Ordered cmp t) (hx : x ∈ t) (hy : y ∈ t) (e : cmp x y = Ordering.eq) : x = y

theorem Batteries.RBNode.Ordered.find?_some {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} {x : α} [Std.TransCmp cmp] [IsStrictCut cmp cut] (ht : Ordered cmp t) : find? cut t = some x ↔ x ∈ t ∧ cut x = Ordering.eq

@[simp]

theorem Batteries.RBNode.find?_reverse {α : Type u_1} (t : RBNode α) (cut : α → Ordering) : find? cut t.reverse = find? (fun (x : α) => (cut x).swap) t

def Batteries.RBNode.setRoot {α : Type u_1} (v : α) : RBNode α → RBNode α

Auxiliary definition for zoom_ins: set the root of the tree to v, creating a node if necessary.

Equations

• Batteries.RBNode.setRoot v Batteries.RBNode.nil = Batteries.RBNode.node Batteries.RBColor.red Batteries.RBNode.nil v Batteries.RBNode.nil
• Batteries.RBNode.setRoot v (Batteries.RBNode.node c a v_1 b) = Batteries.RBNode.node c a v b

def Batteries.RBNode.delRoot {α : Type u_1} : RBNode α → RBNode α

Auxiliary definition for zoom_ins: set the root of the tree to v, creating a node if necessary.

Equations

• Batteries.RBNode.nil.delRoot = Batteries.RBNode.nil
• (Batteries.RBNode.node c a v b).delRoot = a.append b

@[simp]

theorem Batteries.RBNode.upperBound?_reverse {α : Type u_1} (t : RBNode α) (cut : α → Ordering) (ub : Option α) : upperBound? cut t.reverse ub = lowerBound? (fun (x : α) => (cut x).swap) t ub

@[simp]

theorem Batteries.RBNode.lowerBound?_reverse {α : Type u_1} (t : RBNode α) (cut : α → Ordering) (lb : Option α) : lowerBound? cut t.reverse lb = upperBound? (fun (x : α) => (cut x).swap) t lb

theorem Batteries.RBNode.upperBound?_eq_find? {α : Type u_1} {x : α} {t : RBNode α} {cut : α → Ordering} (ub : Option α) (H : find? cut t = some x) : upperBound? cut t ub = some x

theorem Batteries.RBNode.lowerBound?_eq_find? {α : Type u_1} {x : α} {t : RBNode α} {cut : α → Ordering} (lb : Option α) (H : find? cut t = some x) : lowerBound? cut t lb = some x

theorem Batteries.RBNode.upperBound?_ge' {α : Type u_1} {ub : Option α} {cut : α → Ordering} {x : α} {t : RBNode α} (H : ∀ {x : α}, x ∈ ub → cut x ≠ Ordering.gt) : upperBound? cut t ub = some x → cut x ≠ Ordering.gt

The value x returned by upperBound? is greater or equal to the cut.

theorem Batteries.RBNode.upperBound?_ge {α : Type u_1} {cut : α → Ordering} {x : α} {t : RBNode α} : upperBound? cut t = some x → cut x ≠ Ordering.gt

The value x returned by upperBound? is greater or equal to the cut.

theorem Batteries.RBNode.lowerBound?_le' {α : Type u_1} {lb : Option α} {cut : α → Ordering} {x : α} {t : RBNode α} (H : ∀ {x : α}, x ∈ lb → cut x ≠ Ordering.lt) : lowerBound? cut t lb = some x → cut x ≠ Ordering.lt

The value x returned by lowerBound? is less or equal to the cut.

theorem Batteries.RBNode.lowerBound?_le {α : Type u_1} {cut : α → Ordering} {x : α} {t : RBNode α} : lowerBound? cut t = some x → cut x ≠ Ordering.lt

The value x returned by lowerBound? is less or equal to the cut.

theorem Batteries.RBNode.All.upperBound?_ub {α : Type u_1} {p : α → Prop} {ub : Option α} {cut : α → Ordering} {x : α} {t : RBNode α} (hp : All p t) (H : ∀ {x : α}, ub = some x → p x) : RBNode.upperBound? cut t ub = some x → p x

theorem Batteries.RBNode.All.upperBound? {α : Type u_1} {p : α → Prop} {cut : α → Ordering} {x : α} {t : RBNode α} (hp : All p t) : RBNode.upperBound? cut t = some x → p x

theorem Batteries.RBNode.All.lowerBound?_lb {α : Type u_1} {p : α → Prop} {lb : Option α} {cut : α → Ordering} {x : α} {t : RBNode α} (hp : All p t) (H : ∀ {x : α}, lb = some x → p x) : RBNode.lowerBound? cut t lb = some x → p x

theorem Batteries.RBNode.All.lowerBound? {α : Type u_1} {p : α → Prop} {cut : α → Ordering} {x : α} {t : RBNode α} (hp : All p t) : RBNode.lowerBound? cut t = some x → p x

theorem Batteries.RBNode.upperBound?_mem_ub {α : Type u_1} {cut : α → Ordering} {ub : Option α} {x : α} {t : RBNode α} (h : upperBound? cut t ub = some x) : x ∈ t ∨ ub = some x

theorem Batteries.RBNode.upperBound?_mem {α : Type u_1} {cut : α → Ordering} {x : α} {t : RBNode α} (h : upperBound? cut t = some x) : x ∈ t

theorem Batteries.RBNode.lowerBound?_mem_lb {α : Type u_1} {cut : α → Ordering} {lb : Option α} {x : α} {t : RBNode α} (h : lowerBound? cut t lb = some x) : x ∈ t ∨ lb = some x

theorem Batteries.RBNode.lowerBound?_mem {α : Type u_1} {cut : α → Ordering} {x : α} {t : RBNode α} (h : lowerBound? cut t = some x) : x ∈ t

theorem Batteries.RBNode.upperBound?_of_some {α : Type u_1} {cut : α → Ordering} {y : α} {t : RBNode α} : ∃ (x : α), upperBound? cut t (some y) = some x

theorem Batteries.RBNode.lowerBound?_of_some {α : Type u_1} {cut : α → Ordering} {y : α} {t : RBNode α} : ∃ (x : α), lowerBound? cut t (some y) = some x

theorem Batteries.RBNode.Ordered.upperBound?_exists {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} [Std.TransCmp cmp] [IsCut cmp cut] (h : Ordered cmp t) : (∃ (x : α), upperBound? cut t = some x) ↔ ∃ (x : α), x ∈ t ∧ cut x ≠ Ordering.gt

theorem Batteries.RBNode.Ordered.lowerBound?_exists {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} [Std.TransCmp cmp] [IsCut cmp cut] (h : Ordered cmp t) : (∃ (x : α), lowerBound? cut t = some x) ↔ ∃ (x : α), x ∈ t ∧ cut x ≠ Ordering.lt

theorem Batteries.RBNode.Ordered.upperBound?_least_ub {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} {ub : Option α} {x y : α} [Std.TransCmp cmp] [IsCut cmp cut] (h : Ordered cmp t) (hub : ∀ {x : α}, ub = some x → All (fun (x_1 : α) => cmpLT cmp x_1 x) t) : upperBound? cut t ub = some x → y ∈ t → cut x = Ordering.lt → cmp y x = Ordering.lt → cut y = Ordering.gt

theorem Batteries.RBNode.Ordered.lowerBound?_greatest_lb {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} {lb : Option α} {x y : α} [Std.TransCmp cmp] [IsCut cmp cut] (h : Ordered cmp t) (hlb : ∀ {x : α}, lb = some x → All (fun (x_1 : α) => cmpLT cmp x x_1) t) : lowerBound? cut t lb = some x → y ∈ t → cut x = Ordering.gt → cmp x y = Ordering.lt → cut y = Ordering.lt

theorem Batteries.RBNode.Ordered.upperBound?_least {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} {x y : α} [Std.TransCmp cmp] [IsCut cmp cut] (ht : Ordered cmp t) (H : upperBound? cut t = some x) (hy : y ∈ t) (xy : cmp y x = Ordering.lt) (hx : cut x = Ordering.lt) : cut y = Ordering.gt

A statement of the least-ness of the result of upperBound?. If x is the return value of upperBound? and it is strictly greater than the cut, then any other y < x in the tree is in fact strictly less than the cut (so there is no exact match, and nothing closer to the cut).

theorem Batteries.RBNode.Ordered.lowerBound?_greatest {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} {x y : α} [Std.TransCmp cmp] [IsCut cmp cut] (ht : Ordered cmp t) (H : lowerBound? cut t = some x) (hy : y ∈ t) (xy : cmp x y = Ordering.lt) (hx : cut x = Ordering.gt) : cut y = Ordering.lt

A statement of the greatest-ness of the result of lowerBound?. If x is the return value of lowerBound? and it is strictly less than the cut, then any other y > x in the tree is in fact strictly greater than the cut (so there is no exact match, and nothing closer to the cut).

theorem Batteries.RBNode.Ordered.memP_iff_upperBound? {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} [Std.TransCmp cmp] [IsCut cmp cut] (ht : Ordered cmp t) : MemP cut t ↔ ∃ (x : α), upperBound? cut t = some x ∧ cut x = Ordering.eq

theorem Batteries.RBNode.Ordered.memP_iff_lowerBound? {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} [Std.TransCmp cmp] [IsCut cmp cut] (ht : Ordered cmp t) : MemP cut t ↔ ∃ (x : α), lowerBound? cut t = some x ∧ cut x = Ordering.eq

theorem Batteries.RBNode.Ordered.lowerBound?_lt {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} {x y : α} [Std.TransCmp cmp] [IsStrictCut cmp cut] (ht : Ordered cmp t) (H : lowerBound? cut t = some x) (hy : y ∈ t) : cmp x y = Ordering.lt ↔ cut y = Ordering.lt

A stronger version of lowerBound?_greatest that holds when the cut is strict.

theorem Batteries.RBNode.Ordered.lt_upperBound? {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBNode α} {x y : α} [Std.TransCmp cmp] [IsStrictCut cmp cut] (ht : Ordered cmp t) (H : upperBound? cut t = some x) (hy : y ∈ t) : cmp y x = Ordering.lt ↔ cut y = Ordering.gt

A stronger version of upperBound?_least that holds when the cut is strict.

def Batteries.RBNode.Path.listL {α : Type u_1} : Path α → List α

The list of elements to the left of the hole. (This function is intended for specification purposes only.)

Equations

• Batteries.RBNode.Path.root.listL = []
• (Batteries.RBNode.Path.left c parent v r).listL = parent.listL
• (Batteries.RBNode.Path.right c l v parent).listL = parent.listL ++ (l.toList ++ [v])

def Batteries.RBNode.Path.listR {α : Type u_1} : Path α → List α

The list of elements to the right of the hole. (This function is intended for specification purposes only.)

Equations

• Batteries.RBNode.Path.root.listR = []
• (Batteries.RBNode.Path.left c parent v r).listR = v :: r.toList ++ parent.listR
• (Batteries.RBNode.Path.right c l v parent).listR = parent.listR

@[reducible, inline]

abbrev Batteries.RBNode.Path.withList {α : Type u_1} (p : Path α) (l : List α) : List α

Wraps a list of elements with the left and right elements of the path.

Equations

• p.withList l = p.listL ++ l ++ p.listR

theorem Batteries.RBNode.Path.rootOrdered_iff {α : Type u_1} {cmp : α → α → Ordering} {v : α} {p : Path α} (hp : Ordered cmp p) : RootOrdered cmp p v ↔ (∀ (a : α), a ∈ p.listL → cmpLT cmp a v) ∧ ∀ (a : α), a ∈ p.listR → cmpLT cmp v a

theorem Batteries.RBNode.Path.ordered_iff {α : Type u_1} {cmp : α → α → Ordering} {p : Path α} : Ordered cmp p ↔ List.Pairwise (cmpLT cmp) p.listL ∧ List.Pairwise (cmpLT cmp) p.listR ∧ ∀ (x : α), x ∈ p.listL → ∀ (y : α), y ∈ p.listR → cmpLT cmp x y

theorem Batteries.RBNode.Path.zoom_zoomed₁ {α✝ : Type u_1} {cut : α✝ → Ordering} {t : RBNode α✝} {path : Path α✝} {t' : RBNode α✝} {path' : Path α✝} (e : zoom cut t path = (t', path')) : OnRoot (fun (x : α✝) => cut x = Ordering.eq) t'

@[simp]

theorem Batteries.RBNode.Path.fill_toList {α : Type u_1} {t : RBNode α} {p : Path α} : (p.fill t).toList = p.withList t.toList

theorem Batteries.RBNode.zoom_toList {α : Type u_1} {cut : α → Ordering} {t' : RBNode α} {p' : Path α} {t : RBNode α} (eq : zoom cut t = (t', p')) : p'.withList t'.toList = t.toList

@[simp]

theorem Batteries.RBNode.Path.ins_toList {α : Type u_1} {t : RBNode α} {p : Path α} : (p.ins t).toList = p.withList t.toList

@[simp]

theorem Batteries.RBNode.Path.insertNew_toList {α : Type u_1} {v : α} {p : Path α} : (p.insertNew v).toList = p.withList [v]

theorem Batteries.RBNode.Path.insert_toList {α : Type u_1} {t : RBNode α} {v : α} {p : Path α} : (p.insert t v).toList = p.withList (setRoot v t).toList

theorem Batteries.RBNode.Path.Balanced.insert {α : Type u_1} {c₀ : RBColor} {n₀ : Nat} {c : RBColor} {n : Nat} {t : RBNode α} {v : α} {path : Path α} (hp : Path.Balanced c₀ n₀ path c n) : t.Balanced c n → ∃ (c : RBColor), ∃ (n : Nat), (path.insert t v).Balanced c n

theorem Batteries.RBNode.Path.Ordered.insert {α : Type u_1} {cmp : α → α → Ordering} {v : α} {path : Path α} {t : RBNode α} : Ordered cmp path → RBNode.Ordered cmp t → All (RootOrdered cmp path) t → RootOrdered cmp path v → OnRoot (cmpEq cmp v) t → RBNode.Ordered cmp (path.insert t v)

theorem Batteries.RBNode.Path.Ordered.erase {α : Type u_1} {cmp : α → α → Ordering} {path : Path α} {t : RBNode α} : Ordered cmp path → RBNode.Ordered cmp t → All (RootOrdered cmp path) t → RBNode.Ordered cmp (path.erase t)

@[irreducible]

theorem Batteries.RBNode.Path.zoom_ins {α : Type u_1} {v : α} {path : Path α} {t' : RBNode α} {path' : Path α} {t : RBNode α} {cmp : α → α → Ordering} : zoom (cmp v) t path = (t', path') → path.ins (RBNode.ins cmp v t) = path'.ins (setRoot v t')

theorem Batteries.RBNode.Path.insertNew_eq_insert {α✝ : Type u_1} {cmp : α✝ → α✝ → Ordering} {t : RBNode α✝} {path : Path α✝} {v : α✝} (h : zoom (cmp v) t = (nil, path)) : path.insertNew v = (RBNode.insert cmp t v).setBlack

theorem Batteries.RBNode.Path.ins_eq_fill {α : Type u_1} {c₀ : RBColor} {n₀ : Nat} {c : RBColor} {n : Nat} {path : Path α} {t : RBNode α} : Path.Balanced c₀ n₀ path c n → t.Balanced c n → path.ins t = (path.fill t).setBlack

theorem Batteries.RBNode.Path.zoom_insert {α : Type u_1} {c : RBColor} {n : Nat} {cmp : α → α → Ordering} {t' : RBNode α} {v : α} {path : Path α} {t : RBNode α} (ht : t.Balanced c n) (H : zoom (cmp v) t = (t', path)) : (path.insert t' v).setBlack = (RBNode.insert cmp t v).setBlack

@[irreducible]

theorem Batteries.RBNode.Path.zoom_del {α : Type u_1} {cut : α → Ordering} {path : Path α} {t' : RBNode α} {path' : Path α} {t : RBNode α} : zoom cut t path = (t', path') → path.del (RBNode.del cut t) (match t with | node c l v r => c | x => RBColor.red) = path'.del t'.delRoot (match t' with | node c l v r => c | x => RBColor.red)

def Batteries.RBNode.Path.AllL {α : Type u_1} (p : α → Prop) : Path α → Prop

Asserts that p holds on all elements to the left of the hole.

Equations

• Batteries.RBNode.Path.AllL p Batteries.RBNode.Path.root = True
• Batteries.RBNode.Path.AllL p (Batteries.RBNode.Path.left c parent v r) = Batteries.RBNode.Path.AllL p parent
• Batteries.RBNode.Path.AllL p (Batteries.RBNode.Path.right c l v parent) = (Batteries.RBNode.All p l ∧ p v ∧ Batteries.RBNode.Path.AllL p parent)

def Batteries.RBNode.Path.AllR {α : Type u_1} (p : α → Prop) : Path α → Prop

Asserts that p holds on all elements to the right of the hole.

Equations

• Batteries.RBNode.Path.AllR p Batteries.RBNode.Path.root = True
• Batteries.RBNode.Path.AllR p (Batteries.RBNode.Path.left c parent v r) = (Batteries.RBNode.Path.AllR p parent ∧ p v ∧ Batteries.RBNode.All p r)
• Batteries.RBNode.Path.AllR p (Batteries.RBNode.Path.right c l v parent) = Batteries.RBNode.Path.AllR p parent

theorem Batteries.RBNode.insert_toList_zoom {α : Type u_1} {c : RBColor} {n : Nat} {cmp : α → α → Ordering} {t' : RBNode α} {p : Path α} {v : α} {t : RBNode α} (ht : t.Balanced c n) (e : zoom (cmp v) t = (t', p)) : (insert cmp t v).toList = p.withList (setRoot v t').toList

theorem Batteries.RBNode.insert_toList_zoom_nil {α : Type u_1} {c : RBColor} {n : Nat} {cmp : α → α → Ordering} {p : Path α} {v : α} {t : RBNode α} (ht : t.Balanced c n) (e : zoom (cmp v) t = (nil, p)) : (insert cmp t v).toList = p.withList [v]

theorem Batteries.RBNode.exists_insert_toList_zoom_nil {α : Type u_1} {c : RBColor} {n : Nat} {cmp : α → α → Ordering} {p : Path α} {v : α} {t : RBNode α} (ht : t.Balanced c n) (e : zoom (cmp v) t = (nil, p)) : ∃ (L : List α), ∃ (R : List α), t.toList = L ++ R ∧ (insert cmp t v).toList = L ++ v :: R

theorem Batteries.RBNode.insert_toList_zoom_node {α : Type u_1} {c : RBColor} {n : Nat} {cmp : α → α → Ordering} {c' : RBColor} {l : RBNode α} {v' : α} {r : RBNode α} {p : Path α} {v : α} {t : RBNode α} (ht : t.Balanced c n) (e : zoom (cmp v) t = (node c' l v' r, p)) : (insert cmp t v).toList = p.withList (node c l v r).toList

theorem Batteries.RBNode.exists_insert_toList_zoom_node {α : Type u_1} {c : RBColor} {n : Nat} {cmp : α → α → Ordering} {c' : RBColor} {l : RBNode α} {v' : α} {r : RBNode α} {p : Path α} {v : α} {t : RBNode α} (ht : t.Balanced c n) (e : zoom (cmp v) t = (node c' l v' r, p)) : ∃ (L : List α), ∃ (R : List α), t.toList = L ++ v' :: R ∧ (insert cmp t v).toList = L ++ v :: R

theorem Batteries.RBNode.mem_insert_self {α : Type u_1} {c : RBColor} {n : Nat} {cmp : α → α → Ordering} {v : α} {t : RBNode α} (ht : t.Balanced c n) : v ∈ insert cmp t v

theorem Batteries.RBNode.mem_insert_of_mem {α : Type u_1} {c : RBColor} {n : Nat} {v' : α} {cmp : α → α → Ordering} {v : α} {t : RBNode α} (ht : t.Balanced c n) (h : v' ∈ t) : v' ∈ insert cmp t v ∨ cmp v v' = Ordering.eq

theorem Batteries.RBNode.exists_find?_insert_self {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {c : RBColor} {n : Nat} {v : α} [Std.TransCmp cmp] [IsCut cmp cut] {t : RBNode α} (ht : t.Balanced c n) (ht₂ : Ordered cmp t) (hv : cut v = Ordering.eq) : ∃ (x : α), find? cut (insert cmp t v) = some x

theorem Batteries.RBNode.find?_insert_self {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {c : RBColor} {n : Nat} {v : α} [Std.TransCmp cmp] [IsStrictCut cmp cut] {t : RBNode α} (ht : t.Balanced c n) (ht₂ : Ordered cmp t) (hv : cut v = Ordering.eq) : find? cut (insert cmp t v) = some v

theorem Batteries.RBNode.mem_insert {α : Type u_1} {cmp : α → α → Ordering} {c : RBColor} {n : Nat} {v v' : α} [Std.TransCmp cmp] {t : RBNode α} (ht : t.Balanced c n) (ht₂ : Ordered cmp t) : v' ∈ insert cmp t v ↔ v' ∈ t ∧ find? (cmp v) t ≠ some v' ∨ v' = v

@[simp]

theorem Batteries.RBSet.val_toList {α : Type u_1} {cmp : α → α → Ordering} {t : RBSet α cmp} : t.val.toList = t.toList

@[simp]

theorem Batteries.RBSet.mkRBSet_eq {α : Type u_1} {cmp : α → α → Ordering} : mkRBSet α cmp = ∅

@[simp]

theorem Batteries.RBSet.empty_eq {α : Type u_1} {cmp : α → α → Ordering} : empty = ∅

@[simp]

theorem Batteries.RBSet.default_eq {α : Type u_1} {cmp : α → α → Ordering} : default = ∅

@[simp]

theorem Batteries.RBSet.empty_toList {α : Type u_1} {cmp : α → α → Ordering} : ∅.toList = []

@[simp]

theorem Batteries.RBSet.single_toList {α : Type u_1} {cmp : α → α → Ordering} {a : α} : (single a).toList = [a]

theorem Batteries.RBSet.mem_toList {α : Type u_1} {cmp : α → α → Ordering} {x : α} {t : RBSet α cmp} : x ∈ t.toList ↔ x ∈ t.val

theorem Batteries.RBSet.mem_congr {α : Type u_1} {cmp : α → α → Ordering} {x y : α} [Std.TransCmp cmp] {t : RBSet α cmp} (h : cmp x y = Ordering.eq) : x ∈ t ↔ y ∈ t

theorem Batteries.RBSet.mem_iff_mem_toList {α : Type u_1} {cmp : α → α → Ordering} {x : α} {t : RBSet α cmp} : x ∈ t ↔ ∃ (y : α), y ∈ t.toList ∧ cmp x y = Ordering.eq

theorem Batteries.RBSet.mem_of_mem_toList {α : Type u_1} {cmp : α → α → Ordering} {x : α} [Std.OrientedCmp cmp] {t : RBSet α cmp} (h : x ∈ t.toList) : x ∈ t

theorem Batteries.RBSet.foldl_eq_foldl_toList {α : Type u_1} {cmp : α → α → Ordering} {α✝ : Type u_2} {f : α✝ → α → α✝} {init : α✝} {t : RBSet α cmp} : foldl f init t = List.foldl f init t.toList

theorem Batteries.RBSet.foldr_eq_foldr_toList {α : Type u_1} {cmp : α → α → Ordering} {α✝ : Type u_2} {f : α → α✝ → α✝} {init : α✝} {t : RBSet α cmp} : foldr f init t = List.foldr f init t.toList

theorem Batteries.RBSet.foldlM_eq_foldlM_toList {m : Type u_1 → Type u_2} {α : Type u_3} {cmp : α → α → Ordering} {a✝ : Type u_1} {f : a✝ → α → m a✝} {init : a✝} [Monad m] [LawfulMonad m] {t : RBSet α cmp} : foldlM f init t = List.foldlM f init t.toList

theorem Batteries.RBSet.forM_eq_forM_toList {m : Type u_1 → Type u_2} {α : Type u_3} {cmp : α → α → Ordering} {f : α → m PUnit} [Monad m] [LawfulMonad m] {t : RBSet α cmp} : forM f t = t.toList.forM f

theorem Batteries.RBSet.forIn_eq_forIn_toList {m : Type u_1 → Type u_2} {α : Type u_3} {cmp : α → α → Ordering} {α✝ : Type u_1} {init : α✝} {f : α → α✝ → m (ForInStep α✝)} [Monad m] [LawfulMonad m] {t : RBSet α cmp} : forIn t init f = forIn t.toList init f

theorem Batteries.RBSet.toStream_eq {α : Type u_1} {cmp : α → α → Ordering} {t : RBSet α cmp} : Std.toStream t = t.val.toStream

@[simp]

theorem Batteries.RBSet.toStream_toList {α : Type u_1} {cmp : α → α → Ordering} {t : RBSet α cmp} : (Std.toStream t).toList = t.toList

theorem Batteries.RBSet.isEmpty_iff_toList_eq_nil {α : Type u_1} {cmp : α → α → Ordering} {t : RBSet α cmp} : t.isEmpty = true ↔ t.toList = []

theorem Batteries.RBSet.toList_sorted {α : Type u_1} {cmp : α → α → Ordering} {t : RBSet α cmp} : List.Pairwise (RBNode.cmpLT cmp) t.toList

theorem Batteries.RBSet.findP?_some_eq_eq {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {y : α} {t : RBSet α cmp} : t.findP? cut = some y → cut y = Ordering.eq

theorem Batteries.RBSet.find?_some_eq_eq {α : Type u_1} {cmp : α → α → Ordering} {x y : α} {t : RBSet α cmp} : t.find? x = some y → cmp x y = Ordering.eq

theorem Batteries.RBSet.findP?_some_mem_toList {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {y : α} {t : RBSet α cmp} (h : t.findP? cut = some y) : y ∈ t.toList

theorem Batteries.RBSet.find?_some_mem_toList {α : Type u_1} {cmp : α → α → Ordering} {x y : α} {t : RBSet α cmp} (h : t.find? x = some y) : y ∈ t.toList

theorem Batteries.RBSet.findP?_some_memP {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {y : α} {t : RBSet α cmp} (h : t.findP? cut = some y) : MemP cut t

theorem Batteries.RBSet.find?_some_mem {α : Type u_1} {cmp : α → α → Ordering} {x y : α} {t : RBSet α cmp} (h : t.find? x = some y) : x ∈ t

theorem Batteries.RBSet.mem_toList_unique {α : Type u_1} {cmp : α → α → Ordering} {x y : α} [Std.TransCmp cmp] {t : RBSet α cmp} (hx : x ∈ t.toList) (hy : y ∈ t.toList) (e : cmp x y = Ordering.eq) : x = y

theorem Batteries.RBSet.findP?_some {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {y : α} [Std.TransCmp cmp] [RBNode.IsStrictCut cmp cut] {t : RBSet α cmp} : t.findP? cut = some y ↔ y ∈ t.toList ∧ cut y = Ordering.eq

theorem Batteries.RBSet.find?_some {α : Type u_1} {cmp : α → α → Ordering} {x y : α} [Std.TransCmp cmp] {t : RBSet α cmp} : t.find? x = some y ↔ y ∈ t.toList ∧ cmp x y = Ordering.eq

theorem Batteries.RBSet.memP_iff_findP? {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} [Std.TransCmp cmp] [RBNode.IsCut cmp cut] {t : RBSet α cmp} : MemP cut t ↔ ∃ (y : α), t.findP? cut = some y

theorem Batteries.RBSet.mem_iff_find? {α : Type u_1} {cmp : α → α → Ordering} {x : α} [Std.TransCmp cmp] {t : RBSet α cmp} : x ∈ t ↔ ∃ (y : α), t.find? x = some y

@[simp]

theorem Batteries.RBSet.contains_iff {α : Type u_1} {cmp : α → α → Ordering} {x : α} [Std.TransCmp cmp] {t : RBSet α cmp} : t.contains x = true ↔ x ∈ t

@[implicit_reducible]

instance Batteries.RBSet.instDecidableMemOfTransCmp {α : Type u_1} {cmp : α → α → Ordering} {x : α} [Std.TransCmp cmp] {t : RBSet α cmp} : Decidable (x ∈ t)

Equations

• Batteries.RBSet.instDecidableMemOfTransCmp = decidable_of_iff (t.contains x = true) ⋯

theorem Batteries.RBSet.size_eq {α : Type u_1} {cmp : α → α → Ordering} (t : RBSet α cmp) : t.size = t.toList.length

theorem Batteries.RBSet.mem_toList_insert_self {α : Type u_1} {cmp : α → α → Ordering} (v : α) (t : RBSet α cmp) : v ∈ (t.insert v).toList

theorem Batteries.RBSet.mem_insert_self {α : Type u_1} {cmp : α → α → Ordering} [Std.OrientedCmp cmp] (v : α) (t : RBSet α cmp) : v ∈ t.insert v

theorem Batteries.RBSet.mem_insert_of_eq {α : Type u_1} {cmp : α → α → Ordering} {v v' : α} [Std.TransCmp cmp] (t : RBSet α cmp) (h : cmp v v' = Ordering.eq) : v' ∈ t.insert v

theorem Batteries.RBSet.mem_toList_insert_of_mem {α : Type u_1} {cmp : α → α → Ordering} {v' : α} (v : α) {t : RBSet α cmp} (h : v' ∈ t.toList) : v' ∈ (t.insert v).toList ∨ cmp v v' = Ordering.eq

theorem Batteries.RBSet.mem_insert_of_mem_toList {α : Type u_1} {cmp : α → α → Ordering} {v' : α} [Std.OrientedCmp cmp] (v : α) {t : RBSet α cmp} (h : v' ∈ t.toList) : v' ∈ t.insert v

theorem Batteries.RBSet.mem_insert_of_mem {α : Type u_1} {cmp : α → α → Ordering} {v' : α} [Std.TransCmp cmp] (v : α) {t : RBSet α cmp} (h : v' ∈ t) : v' ∈ t.insert v

theorem Batteries.RBSet.mem_toList_insert {α : Type u_1} {cmp : α → α → Ordering} {v v' : α} [Std.TransCmp cmp] {t : RBSet α cmp} : v' ∈ (t.insert v).toList ↔ v' ∈ t.toList ∧ t.find? v ≠ some v' ∨ v' = v

theorem Batteries.RBSet.mem_insert {α : Type u_1} {cmp : α → α → Ordering} {v v' : α} [Std.TransCmp cmp] {t : RBSet α cmp} : v' ∈ t.insert v ↔ v' ∈ t ∨ cmp v v' = Ordering.eq

theorem Batteries.RBSet.find?_congr {α : Type u_1} {cmp : α → α → Ordering} {v₁ v₂ : α} [Std.TransCmp cmp] (t : RBSet α cmp) (h : cmp v₁ v₂ = Ordering.eq) : t.find? v₁ = t.find? v₂

theorem Batteries.RBSet.findP?_insert_of_eq {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {v : α} [Std.TransCmp cmp] [RBNode.IsStrictCut cmp cut] (t : RBSet α cmp) (h : cut v = Ordering.eq) : (t.insert v).findP? cut = some v

theorem Batteries.RBSet.find?_insert_of_eq {α : Type u_1} {cmp : α → α → Ordering} {v' v : α} [Std.TransCmp cmp] (t : RBSet α cmp) (h : cmp v' v = Ordering.eq) : (t.insert v).find? v' = some v

theorem Batteries.RBSet.findP?_insert_of_ne {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {v : α} [Std.TransCmp cmp] [RBNode.IsStrictCut cmp cut] (t : RBSet α cmp) (h : cut v ≠ Ordering.eq) : (t.insert v).findP? cut = t.findP? cut

theorem Batteries.RBSet.find?_insert_of_ne {α : Type u_1} {cmp : α → α → Ordering} {v' v : α} [Std.TransCmp cmp] (t : RBSet α cmp) (h : cmp v' v ≠ Ordering.eq) : (t.insert v).find? v' = t.find? v'

theorem Batteries.RBSet.findP?_insert {α : Type u_1} {cmp : α → α → Ordering} [Std.TransCmp cmp] (t : RBSet α cmp) (v : α) (cut : α → Ordering) [RBNode.IsStrictCut cmp cut] : (t.insert v).findP? cut = if cut v = Ordering.eq then some v else t.findP? cut

theorem Batteries.RBSet.find?_insert {α : Type u_1} {cmp : α → α → Ordering} [Std.TransCmp cmp] (t : RBSet α cmp) (v v' : α) : (t.insert v).find? v' = if cmp v' v = Ordering.eq then some v else t.find? v'

theorem Batteries.RBSet.upperBoundP?_eq_findP? {α : Type u_1} {cmp : α → α → Ordering} {x : α} {t : RBSet α cmp} {cut : α → Ordering} (H : t.findP? cut = some x) : t.upperBoundP? cut = some x

theorem Batteries.RBSet.lowerBoundP?_eq_findP? {α : Type u_1} {cmp : α → α → Ordering} {x : α} {t : RBSet α cmp} {cut : α → Ordering} (H : t.findP? cut = some x) : t.lowerBoundP? cut = some x

theorem Batteries.RBSet.upperBound?_eq_find? {α : Type u_1} {cmp : α → α → Ordering} {x y : α} {t : RBSet α cmp} (H : t.find? x = some y) : t.upperBound? x = some y

theorem Batteries.RBSet.lowerBound?_eq_find? {α : Type u_1} {cmp : α → α → Ordering} {x y : α} {t : RBSet α cmp} (H : t.find? x = some y) : t.lowerBound? x = some y

theorem Batteries.RBSet.upperBoundP?_ge {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x : α} {t : RBSet α cmp} : t.upperBoundP? cut = some x → cut x ≠ Ordering.gt

The value x returned by upperBoundP? is greater or equal to the cut.

theorem Batteries.RBSet.upperBound?_ge {α : Type u_1} {cmp : α → α → Ordering} {x y : α} {t : RBSet α cmp} : t.upperBound? x = some y → cmp x y ≠ Ordering.gt

The value y returned by upperBound? x is greater or equal to x.

theorem Batteries.RBSet.lowerBoundP?_le {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x : α} {t : RBSet α cmp} : t.lowerBoundP? cut = some x → cut x ≠ Ordering.lt

The value x returned by lowerBoundP? is less or equal to the cut.

theorem Batteries.RBSet.lowerBound?_le {α : Type u_1} {cmp : α → α → Ordering} {x y : α} {t : RBSet α cmp} : t.lowerBound? x = some y → cmp x y ≠ Ordering.lt

The value y returned by lowerBound? x is less or equal to x.

theorem Batteries.RBSet.upperBoundP?_mem_toList {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x : α} {t : RBSet α cmp} (h : t.upperBoundP? cut = some x) : x ∈ t.toList

theorem Batteries.RBSet.upperBound?_mem_toList {α : Type u_1} {cmp : α → α → Ordering} {x y : α} {t : RBSet α cmp} (h : t.upperBound? x = some y) : y ∈ t.toList

theorem Batteries.RBSet.lowerBoundP?_mem_toList {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x : α} {t : RBSet α cmp} (h : t.lowerBoundP? cut = some x) : x ∈ t.toList

theorem Batteries.RBSet.lowerBound?_mem_toList {α : Type u_1} {cmp : α → α → Ordering} {x y : α} {t : RBSet α cmp} (h : t.lowerBound? x = some y) : y ∈ t.toList

theorem Batteries.RBSet.upperBoundP?_mem {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x : α} [Std.OrientedCmp cmp] {t : RBSet α cmp} (h : t.upperBoundP? cut = some x) : x ∈ t

theorem Batteries.RBSet.lowerBoundP?_mem {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x : α} [Std.OrientedCmp cmp] {t : RBSet α cmp} (h : t.lowerBoundP? cut = some x) : x ∈ t

theorem Batteries.RBSet.upperBound?_mem {α : Type u_1} {cmp : α → α → Ordering} {x y : α} [Std.OrientedCmp cmp] {t : RBSet α cmp} (h : t.upperBound? x = some y) : y ∈ t

theorem Batteries.RBSet.lowerBound?_mem {α : Type u_1} {cmp : α → α → Ordering} {x y : α} [Std.OrientedCmp cmp] {t : RBSet α cmp} (h : t.lowerBound? x = some y) : y ∈ t

theorem Batteries.RBSet.upperBoundP?_exists {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBSet α cmp} [Std.TransCmp cmp] [RBNode.IsCut cmp cut] : (∃ (x : α), t.upperBoundP? cut = some x) ↔ ∃ (x : α), x ∈ t ∧ cut x ≠ Ordering.gt

theorem Batteries.RBSet.lowerBoundP?_exists {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBSet α cmp} [Std.TransCmp cmp] [RBNode.IsCut cmp cut] : (∃ (x : α), t.lowerBoundP? cut = some x) ↔ ∃ (x : α), x ∈ t ∧ cut x ≠ Ordering.lt

theorem Batteries.RBSet.upperBound?_exists {α : Type u_1} {cmp : α → α → Ordering} {x : α} {t : RBSet α cmp} [Std.TransCmp cmp] : (∃ (y : α), t.upperBound? x = some y) ↔ ∃ (y : α), y ∈ t ∧ cmp x y ≠ Ordering.gt

theorem Batteries.RBSet.lowerBound?_exists {α : Type u_1} {cmp : α → α → Ordering} {x : α} {t : RBSet α cmp} [Std.TransCmp cmp] : (∃ (y : α), t.lowerBound? x = some y) ↔ ∃ (y : α), y ∈ t ∧ cmp x y ≠ Ordering.lt

theorem Batteries.RBSet.upperBoundP?_least {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x y : α} {t : RBSet α cmp} [Std.TransCmp cmp] [RBNode.IsCut cmp cut] (H : t.upperBoundP? cut = some x) (hy : y ∈ t) (xy : cmp y x = Ordering.lt) (hx : cut x = Ordering.lt) : cut y = Ordering.gt

A statement of the least-ness of the result of upperBoundP?. If x is the return value of upperBoundP? and it is strictly greater than the cut, then any other y < x in the tree is in fact strictly less than the cut (so there is no exact match, and nothing closer to the cut).

theorem Batteries.RBSet.lowerBoundP?_greatest {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x y : α} {t : RBSet α cmp} [Std.TransCmp cmp] [RBNode.IsCut cmp cut] (H : t.lowerBoundP? cut = some x) (hy : y ∈ t) (xy : cmp x y = Ordering.lt) (hx : cut x = Ordering.gt) : cut y = Ordering.lt

A statement of the greatest-ness of the result of lowerBoundP?. If x is the return value of lowerBoundP? and it is strictly less than the cut, then any other y > x in the tree is in fact strictly greater than the cut (so there is no exact match, and nothing closer to the cut).

theorem Batteries.RBSet.memP_iff_upperBoundP? {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBSet α cmp} [Std.TransCmp cmp] [RBNode.IsCut cmp cut] : MemP cut t ↔ ∃ (x : α), t.upperBoundP? cut = some x ∧ cut x = Ordering.eq

theorem Batteries.RBSet.memP_iff_lowerBoundP? {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {t : RBSet α cmp} [Std.TransCmp cmp] [RBNode.IsCut cmp cut] : MemP cut t ↔ ∃ (x : α), t.lowerBoundP? cut = some x ∧ cut x = Ordering.eq

theorem Batteries.RBSet.mem_iff_upperBound? {α : Type u_1} {cmp : α → α → Ordering} {x : α} {t : RBSet α cmp} [Std.TransCmp cmp] : x ∈ t ↔ ∃ (y : α), t.upperBound? x = some y ∧ cmp x y = Ordering.eq

theorem Batteries.RBSet.mem_iff_lowerBound? {α : Type u_1} {cmp : α → α → Ordering} {x : α} {t : RBSet α cmp} [Std.TransCmp cmp] : x ∈ t ↔ ∃ (y : α), t.lowerBound? x = some y ∧ cmp x y = Ordering.eq

theorem Batteries.RBSet.lt_upperBoundP? {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x y : α} {t : RBSet α cmp} [Std.TransCmp cmp] [RBNode.IsStrictCut cmp cut] (H : t.upperBoundP? cut = some x) (hy : y ∈ t) : cmp y x = Ordering.lt ↔ cut y = Ordering.gt

A stronger version of upperBoundP?_least that holds when the cut is strict.

theorem Batteries.RBSet.lowerBoundP?_lt {α : Type u_1} {cmp : α → α → Ordering} {cut : α → Ordering} {x y : α} {t : RBSet α cmp} [Std.TransCmp cmp] [RBNode.IsStrictCut cmp cut] (H : t.lowerBoundP? cut = some x) (hy : y ∈ t) : cmp x y = Ordering.lt ↔ cut y = Ordering.lt

A stronger version of lowerBoundP?_greatest that holds when the cut is strict.

theorem Batteries.RBSet.lt_upperBound? {α : Type u_1} {cmp : α → α → Ordering} {x y z : α} {t : RBSet α cmp} [Std.TransCmp cmp] (H : t.upperBound? x = some y) (hz : z ∈ t) : cmp z y = Ordering.lt ↔ cmp z x = Ordering.lt

theorem Batteries.RBSet.lowerBound?_lt {α : Type u_1} {cmp : α → α → Ordering} {x y z : α} {t : RBSet α cmp} [Std.TransCmp cmp] (H : t.lowerBound? x = some y) (hz : z ∈ t) : cmp y z = Ordering.lt ↔ cmp x z = Ordering.lt

theorem Batteries.RBMap.val_toList {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {t : RBMap α β cmp} : t.val.toList = t.toList

@[simp]

theorem Batteries.RBMap.mkRBSet_eq {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} : mkRBMap α β cmp = ∅

@[simp]

theorem Batteries.RBMap.empty_eq {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} : empty = ∅

@[simp]

theorem Batteries.RBMap.default_eq {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} : default = ∅

@[simp]

theorem Batteries.RBMap.empty_toList {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} : ∅.toList = []

@[simp]

theorem Batteries.RBMap.single_toList {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {a : α} {b : β} : (single a b).toList = [(a, b)]

theorem Batteries.RBMap.mem_toList {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {x : α × β} {t : RBMap α β cmp} : x ∈ t.toList ↔ x ∈ t.val

theorem Batteries.RBMap.foldl_eq_foldl_toList {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {α✝ : Type u_3} {f : α✝ → α → β → α✝} {init : α✝} {t : RBMap α β cmp} : foldl f init t = List.foldl (fun (r : α✝) (p : α × β) => f r p.fst p.snd) init t.toList

theorem Batteries.RBMap.foldr_eq_foldr_toList {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {α✝ : Type u_3} {f : α → β → α✝ → α✝} {init : α✝} {t : RBMap α β cmp} : foldr f init t = List.foldr (fun (p : α × β) (r : α✝) => f p.fst p.snd r) init t.toList

theorem Batteries.RBMap.foldlM_eq_foldlM_toList {m : Type u_1 → Type u_2} {α : Type u_3} {β : Type u_4} {cmp : α → α → Ordering} {a✝ : Type u_1} {f : a✝ → α → β → m a✝} {init : a✝} [Monad m] [LawfulMonad m] {t : RBMap α β cmp} : foldlM f init t = List.foldlM (fun (r : a✝) (p : α × β) => f r p.fst p.snd) init t.toList

theorem Batteries.RBMap.forM_eq_forM_toList {m : Type u_1 → Type u_2} {α : Type u_3} {β : Type u_4} {cmp : α → α → Ordering} {f : α → β → m PUnit} [Monad m] [LawfulMonad m] {t : RBMap α β cmp} : forM f t = t.toList.forM fun (p : α × β) => f p.fst p.snd

theorem Batteries.RBMap.forIn_eq_forIn_toList {m : Type u_1 → Type u_2} {α : Type u_3} {β : Type u_4} {cmp : α → α → Ordering} {α✝ : Type u_1} {init : α✝} {f : α × β → α✝ → m (ForInStep α✝)} [Monad m] [LawfulMonad m] {t : RBMap α β cmp} : forIn t init f = forIn t.toList init f

theorem Batteries.RBMap.toStream_eq {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {t : RBMap α β cmp} : Std.toStream t = t.val.toStream

@[simp]

theorem Batteries.RBMap.toStream_toList {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {t : RBMap α β cmp} : (Std.toStream t).toList = t.toList

theorem Batteries.RBMap.toList_sorted {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {t : RBMap α β cmp} : List.Pairwise (RBNode.cmpLT fun (x1 x2 : α × β) => cmp x1.fst x2.fst) t.toList

theorem Batteries.RBMap.findEntry?_some_eq_eq {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {x y : α} {v : β} {t : RBMap α β cmp} : t.findEntry? x = some (y, v) → cmp x y = Ordering.eq

theorem Batteries.RBMap.findEntry?_some_mem_toList {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {x : α} {y : α × β} {t : RBMap α β cmp} (h : t.findEntry? x = some y) : y ∈ t.toList

theorem Batteries.RBMap.find?_some_mem_toList {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {x : α} {v : β} {t : RBMap α β cmp} (h : t.find? x = some v) : ∃ (y : α), (y, v) ∈ t.toList ∧ cmp x y = Ordering.eq

theorem Batteries.RBMap.mem_toList_unique {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {x y : α × β} [Std.TransCmp cmp] {t : RBMap α β cmp} (hx : x ∈ t.toList) (hy : y ∈ t.toList) (e : cmp x.fst y.fst = Ordering.eq) : x = y

instance Batteries.RBMap.instIsStrictCut {α : Type u_1} (cmp : α → α → Ordering) (a : α) : RBNode.IsStrictCut cmp (cmp a)

A "representable cut" is one generated by cmp a for some a. This is always a valid cut.

instance Batteries.RBMap.instIsStrictCutByKeyOfTransCmp {α : Type u_1} {β : Type u_2} (f : α → β) (cmp : β → β → Ordering) [Std.TransCmp cmp] (x : β) : RBNode.IsStrictCut (Ordering.byKey f cmp) fun (y : α) => cmp x (f y)

theorem Batteries.RBMap.findEntry?_some {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {x : α} {y : α × β} [Std.TransCmp cmp] {t : RBMap α β cmp} : t.findEntry? x = some y ↔ y ∈ t.toList ∧ cmp x y.fst = Ordering.eq

theorem Batteries.RBMap.find?_some {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {x : α} {v : β} [Std.TransCmp cmp] {t : RBMap α β cmp} : t.find? x = some v ↔ ∃ (y : α), (y, v) ∈ t.toList ∧ cmp x y = Ordering.eq

theorem Batteries.RBMap.contains_iff_findEntry? {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {x : α} {t : RBMap α β cmp} : t.contains x = true ↔ ∃ (v : α × β), t.findEntry? x = some v

theorem Batteries.RBMap.contains_iff_find? {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {x : α} {t : RBMap α β cmp} : t.contains x = true ↔ ∃ (v : β), t.find? x = some v

theorem Batteries.RBMap.size_eq {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} (t : RBMap α β cmp) : t.size = t.toList.length

theorem Batteries.RBMap.mem_toList_insert_self {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {k : α} (v : β) (t : RBMap α β cmp) : (k, v) ∈ (t.insert k v).toList

theorem Batteries.RBMap.mem_toList_insert_of_mem {α : Type u_1} {β : Type u_2} {cmp : α → α → Ordering} {y : α × β} {k : α} (v : β) {t : RBMap α β cmp} (h : y ∈ t.toList) : y ∈ (t.insert k v).toList ∨ cmp k y.fst = Ordering.eq

theorem Batteries.RBMap.mem_toList_insert {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {k : α} {v : β} {y : α × β} [Std.TransCmp cmp] {t : RBMap α β cmp} : y ∈ (t.insert k v).toList ↔ y ∈ t.toList ∧ t.findEntry? k ≠ some y ∨ y = (k, v)

theorem Batteries.RBMap.findEntry?_congr {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {k₁ k₂ : α} [Std.TransCmp cmp] (t : RBMap α β cmp) (h : cmp k₁ k₂ = Ordering.eq) : t.findEntry? k₁ = t.findEntry? k₂

theorem Batteries.RBMap.find?_congr {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {k₁ k₂ : α} [Std.TransCmp cmp] (t : RBMap α β cmp) (h : cmp k₁ k₂ = Ordering.eq) : t.find? k₁ = t.find? k₂

theorem Batteries.RBMap.findEntry?_insert_of_eq {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {k' k : α} {v : β} [Std.TransCmp cmp] (t : RBMap α β cmp) (h : cmp k' k = Ordering.eq) : (t.insert k v).findEntry? k' = some (k, v)

theorem Batteries.RBMap.find?_insert_of_eq {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {k' k : α} {v : β} [Std.TransCmp cmp] (t : RBMap α β cmp) (h : cmp k' k = Ordering.eq) : (t.insert k v).find? k' = some v

theorem Batteries.RBMap.findEntry?_insert_of_ne {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {k' k : α} {v : β} [Std.TransCmp cmp] (t : RBMap α β cmp) (h : cmp k' k ≠ Ordering.eq) : (t.insert k v).findEntry? k' = t.findEntry? k'

theorem Batteries.RBMap.find?_insert_of_ne {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} {k' k : α} {v : β} [Std.TransCmp cmp] (t : RBMap α β cmp) (h : cmp k' k ≠ Ordering.eq) : (t.insert k v).find? k' = t.find? k'

theorem Batteries.RBMap.findEntry?_insert {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} [Std.TransCmp cmp] (t : RBMap α β cmp) (k : α) (v : β) (k' : α) : (t.insert k v).findEntry? k' = if cmp k' k = Ordering.eq then some (k, v) else t.findEntry? k'

theorem Batteries.RBMap.find?_insert {α : Type u_1} {cmp : α → α → Ordering} {β : Type u_2} [Std.TransCmp cmp] (t : RBMap α β cmp) (k : α) (v : β) (k' : α) : (t.insert k v).find? k' = if cmp k' k = Ordering.eq then some v else t.find? k'