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