. assumption
case cons.a
α : Sort ?u.102122
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
α✝ : Type u_1
a : HeapNodeAux α✝ (Heap α✝)
b : List (HeapNodeAux α✝ (Heap α✝))
id : ℕ
a✝² : IsBinTree a
a✝¹ : 0 < a.rank
a✝ : IsHeapForest' a.rank b
⊢ 0 < a.rank

case cons.a
α : Sort ?u.102122
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
α✝ : Type u_1
a : HeapNodeAux α✝ (Heap α✝)
b : List (HeapNodeAux α✝ (Heap α✝))
id : ℕ
a✝² : IsBinTree a
a✝¹ : 0 < a.rank
a✝ : IsHeapForest' a.rank b
⊢ IsBinTree a

case cons.a
α : Sort ?u.102122
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
α✝ : Type u_1
a : HeapNodeAux α✝ (Heap α✝)
b : List (HeapNodeAux α✝ (Heap α✝))
id : ℕ
a✝² : IsBinTree a
a✝¹ : 0 < a.rank
a✝ : IsHeapForest' a.rank b
⊢ IsHeapForest' a.rank (List.eraseIdx b id)
case cons.a
α : Sort ?u.102122
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
α✝ : Type u_1
a : HeapNodeAux α✝ (Heap α✝)
b : List (HeapNodeAux α✝ (Heap α✝))
id : ℕ
a✝² : IsBinTree a
a✝¹ : 0 < a.rank
a✝ : IsHeapForest' a.rank b
⊢ IsBinTree a

case cons.a
α : Sort ?u.102122
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
α✝ : Type u_1
a : HeapNodeAux α✝ (Heap α✝)
b : List (HeapNodeAux α✝ (Heap α✝))
id : ℕ
a✝² : IsBinTree a
a✝¹ : 0 < a.rank
a✝ : IsHeapForest' a.rank b
⊢ IsHeapForest' a.rank (List.eraseIdx b id)