EtaleFundamentalGroups.exists_finiteIntermediateField_tensorProduct_algHom
Native Hom descent preserves the literal coefficient square.
Source context 6 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
open CategoryTheory CategoryTheory.Limits
open scoped TensorProduct
universe u
namespace EtaleFundamentalGroups
open CategoryTheory.CategoricalTensorDescentLean source · statement
theorem exists_finiteIntermediateField_tensorProduct_algHom
(k L R B D : Type u) [Field k] [Field L]
[CommRing R] [CommRing B] [CommRing D]
[Algebra k L] [Algebra k R] [Algebra.IsAlgebraic k L]
[Algebra R B] [Algebra R D]
[Algebra.FinitePresentation R B]
(e : ((R ⊗[k] L) ⊗[R] B) →ₐ[R ⊗[k] L] ((R ⊗[k] L) ⊗[R] D)) :
∃ F : IntermediateField k L, FiniteDimensional k F ∧
∃ eF : ((R ⊗[k] F.toSubalgebra) ⊗[R] B) →ₐ[R ⊗[k] F.toSubalgebra]
((R ⊗[k] F.toSubalgebra) ⊗[R] D),
(Algebra.TensorProduct.map
(Algebra.TensorProduct.map (R := k) (S := R) (AlgHom.id R R) F.val)
(AlgHom.id R D)).comp (eF.restrictScalars R) =
(e.restrictScalars R).comp
(Algebra.TensorProduct.map
(Algebra.TensorProduct.map (R := k) (S := R) (AlgHom.id R R) F.val)
(AlgHom.id R B))