intro has hbs hhook
α : Type u_1
r : α → α → Prop
a : α
as bs : List α
⊢ forAll (fun x => r x a) as → forAll (r a) bs → HookedAscending r as bs → HookedAscending r (a :: as) bs
α : Type u_1
r : α → α → Prop
a : α
as bs : List α
has : forAll (fun x => r x a) as
hbs : forAll (r a) bs
hhook : HookedAscending r as bs
⊢ HookedAscending r (a :: as) bs