{R : Type u_1} →
  [inst : CommRing R] →
    {K : Type u_2} →
      [inst_1 : Field K] →
        [inst_2 : Algebra R K] →
          {W : WeierstrassCurve K} →
            {motive : WeierstrassCurve.IsIntegral R W → Sort u} →
              (t : WeierstrassCurve.IsIntegral R W) →
                ((integral : ∃ W_int, W = W_int.baseChange K) → motive ⋯) → motive t