let is_relative lst_path =
    match lst_path with
     (Root _) :: _ -> false
    | _            -> true