let
is_subdir path1 path2 =
PathOperation
.is_subdir (s2f path1) (s2f path2)