mathlib3 documentation

ring_theory.integral_closure

Integral closure of a subring. #

THIS FILE IS SYNCHRONIZED WITH MATHLIB4. Any changes to this file require a corresponding PR to mathlib4.

If A is an R-algebra then a : A is integral over R if it is a root of a monic polynomial with coefficients in R. Enough theory is developed to prove that integral elements form a sub-R-algebra of A.

Main definitions #

Let R be a comm_ring and let A be an R-algebra.

def ring_hom.is_integral_elem {R : Type u_1} {A : Type u_3} [comm_ring R] [ring A] (f : R →+* A) (x : A) :
Prop

An element x of A is said to be integral over R with respect to f if it is a root of a monic polynomial p : R[X] evaluated under f

Equations
def ring_hom.is_integral {R : Type u_1} {A : Type u_3} [comm_ring R] [ring A] (f : R →+* A) :
Prop

A ring homomorphism f : R →+* A is said to be integral if every element A is integral with respect to the map f

Equations
def is_integral (R : Type u_1) {A : Type u_3} [comm_ring R] [ring A] [algebra R A] (x : A) :
Prop

An element x of an algebra A over a commutative ring R is said to be integral, if it is a root of some monic polynomial p : R[X]. Equivalently, the element is integral over R with respect to the induced algebra_map

Equations
@[protected]
def algebra.is_integral (R : Type u_1) (A : Type u_3) [comm_ring R] [ring A] [algebra R A] :
Prop

An algebra is integral if every element of the extension is integral over the base ring

