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