intro himp as bs hhook
α : Type u_1
r r₁ : α → α → Prop
⊢ (∀ (a b : α), r a b → r₁ a b) → ∀ {as bs : List α}, HookedAscending r as bs → HookedAscending r₁ as bs
α : Type u_1
r r₁ : α → α → Prop
himp : ∀ (a b : α), r a b → r₁ a b
as bs : List α
hhook : HookedAscending r as bs
⊢ HookedAscending r₁ as bs