assumption
case inl.a.cons.hys.hpos.mk
α : Type u_1
le : α → α → Bool
not_le_le : ∀ (x y : α), ¬le x y = true → le y x = true
rx : ℕ
xs : List (BinTree α)
ry : ℕ
ys : List (BinTree α)
h₁ : BinTree α
t₁ : List (BinTree α)
h₂ : BinTree α
t₂ : List (BinTree α)
hys : IsHeapForest' ry (h₂ :: t₂)
hlt₂ : h₁.rank < h₂.rank
hlt : rx < h₁.rank
hf : IsHeapForest' h₁.rank t₁
a✝ : IsRankedTree 1 h₁.rank (Heap.nodes h₁.children)
hge : h₁.rank ≥ 0
hle : 0 ≤ h₁.rank
this : 0 < h₂.rank
⊢ h₂.rank > 0
no goals