intros heq t hel
α : Type u_1
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
xs : List (HeapNodeAux α (Heap α))
y : α
ys : Heap α
⊢ deleteMin le (Heap.heap xs) = some (y, ys) → ∀ (x : HeapNodeAux α (Heap α)), x ∈ xs → le y x.val = true
α : Type u_1
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
xs : List (HeapNodeAux α (Heap α))
y : α
ys : Heap α
heq : deleteMin le (Heap.heap xs) = some (y, ys)
t : HeapNodeAux α (Heap α)
hel : t ∈ xs
⊢ le y t.val = true