Documentation

TauCeti.Algebra.Quaternion.TensorProduct

Tensor products of quaternion algebras with a common slot #

Two quaternion algebras ℍ[R,a,b] and ℍ[R,a,c] sharing their first parameter have a tensor product that is again a quaternion algebra up to a matrix factor:

ℍ[K,a,b] ⊗[K] ℍ[K,a,c] ≃ₐ[K] ℍ[K,a,bc] ⊗[K] M₂(K)

This is the common slot lemma (Lam III.2.11, Gille–Szamuely Lemma 1.5.2). In the Brauer group it says that the quaternion symbol is multiplicative in each argument, which is what TauCeti/Algebra/Quaternion/BrauerClass.lean proves from it.

The construction is the classical one. Writing i₁, j₁ and i₂, j₂ for the generators of the two factors, the elements i₁ ⊗ 1 and j₁ ⊗ j₂ satisfy the relations of ℍ[R,a,bc] (TauCeti.QuaternionAlgebra.linkedBasis), the elements i₁ ⊗ i₂ and 1 ⊗ j₂ satisfy those of ℍ[R,a²,c] (TauCeti.QuaternionAlgebra.squareBasis), and the two pairs commute. The universal property QuaternionAlgebra.Basis.liftHom, its compatibility with commuting generators (QuaternionAlgebra.Basis.commute_liftHom in TauCeti/Algebra/Quaternion/Basis.lean) and Algebra.TensorProduct.lift then produce an algebra map ℍ[R,a,bc] ⊗[R] ℍ[R,a²,c] → ℍ[R,a,b] ⊗[R] ℍ[R,a,c], defined over any commutative ring. Over a field with 2 invertible and unit parameters both sides are 16-dimensional and the source is a simple ring, so the map is bijective; the factor ℍ[K,a²,c] is split because its first parameter is a square.

Main results #

References #

In ℍ[R,a,b] ⊗[R] ℍ[R,a,c] the elements i ⊗ 1, j ⊗ j and k ⊗ j satisfy the relations of ℍ[R,a,bc]: they form a quaternion basis of type (a, bc).

Equations
  • One or more equations did not get rendered due to their size.
Instances For

    In ℍ[R,a,b] ⊗[R] ℍ[R,a,c] the elements i ⊗ i, 1 ⊗ j and i ⊗ k satisfy the relations of ℍ[R,a²,c]: they form a quaternion basis of type (a², c).

    Equations
    • One or more equations did not get rendered due to their size.
    Instances For

      The algebra map ℍ[R,a,bc] ⊗[R] ℍ[R,a²,c] → ℍ[R,a,b] ⊗[R] ℍ[R,a,c] of the common slot lemma, sending the generators i ⊗ 1, j ⊗ 1 of the first factor to i ⊗ 1, j ⊗ j and the generators 1 ⊗ i, 1 ⊗ j of the second factor to i ⊗ i, 1 ⊗ j.

      Equations
      Instances For
        @[simp]
        theorem TauCeti.QuaternionAlgebra.linkedTensorHom_tmul {R : Type u_1} [CommRing R] (a b c : R) (x : QuaternionAlgebra R a 0 (b * c)) (y : QuaternionAlgebra R (a ^ 2) 0 c) :
        (linkedTensorHom a b c) (x ⊗ₜ[R] y) = (linkedBasis a b c).liftHom x * (squareBasis a b c).liftHom y

        Over a field with 2 invertible and unit parameters, the common-slot map ℍ[K,a,bc] ⊗[K] ℍ[K,a²,c] → ℍ[K,a,b] ⊗[K] ℍ[K,a,c] is bijective.

        noncomputable def TauCeti.QuaternionAlgebra.linkedTensorAlgEquiv {K : Type u_1} [Field K] [Invertible 2] (a b c : Kˣ) :
        TensorProduct K (QuaternionAlgebra K (↑a) 0 (↑b * ↑c)) (QuaternionAlgebra K (↑a ^ 2) 0 ↑c) ≃ₐ[K] TensorProduct K (QuaternionAlgebra K (↑a) 0 ↑b) (QuaternionAlgebra K (↑a) 0 ↑c)

        The common slot lemma, first form. Over a field with 2 invertible and unit parameters, ℍ[K,a,bc] ⊗[K] ℍ[K,a²,c] ≃ₐ[K] ℍ[K,a,b] ⊗[K] ℍ[K,a,c].

        Equations
        Instances For
          @[simp]
          theorem TauCeti.QuaternionAlgebra.linkedTensorAlgEquiv_apply {K : Type u_1} [Field K] [Invertible 2] (a b c : Kˣ) (x : TensorProduct K (QuaternionAlgebra K (↑a) 0 (↑b * ↑c)) (QuaternionAlgebra K (↑a ^ 2) 0 ↑c)) :
          (linkedTensorAlgEquiv a b c) x = (linkedTensorHom ↑a ↑b ↑c) x
          noncomputable def TauCeti.QuaternionAlgebra.tensorAlgEquivTensorMatrix {K : Type u_1} [Field K] [Invertible 2] (a b c : Kˣ) :
          TensorProduct K (QuaternionAlgebra K (↑a) 0 ↑b) (QuaternionAlgebra K (↑a) 0 ↑c) ≃ₐ[K] TensorProduct K (QuaternionAlgebra K (↑a) 0 (↑b * ↑c)) (Matrix (Fin 2) (Fin 2) K)

          The common slot lemma (Lam III.2.11, Gille–Szamuely 1.5.2): for units a b c of a field with 2 invertible, ℍ[K,a,b] ⊗[K] ℍ[K,a,c] ≃ₐ[K] ℍ[K,a,bc] ⊗[K] M₂(K). In the Brauer group this is the multiplicativity of the quaternion symbol in its second argument.

          Equations
          • One or more equations did not get rendered due to their size.
          Instances For
            @[simp]
            theorem TauCeti.QuaternionAlgebra.tensorAlgEquivTensorMatrix_symm_tmul {K : Type u_1} [Field K] [Invertible 2] (a b c : Kˣ) (x : QuaternionAlgebra K (↑a) 0 (↑b * ↑c)) (M : Matrix (Fin 2) (Fin 2) K) :
            (tensorAlgEquivTensorMatrix a b c).symm (x ⊗ₜ[K] M) = (linkedBasis ↑a ↑b ↑c).liftHom x * (squareBasis ↑a ↑b ↑c).liftHom ((firstSquareEquivMatrix a c).symm M)

            The inverse of the common slot equivalence on a pure tensor: pull the matrix back to ℍ[K,a²,c] through firstSquareEquivMatrix and multiply the images of the two factors.