exact True.intro
case cons.nil
α : Type u_1
β : Type u_2
γ : Type u_3
r₁ : α → β → Prop
r₂ : β → γ → Prop
r : α → γ → Prop
inst✝ : Trans r₁ r₂ r
b : β
head✝ : α
tail✝ : List α
a✝¹ : predHead (fun a => r₁ a b) (head✝ :: tail✝)
a✝ : predHead (r₂ b) []
⊢ relHead r (head✝ :: tail✝) []
no goals