let
is_prefix t ~prefix =
let
len =
A
.length prefix
in
sub_same_tl t ~comp:prefix ~len ~off:0