Δ base Change quadratic Twist Of ne zero

theorem Δ_baseChange_quadraticTwistOf_ne_zero [E.IsElliptic] [IsIntegral R E] (t' n' : R)    (hD : t' ^ 2 - 4 * n' ≠ 0) :    ((((E.integralModel R).quadraticTwistOf t' n'))⁄K).Δ ≠ 0 := by  have hΔint : (E.integralModel R).Δ ≠ 0 := fun h0 ↦    E.isUnit_Δ.ne_zero (by rw [← integralModel_Δ_eq R E, h0, map_zero])  rw [show ((((E.integralModel R).quadraticTwistOf t' n'))⁄K).Δ    = algebraMap R K ((E.integralModel R).quadraticTwistOf t' n').Δ from map_Δ _ _,    Δ_quadraticTwistOf, Ne, map_eq_zero_iff _ (IsFractionRing.injective R K), mul_eq_zero]  exact not_or.mpr ⟨pow_ne_zero 6 hD, hΔint⟩