exact Nat.lt.step <| lt_of_lt_of_le (ih lt) (Nat.right_le_pair (encode b') (encode bs))
case cons.inr
β : Type u_1
inst✝ : Encodable β
b b' : β
bs : List β
ih : b ∈ bs → encode b < encode bs
h : b ∈ b' :: bs
lt : b ∈ bs
⊢ encode b < (encode b').pair (encode bs) + 1
no goals