(***********************************************************************)
type path = single_path list
(***********************************************************************)
type path = single_path list
and single_path = Absolute of step list | Relative of step list
and step = axis * test * expr list
and axis = Self | Attribute | Child
and single_path = Absolute of step list | Relative of step list
and step = axis * test * expr list
and axis = Self | Attribute | Child