(motive : ExistsAndEq.Path → Sort u_1) →
  (path : ExistsAndEq.Path) →
    (Unit → motive []) →
      ((tl : List ExistsAndEq.GoTo) → motive (ExistsAndEq.GoTo.left :: tl)) →
        ((tl : List ExistsAndEq.GoTo) → motive (ExistsAndEq.GoTo.right :: tl)) → motive path