Goal:
    G : t
  ============================
   (forall
      a
       b : sigma
             (fun
                index : sigma (fun _ : VSet.t => sigma (fun _ : V.t => V.t))
              => SPath (pr1 index) (pr1 (pr2 index)) (pr2 (pr2 index))),
    a = b -> NoConfusion_SPath a b)


DEBUG:Going to execute:
simpl