Theorem: DividedPowerAlgebra.T_free_and_D_to_QSplit
Proof state before:
case h.refine_1.mk.disjoint.intro.mk
R✝ : Type u
inst✝⁶ : CommRing R✝
A : Type u
inst✝⁵ : CommRing A
inst✝⁴ : DecidableEq A
S✝ : Type u
inst✝³ : CommRing S✝
inst✝² : Algebra A S✝
I✝ : Ideal S✝
hI✝ : DividedPowers I✝
S₀✝ : Subalgebra A S✝
hIS₀✝ : IsCompl (Subalgebra.toSubmodule S₀✝) (Submodule.restrictScalars A I✝)
condTFree : CondTFree A
condD : CondD A
hM✝ : DividedPowers (augIdeal A (↥I✝ →₀ A))
hM_eq✝ : ∀ (n : ℕ) (x : ↥I✝ →₀ A), hM✝.dpow n ((ι A (↥I✝ →₀ A)) x) = dp A n x
S : Type u
inst✝¹ : CommRing S
inst✝ : Algebra A S
I : Ideal S
hI : DividedPowers I
S₀ : Subalgebra A S
hIS₀ : IsAugmentation (↥S₀) I
M : Type u := ↥I →₀ A
R : Type u := MvPolynomial (↥S₀) A
D : Type u := DividedPowerAlgebra A M
hM : DividedPowers (augIdeal A M)
hM_eq : ∀ (n : ℕ) (x : M), hM.dpow n ((ι A M) x) = dp A n x
hdpM_free : Module.Free A D
hR_free : Module.Free A R
T : Type u := R ⊗[A] D
idK : Ideal T := K A ⊥ (augIdeal A M)
hidK : idK = Ideal.map Algebra.TensorProduct.includeRight (augIdeal A M)
hK : DividedPowers idK := Exists.choose ⋯
this : MvPolynomial (↥S₀) A →ₐ[A] MvPolynomial (↥S₀) A ⊗[A] DividedPowerAlgebra A M
hc :
  Codisjoint (Subalgebra.toSubmodule ⊥)
    (Submodule.restrictScalars (MvPolynomial (↥S₀) A) (Ideal.map Algebra.TensorProduct.includeRight (augIdeal A M)))
hd : ∀ x ∈ ⊥, x ∈ Ideal.map Algebra.TensorProduct.includeRight (augIdeal A M) → x = 0
x : T
hx✝ : x ∈ Subalgebra.restrictScalars A ⊥
hx' :
  (algebraMap (↥(Subalgebra.restrictScalars A ⊥)) T) ⟨x, hx✝⟩ ∈
    Ideal.map Algebra.TensorProduct.includeRight (augIdeal A M)
hx : x ∈ Set.range ⇑(algebraMap R T)
⊢ (algebraMap (↥(Subalgebra.restrictScalars A ⊥)) T) ⟨x, hx✝⟩ ∈ ⊥
Tactic:
obtain ⟨x, rfl⟩ := hx
Proof state after:
case h.refine_1.mk.disjoint.intro.mk.intro
R✝ : Type u
inst✝⁶ : CommRing R✝
A : Type u
inst✝⁵ : CommRing A
inst✝⁴ : DecidableEq A
S✝ : Type u
inst✝³ : CommRing S✝
inst✝² : Algebra A S✝
I✝ : Ideal S✝
hI✝ : DividedPowers I✝
S₀✝ : Subalgebra A S✝
hIS₀✝ : IsCompl (Subalgebra.toSubmodule S₀✝) (Submodule.restrictScalars A I✝)
condTFree : CondTFree A
condD : CondD A
hM✝ : DividedPowers (augIdeal A (↥I✝ →₀ A))
hM_eq✝ : ∀ (n : ℕ) (x : ↥I✝ →₀ A), hM✝.dpow n ((ι A (↥I✝ →₀ A)) x) = dp A n x
S : Type u
inst✝¹ : CommRing S
inst✝ : Algebra A S
I : Ideal S
hI : DividedPowers I
S₀ : Subalgebra A S
hIS₀ : IsAugmentation (↥S₀) I
M : Type u := ↥I →₀ A
R : Type u := MvPolynomial (↥S₀) A
D : Type u := DividedPowerAlgebra A M
hM : DividedPowers (augIdeal A M)
hM_eq : ∀ (n : ℕ) (x : M), hM.dpow n ((ι A M) x) = dp A n x
hdpM_free : Module.Free A D
hR_free : Module.Free A R
T : Type u := R ⊗[A] D
idK : Ideal T := K A ⊥ (augIdeal A M)
hidK : idK = Ideal.map Algebra.TensorProduct.includeRight (augIdeal A M)
hK : DividedPowers idK := Exists.choose ⋯
this : MvPolynomial (↥S₀) A →ₐ[A] MvPolynomial (↥S₀) A ⊗[A] DividedPowerAlgebra A M
hc :
  Codisjoint (Subalgebra.toSubmodule ⊥)
    (Submodule.restrictScalars (MvPolynomial (↥S₀) A) (Ideal.map Algebra.TensorProduct.includeRight (augIdeal A M)))
hd : ∀ x ∈ ⊥, x ∈ Ideal.map Algebra.TensorProduct.includeRight (augIdeal A M) → x = 0
x : R
hx : (algebraMap R T) x ∈ Subalgebra.restrictScalars A ⊥
hx' :
  (algebraMap (↥(Subalgebra.restrictScalars A ⊥)) T) ⟨(algebraMap R T) x, hx⟩ ∈
    Ideal.map Algebra.TensorProduct.includeRight (augIdeal A M)
⊢ (algebraMap (↥(Subalgebra.restrictScalars A ⊥)) T) ⟨(algebraMap R T) x, hx⟩ ∈ ⊥