exact List.Ascending.cons_of_forAll has hhook.fst_revAscending
α : 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
⊢ Ascending (flip r) (a :: as)
no goals