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