Theorem: Algebra.FiniteType.iff_quotient_mvPolynomial'
File: Mathlib/RingTheory/FiniteType.lean

tactic: constructor
state_before: R : Type u_1
A : Type u
B : Type ?u.48702
M : Type ?u.48705
N : Type ?u.48708
inst✝⁸ : CommRing R
inst✝⁷ : CommRing A
inst✝⁶ : Algebra R A
inst✝⁵ : CommRing B
inst✝⁴ : Algebra R B
inst✝³ : AddCommGroup M
inst✝² : Module R M
inst✝¹ : AddCommGroup N
inst✝ : Module R N
⊢ FiniteType R A ↔ ∃ ι x f, Surjective ↑f

tactic: rw [iff_quotient_mvPolynomial]
state_before: case mp
R : Type u_1
A : Type u
B : Type ?u.48702
M : Type ?u.48705
N : Type ?u.48708
inst✝⁸ : CommRing R
inst✝⁷ : CommRing A
inst✝⁶ : Algebra R A
inst✝⁵ : CommRing B
inst✝⁴ : Algebra R B
inst✝³ : AddCommGroup M
inst✝² : Module R M
inst✝¹ : AddCommGroup N
inst✝ : Module R N
⊢ FiniteType R A → ∃ ι x f, Surjective ↑f

tactic: rintro ⟨s, ⟨f, hsur⟩⟩
state_before: case mp
R : Type u_1
A : Type u
B : Type ?u.48702
M : Type ?u.48705
N : Type ?u.48708
inst✝⁸ : CommRing R
inst✝⁷ : CommRing A
inst✝⁶ : Algebra R A
inst✝⁵ : CommRing B
inst✝⁴ : Algebra R B
inst✝³ : AddCommGroup M
inst✝² : Module R M
inst✝¹ : AddCommGroup N
inst✝ : Module R N
⊢ (∃ s f, Surjective ↑f) → ∃ ι x f, Surjective ↑f

tactic: use { x : A // x ∈ s }, inferInstance, f
state_before: case mp.intro.intro
R : Type u_1
A : Type u
B : Type ?u.48702
M : Type ?u.48705
N : Type ?u.48708
inst✝⁸ : CommRing R
inst✝⁷ : CommRing A
inst✝⁶ : Algebra R A
inst✝⁵ : CommRing B
inst✝⁴ : Algebra R B
inst✝³ : AddCommGroup M
inst✝² : Module R M
inst✝¹ : AddCommGroup N
inst✝ : Module R N
s : Finset A
f : MvPolynomial { x // x ∈ s } R →ₐ[R] A
hsur : Surjective ↑f
⊢ ∃ ι x f, Surjective ↑f

tactic: exact hsur
state_before: case mp.intro.intro
R : Type u_1
A : Type u
B : Type ?u.48702
M : Type ?u.48705
N : Type ?u.48708
inst✝⁸ : CommRing R
inst✝⁷ : CommRing A
inst✝⁶ : Algebra R A
inst✝⁵ : CommRing B
inst✝⁴ : Algebra R B
inst✝³ : AddCommGroup M
inst✝² : Module R M
inst✝¹ : AddCommGroup N
inst✝ : Module R N
s : Finset A
f : MvPolynomial { x // x ∈ s } R →ₐ[R] A
hsur : Surjective ↑f
⊢ Surjective ↑f

tactic: rintro ⟨ι, ⟨hfintype, ⟨f, hsur⟩⟩⟩
state_before: case mpr
R : Type u_1
A : Type u
B : Type ?u.48702
M : Type ?u.48705
N : Type ?u.48708
inst✝⁸ : CommRing R
inst✝⁷ : CommRing A
inst✝⁶ : Algebra R A
inst✝⁵ : CommRing B
inst✝⁴ : Algebra R B
inst✝³ : AddCommGroup M
inst✝² : Module R M
inst✝¹ : AddCommGroup N
inst✝ : Module R N
⊢ (∃ ι x f, Surjective ↑f) → FiniteType R A

tactic: letI : Fintype ι := hfintype
state_before: case mpr.intro.intro.intro
R : Type u_1
A : Type u
B : Type ?u.48702
M : Type ?u.48705
N : Type ?u.48708
inst✝⁸ : CommRing R
inst✝⁷ : CommRing A
inst✝⁶ : Algebra R A
inst✝⁵ : CommRing B
inst✝⁴ : Algebra R B
inst✝³ : AddCommGroup M
inst✝² : Module R M
inst✝¹ : AddCommGroup N
inst✝ : Module R N
ι : Type u
hfintype : Fintype ι
f : MvPolynomial ι R →ₐ[R] A
hsur : Surjective ↑f
⊢ FiniteType R A

tactic: exact FiniteType.of_surjective (FiniteType.mvPolynomial R ι) f hsur
state_before: case mpr.intro.intro.intro
R : Type u_1
A : Type u
B : Type ?u.48702
M : Type ?u.48705
N : Type ?u.48708
inst✝⁸ : CommRing R
inst✝⁷ : CommRing A
inst✝⁶ : Algebra R A
inst✝⁵ : CommRing B
inst✝⁴ : Algebra R B
inst✝³ : AddCommGroup M
inst✝² : Module R M
inst✝¹ : AddCommGroup N
inst✝ : Module R N
ι : Type u
hfintype : Fintype ι
f : MvPolynomial ι R →ₐ[R] A
hsur : Surjective ↑f
this : Fintype ι := hfintype
⊢ FiniteType R A