. apply findMin_is_minimum_tail <;> try assumption
  apply findMin_is_minimum_head <;> assumption
case right
α : 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
hs✝ : List (BinTree α)
idx✝ : ℕ
h'✝ : BinTree α
idx'✝ : ℕ
⊢ ∀ (x : BinTree α), x ∈ hs✝ → le (findMin le hs✝ idx✝ (h'✝, idx'✝)).fst.val x.val = true
no goals