apply IsHeapForest'_of_IsRankedTree (r := 1)
case mk.cons.heap.mk
α : Sort ?u.30046
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
val : α✝
rank : ℕ
lt : 0 < rank
h₁ : IsHeapForest' rank []
nodes : List (HeapNodeAux α✝ (Heap α✝))
rt : IsRankedTree 1 rank nodes
⊢ IsHeap (Heap.heap nodes)
case mk.cons.heap.mk.h₁
α : Sort ?u.30046
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
val : α✝
rank : ℕ
lt : 0 < rank
h₁ : IsHeapForest' rank []
nodes : List (HeapNodeAux α✝ (Heap α✝))
rt : IsRankedTree 1 rank nodes
⊢ 1 ≠ 0

case mk.cons.heap.mk.a
α : Sort ?u.30046
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
val : α✝
rank : ℕ
lt : 0 < rank
h₁ : IsHeapForest' rank []
nodes : List (HeapNodeAux α✝ (Heap α✝))
rt : IsRankedTree 1 rank nodes
⊢ IsRankedTree 1 ?m.30690 (Heap.nodes (Heap.heap nodes))

α : Sort ?u.30046
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
val : α✝
rank : ℕ
lt : 0 < rank
h₁ : IsHeapForest' rank []
nodes : List (HeapNodeAux α✝ (Heap α✝))
rt : IsRankedTree 1 rank nodes
⊢ ℕ