IntermediateField.adjoin_range_eq_top_of_tensor_fraction
An affine tensor-product presentation supplies the field-generation condition for constant extension.
Source context 2 commands
Surrounding namespaces, section variables, and local commands at this declaration.
open scoped TensorProduct
namespace IntermediateFieldLean source · statement
theorem adjoin_range_eq_top_of_tensor_fraction
{K K' F L A B : Type*}
[Field K] [Field K'] [Field F] [Field L]
[CommRing A] [CommRing B] [Algebra K K'] [Algebra K A]
[Algebra K' B] [Algebra B L] [Algebra K' L] [IsScalarTower K' B L]
[IsFractionRing B L]
(e : K' ⊗[K] A ≃ₐ[K'] B)
(a : A →+* F) (φ : F →+* L)
(h : ∀ x : A, algebraMap B L (e (1 ⊗ₜ[K] x)) = φ (a x)) :
IntermediateField.adjoin K' (Set.range φ) = ⊤