unfold List.eraseIdx
α : Sort ?u.32649
le : α → α → Bool
not_le_le : ∀ (x y : α), ¬le x y = true → le y x = true
le_trans : ∀ (x y z : α), le x y = true → le y z = true → le x z = true
le_rfl : ∀ (z : α), le z z = true
r : ℕ
α✝ : Type u_1
a : List (BinTree α✝)
id : ℕ
t : BinTree α✝
ts : List (BinTree α✝)
lt : r < t.rank
bt : IsBinTree t
h₁ : IsHeapForest' t.rank ts
⊢ IsHeapForest' r (List.eraseIdx (t :: ts) id)
α : Sort ?u.32649
le : α → α → Bool
not_le_le : ∀ (x y : α), ¬le x y = true → le y x = true
le_trans : ∀ (x y z : α), le x y = true → le y z = true → le x z = true
le_rfl : ∀ (z : α), le z z = true
r : ℕ
α✝ : Type u_1
a : List (BinTree α✝)
id : ℕ
t : BinTree α✝
ts : List (BinTree α✝)
lt : r < t.rank
bt : IsBinTree t
h₁ : IsHeapForest' t.rank ts
⊢ IsHeapForest' r
    (match t :: ts, id with
    | [], x => []
    | head :: as, 0 => as
    | a :: as, Nat.succ n => a :: List.eraseIdx as n)