AlgebraicCurves.Foundations.CommutativeAlgebra.Proofs.Algebra_Smooth_isDomain_and_isIntegrallyClosed_of_isIntegrallyClosed_of_isLocalization_atPrime.isIntegrallyClosed_mvPolynomial_fin
Source context 4 commands
Surrounding namespaces, section variables, and local commands at this declaration.
section ProofImplementation
namespace AlgebraicCurves.Foundations.CommutativeAlgebra.Proofs
namespace
Algebra_Smooth_isDomain_and_isIntegrallyClosed_of_isIntegrallyClosed_of_isLocalization_atPrime
universe uLean source · full declaration
theorem isIntegrallyClosed_mvPolynomial_fin (R : Type u) [CommRing R]
[IsDomain R] [IsIntegrallyClosed R] :
∀ n : ℕ, IsIntegrallyClosed (MvPolynomial (Fin n) R)
| 0 => IsIntegrallyClosed.of_equiv (MvPolynomial.isEmptyAlgEquiv R (Fin 0)).symm.toRingEquiv
| n + 1 => by
have := isIntegrallyClosed_mvPolynomial_fin R n
exact IsIntegrallyClosed.of_equiv (MvPolynomial.finSuccEquiv R n).symm.toRingEquiv