let is_suffix t ~suffix = let len = A.length suffix and lt = A.length t in sub_same_tl t ~comp:suffix ~len ~off:(lt - len)