{R : Type r} →
  [inst : CommRing R] →
    {W' : WeierstrassCurve.Projective R} →
      {motive : W'.Point → Sort u} →
        ({point : WeierstrassCurve.Projective.PointClass R} →
            (nonsingular : W'.NonsingularLift point) → motive { point := point, nonsingular := nonsingular }) →
          (t : W'.Point) → motive t