rw[empty_heap_merge_right, Nat.min_eq]
α : Type u_1
le : α → α → Bool
not_le_le : ∀ (x y : α), ¬le x y = true → le y x = true
r : ℕ
xs ys h : List (BinTree α)
ht₁ : IsHeapForest' r h
ht₂ : IsHeapForest' r []
⊢ min (hRank h) (hRank []) ≤ hRank (mergeNodes le h [])
α : Type u_1
le : α → α → Bool
not_le_le : ∀ (x y : α), ¬le x y = true → le y x = true
r : ℕ
xs ys h : List (BinTree α)
ht₁ : IsHeapForest' r h
ht₂ : IsHeapForest' r []
⊢ (if hRank h ≤ hRank [] then hRank h else hRank []) ≤ hRank h