Equations
theorem ring_hom.is_integral_map {R : Type u_1} {S : Type u_2} [comm_ring R] [ring S] (f : R →+* S) {x : R} :
theorem is_integral_algebra_map {R : Type u_1} {A : Type u_3} [comm_ring R] [ring A] [algebra R A] {x : R} :
theorem is_integral_of_noetherian {R : Type u_1} {A : Type u_3} [comm_ring R] [ring A] [algebra R A] (H : is_noetherian R A) (x : A) :
theorem is_integral_of_submodule_noetherian {R : Type u_1} {A : Type u_3} [comm_ring R] [ring A] [algebra R A] (S : subalgebra R A) (H : is_noetherian R (subalgebra.to_submodule S)) (x : A) (hx : x S) :
theorem map_is_integral {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {B : Type u_3} {C : Type u_4} {F : Type u_5} [ring B] [ring C] [algebra R B] [algebra A B] [algebra R C] [is_scalar_tower R A B] [algebra A C] [is_scalar_tower R A C] {b : B} [alg_hom_class F A B C] (f : F) (hb : is_integral R b) :
theorem is_integral_map_of_comp_eq_of_is_integral {R : Type u_1} {S : Type u_2} {T : Type u_3} {U : Type u_4} [comm_ring R] [comm_ring S] [comm_ring T] [comm_ring U] [algebra R S] [algebra T U] (φ : R →+* T) (ψ : S →+* U) (h : (algebra_map T U).comp φ = ψ.comp (algebra_map R S)) {a : S} (ha : is_integral R a) :
theorem is_integral_alg_hom_iff {R : Type u_1} [comm_ring R] {A : Type u_2} {B : Type u_3} [ring A] [ring B] [algebra R A] [algebra R B] (f : A →ₐ[R] B) (hf : function.injective f) {x : A} :
@[simp]
theorem is_integral_alg_equiv {R : Type u_1} [comm_ring R] {A : Type u_2} {B : Type u_3} [ring A] [ring B] [algebra R A] [algebra R B] (f : A ≃ₐ[R] B) {x : A} :
theorem is_integral_of_is_scalar_tower {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R A] [algebra R B] [algebra A B] [is_scalar_tower R A B] {x : B} (hx : is_integral R x) :
theorem map_is_integral_int {B : Type u_1} {C : Type u_2} {F : Type u_3} [ring B] [ring C] {b : B} [ring_hom_class F B C] (f : F) (hb : is_integral b) :
theorem is_integral_of_subring {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x : A} (T : subring R) (hx : is_integral T x) :
theorem is_integral.algebra_map {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R A] [algebra R B] [algebra A B] [is_scalar_tower R A B] {x : A} (h : is_integral R x) :
theorem is_integral_algebra_map_iff {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R A] [algebra R B] [algebra A B] [is_scalar_tower R A B] {x : A} (hAB : function.injective (algebra_map A B)) :
theorem fg_adjoin_singleton_of_integral {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] (x : A) (hx : is_integral R x) :
theorem fg_adjoin_of_finite {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {s : set A} (hfs : s.finite) (his : (x : A), x s is_integral R x) :
theorem is_noetherian_adjoin_finset {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] [is_noetherian_ring R] (s : finset A) (hs : (x : A), x s is_integral R x) :
theorem is_integral_of_mem_of_fg {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] (S : subalgebra R A) (HS : (subalgebra.to_submodule S).fg) (x : A) (hx : x S) :

If S is a sub-R-algebra of A and S is finitely-generated as an R-module, then all elements of S are integral over R.

theorem is_integral_of_smul_mem_submodule {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {M : Type u_3} [add_comm_group M] [module R M] [module A M] [is_scalar_tower R A M] [no_zero_smul_divisors A M] (N : submodule R M) (hN : N ) (hN' : N.fg) (x : A) (hx : (n : M), n N x n N) :

Suppose A is an R-algebra, M is an A-module such that a • m ≠ 0 for all non-zero a and m. If x : A fixes a nontrivial f.g. R-submodule N of M, then x is R-integral.

theorem ring_hom.finite.to_is_integral {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] {f : R →+* S} (h : f.finite) :
theorem ring_hom.is_integral.of_finite {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] {f : R →+* S} (h : f.finite) :

Alias of ring_hom.finite.to_is_integral.

theorem ring_hom.is_integral.to_finite {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] {f : R →+* S} (h : f.is_integral) (h' : f.finite_type) :

finite = integral + finite type

theorem algebra.is_integral.finite {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] (h : algebra.is_integral R A) [h' : algebra.finite_type R A] :
theorem algebra.is_integral.of_finite {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] [h : module.finite R A] :

finite = integral + finite type

theorem ring_hom.is_integral_of_mem_closure {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) {x y z : S} (hx : f.is_integral_elem x) (hy : f.is_integral_elem y) (hz : z subring.closure {x, y}) :
theorem is_integral_of_mem_closure {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x y z : A} (hx : is_integral R x) (hy : is_integral R y) (hz : z subring.closure {x, y}) :
theorem ring_hom.is_integral_zero {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) :
theorem is_integral_zero {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] :
theorem ring_hom.is_integral_one {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) :
theorem is_integral_one {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] :
theorem ring_hom.is_integral_add {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) {x y : S} (hx : f.is_integral_elem x) (hy : f.is_integral_elem y) :
theorem is_integral_add {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x y : A} (hx : is_integral R x) (hy : is_integral R y) :
is_integral R (x + y)
theorem ring_hom.is_integral_neg {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) {x : S} (hx : f.is_integral_elem x) :
theorem is_integral_neg {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x : A} (hx : is_integral R x) :
theorem ring_hom.is_integral_sub {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) {x y : S} (hx : f.is_integral_elem x) (hy : f.is_integral_elem y) :
theorem is_integral_sub {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x y : A} (hx : is_integral R x) (hy : is_integral R y) :
is_integral R (x - y)
theorem ring_hom.is_integral_mul {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) {x y : S} (hx : f.is_integral_elem x) (hy : f.is_integral_elem y) :
theorem is_integral_mul {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x y : A} (hx : is_integral R x) (hy : is_integral R y) :
is_integral R (x * y)
theorem is_integral_smul {R : Type u_1} {A : Type u_2} {S : Type u_4} [comm_ring R] [comm_ring A] [comm_ring S] [algebra R A] [algebra S A] [algebra R S] [is_scalar_tower R S A] {x : A} (r : R) (hx : is_integral S x) :
theorem is_integral_of_pow {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x : A} {n : } (hn : 0 < n) (hx : is_integral R (x ^ n)) :
def integral_closure (R : Type u_1) (A : Type u_2) [comm_ring R] [comm_ring A] [algebra R A] :

The integral closure of R in an R-algebra A.

Equations
Instances for integral_closure
theorem mem_integral_closure_iff_mem_fg (R : Type u_1) (A : Type u_2) [comm_ring R] [comm_ring A] [algebra R A] {r : A} :
theorem adjoin_le_integral_closure {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x : A} (hx : is_integral R x) :
theorem integral_closure_map_alg_equiv {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R A] [algebra R B] (f : A ≃ₐ[R] B) :

Mapping an integral closure along an alg_equiv gives the integral closure.

theorem integral_closure.is_integral {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] (x : (integral_closure R A)) :
theorem ring_hom.is_integral_of_is_integral_mul_unit {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) (x y : S) (r : R) (hr : f r * y = 1) (hx : f.is_integral_elem (x * y)) :
theorem is_integral_of_is_integral_mul_unit {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x y : A} {r : R} (hr : (algebra_map R A) r * y = 1) (hx : is_integral R (x * y)) :
theorem is_integral_of_mem_closure' {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] (G : set A) (hG : (x : A), x G is_integral R x) (x : A) (H : x subring.closure G) :

Generalization of is_integral_of_mem_closure bootstrapped up from that lemma

theorem is_integral_of_mem_closure'' {R : Type u_1} [comm_ring R] {S : Type u_2} [comm_ring S] {f : R →+* S} (G : set S) (hG : (x : S), x G f.is_integral_elem x) (x : S) (H : x subring.closure G) :
theorem is_integral.pow {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x : A} (h : is_integral R x) (n : ) :
is_integral R (x ^ n)
theorem is_integral.nsmul {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x : A} (h : is_integral R x) (n : ) :
theorem is_integral.zsmul {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x : A} (h : is_integral R x) (n : ) :
theorem is_integral.multiset_prod {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {s : multiset A} (h : (x : A), x s is_integral R x) :
theorem is_integral.multiset_sum {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {s : multiset A} (h : (x : A), x s is_integral R x) :
theorem is_integral.prod {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {α : Type u_3} {s : finset α} (f : α A) (h : (x : α), x s is_integral R (f x)) :
is_integral R (s.prod (λ (x : α), f x))
theorem is_integral.sum {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {α : Type u_3} {s : finset α} (f : α A) (h : (x : α), x s is_integral R (f x)) :
is_integral R (s.sum (λ (x : α), f x))
theorem is_integral.det {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {n : Type u_3} [fintype n] [decidable_eq n] {M : matrix n n A} (h : (i j : n), is_integral R (M i j)) :
@[simp]
theorem is_integral.pow_iff {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {x : A} {n : } (hn : 0 < n) :
theorem is_integral.tmul {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R A] [algebra R B] (x : A) {y : B} (h : is_integral R y) :
noncomputable def normalize_scale_roots {R : Type u_1} [comm_ring R] (p : polynomial R) :

The monic polynomial whose roots are p.leading_coeff * x for roots x of p.

Equations
theorem ring_hom.is_integral_elem_leading_coeff_mul {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) (p : polynomial R) (x : S) (h : polynomial.eval₂ f x p = 0) :

Given a p : R[X] and a x : S such that p.eval₂ f x = 0, f p.leading_coeff * x is integral.

theorem is_integral_leading_coeff_smul {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (p : polynomial R) (x : S) [algebra R S] (h : (polynomial.aeval x) p = 0) :

Given a p : R[X] and a root x : S, then p.leading_coeff • x : S is integral over R.

@[class]
structure is_integral_closure (A : Type u_1) (R : Type u_2) (B : Type u_3) [comm_ring R] [comm_semiring A] [comm_ring B] [algebra R B] [algebra A B] :
Prop

is_integral_closure A R B is the characteristic predicate stating A is the integral closure of R in B, i.e. that an element of B is integral over R iff it is an element of (the image of) A.

Instances of this typeclass
@[protected, instance]
@[protected]
theorem is_integral_closure.is_integral (R : Type u_1) {A : Type u_2} (B : Type u_3) [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] [algebra R A] [is_scalar_tower R A B] (x : A) :
theorem is_integral_closure.is_integral_algebra (R : Type u_1) {A : Type u_2} (B : Type u_3) [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] [algebra R A] [is_scalar_tower R A B] :
noncomputable def is_integral_closure.mk' {R : Type u_1} (A : Type u_2) {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] (x : B) (hx : is_integral R x) :
A

If x : B is integral over R, then it is an element of the integral closure of R in B.

Equations
@[simp]
theorem is_integral_closure.algebra_map_mk' {R : Type u_1} (A : Type u_2) {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] (x : B) (hx : is_integral R x) :
@[simp]
theorem is_integral_closure.mk'_one {R : Type u_1} (A : Type u_2) {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] (h : is_integral R 1 := is_integral_one) :
@[simp]
theorem is_integral_closure.mk'_zero {R : Type u_1} (A : Type u_2) {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] (h : is_integral R 0 := is_integral_zero) :
@[simp]
theorem is_integral_closure.mk'_add {R : Type u_1} (A : Type u_2) {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] (x y : B) (hx : is_integral R x) (hy : is_integral R y) :
@[simp]
theorem is_integral_closure.mk'_mul {R : Type u_1} (A : Type u_2) {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] (x y : B) (hx : is_integral R x) (hy : is_integral R y) :
@[simp]
theorem is_integral_closure.mk'_algebra_map {R : Type u_1} (A : Type u_2) {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] [algebra R A] [is_scalar_tower R A B] (x : R) (h : is_integral R ((algebra_map R B) x) := is_integral_algebra_map) :
noncomputable def is_integral_closure.lift {R : Type u_1} (A : Type u_2) (B : Type u_3) [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] {S : Type u_4} [comm_ring S] [algebra R S] [algebra S B] [is_scalar_tower R S B] [algebra R A] [is_scalar_tower R A B] (h : algebra.is_integral R S) :

If B / S / R is a tower of ring extensions where S is integral over R, then S maps (uniquely) into an integral closure B / A / R.

Equations
@[simp]
theorem is_integral_closure.algebra_map_lift {R : Type u_1} (A : Type u_2) (B : Type u_3) [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] {S : Type u_4} [comm_ring S] [algebra R S] [algebra S B] [is_scalar_tower R S B] [algebra R A] [is_scalar_tower R A B] (h : algebra.is_integral R S) (x : S) :
noncomputable def is_integral_closure.equiv (R : Type u_1) (A : Type u_2) (B : Type u_3) [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] (A' : Type u_4) [comm_ring A'] [algebra A' B] [is_integral_closure A' R B] [algebra R A] [algebra R A'] [is_scalar_tower R A B] [is_scalar_tower R A' B] :
A ≃ₐ[R] A'

Integral closures are all isomorphic to each other.

Equations
@[simp]
theorem is_integral_closure.algebra_map_equiv (R : Type u_1) (A : Type u_2) (B : Type u_3) [comm_ring R] [comm_ring A] [comm_ring B] [algebra R B] [algebra A B] [is_integral_closure A R B] (A' : Type u_4) [comm_ring A'] [algebra A' B] [is_integral_closure A' R B] [algebra R A] [algebra R A'] [is_scalar_tower R A B] [is_scalar_tower R A' B] (x : A) :
theorem is_integral_trans_aux {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra A B] [algebra R B] (x : B) {p : polynomial A} (pmonic : p.monic) (hp : (polynomial.aeval x) p = 0) :
theorem is_integral_trans {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra A B] [algebra R B] [algebra R A] [is_scalar_tower R A B] (A_int : algebra.is_integral R A) (x : B) (hx : is_integral A x) :

If A is an R-algebra all of whose elements are integral over R, and x is an element of an A-algebra that is integral over A, then x is integral over R.

theorem algebra.is_integral_trans {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra A B] [algebra R B] [algebra R A] [is_scalar_tower R A B] (hA : algebra.is_integral R A) (hB : algebra.is_integral A B) :

If A is an R-algebra all of whose elements are integral over R, and B is an A-algebra all of whose elements are integral over A, then all elements of B are integral over R.

theorem ring_hom.is_integral_trans {R : Type u_1} {S : Type u_4} {T : Type u_5} [comm_ring R] [comm_ring S] [comm_ring T] (f : R →+* S) (g : S →+* T) (hf : f.is_integral) (hg : g.is_integral) :
theorem ring_hom.is_integral_of_surjective {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) (hf : function.surjective f) :
theorem is_integral_tower_bot_of_is_integral {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra A B] [algebra R B] [algebra R A] [is_scalar_tower R A B] (H : function.injective (algebra_map A B)) {x : A} (h : is_integral R ((algebra_map A B) x)) :

If R → A → B is an algebra tower with A → B injective, then if the entire tower is an integral extension so is R → A

theorem ring_hom.is_integral_tower_bot_of_is_integral {R : Type u_1} {S : Type u_4} {T : Type u_5} [comm_ring R] [comm_ring S] [comm_ring T] (f : R →+* S) (g : S →+* T) (hg : function.injective g) (hfg : (g.comp f).is_integral) :
theorem is_integral_tower_bot_of_is_integral_field {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [field A] [comm_ring B] [nontrivial B] [algebra R A] [algebra A B] [algebra R B] [is_scalar_tower R A B] {x : A} (h : is_integral R ((algebra_map A B) x)) :
theorem ring_hom.is_integral_elem_of_is_integral_elem_comp {R : Type u_1} {S : Type u_4} {T : Type u_5} [comm_ring R] [comm_ring S] [comm_ring T] (f : R →+* S) (g : S →+* T) {x : T} (h : (g.comp f).is_integral_elem x) :
theorem ring_hom.is_integral_tower_top_of_is_integral {R : Type u_1} {S : Type u_4} {T : Type u_5} [comm_ring R] [comm_ring S] [comm_ring T] (f : R →+* S) (g : S →+* T) (h : (g.comp f).is_integral) :
theorem is_integral_tower_top_of_is_integral {R : Type u_1} {A : Type u_2} {B : Type u_3} [comm_ring R] [comm_ring A] [comm_ring B] [algebra A B] [algebra R B] [algebra R A] [is_scalar_tower R A B] {x : B} (h : is_integral R x) :

If R → A → B is an algebra tower, then if the entire tower is an integral extension so is A → B.

theorem ring_hom.is_integral_quotient_of_is_integral {R : Type u_1} {S : Type u_4} [comm_ring R] [comm_ring S] (f : R →+* S) {I : ideal S} (hf : f.is_integral) :
theorem is_integral_quotient_of_is_integral {R : Type u_1} {A : Type u_2} [comm_ring R] [comm_ring A] [algebra R A] {I : ideal A} (hRA : algebra.is_integral R A) :

If the integral extension R → S is injective, and S is a field, then R is also a field.

theorem is_field_of_is_integral_of_is_field' {R : Type u_1} {S : Type u_2} [comm_ring R] [comm_ring S] [is_domain S] [algebra R S] (H : algebra.is_integral R S) (hR : is_field R) :
@[protected, instance]
theorem roots_mem_integral_closure {R : Type u_1} {S : Type u_2} [comm_ring R] [comm_ring S] [is_domain S] [algebra R S] {f : polynomial R} (hf : f.monic) {a : S} (ha : a (polynomial.map (algebra_map R S) f).roots) :