intros ha hb
α : Type u
le : α → α → Bool
not_le_le : ∀ (x y : α), ¬le x y = true → le y x = true
a b : BinTree α
⊢ IsSearchTree le a → IsSearchTree le b → IsSearchTree le (combine le a b)
α : Type u
le : α → α → Bool
not_le_le : ∀ (x y : α), ¬le x y = true → le y x = true
a b : BinTree α
ha : IsSearchTree le a
hb : IsSearchTree le b
⊢ IsSearchTree le (combine le a b)