ℚ⊗ O is a quaternion division algebra with centre ℚ
Provedfinrank_rat_tensorProduct_eq_four_and_forall_isUnit_and_forall_comm_mem_rangeLet be a ring which is a domain (no zero divisors, and nontrivial), free and finite as a -module, with , and let be a prime such that there exists an isomorphism of -algebras (the hypothesis is the nonemptiness of the type of such AlgEquivs, so no particular isomorphism is named). Then the -algebra satisfies three assertions simultaneously: first, ; second, every nonzero is a unit of , i.e. is a division ring; and third, every commuting with all (that is, for all ) lies in the range of the structure map , so the centre of is no larger than the image of . Non-commutativity of is not part of the conclusion; the third clause is the one-sided inclusion .
This is the recognition step saying that a rank-four -order without zero divisors having one matrix completion rationalises to a quaternion algebra over : a four-dimensional central division algebra over . It feeds the construction of definite quaternion algebras ramified exactly at a prescribed set of places together with a maximal order, used further on in the argument.
import Mathlib import Definitions.Def_QuaternionAlgebra_EichlerOrder set_option maxHeartbeats 4000000 set_option synthInstance.maxHeartbeats 400000 set_option backward.isDefEq.respectTransparency.types false set_option autoImplicit false open scoped Quaternion TensorProduct open IsDedekindDomain NumberField
theorem finrank_rat_tensorProduct_eq_four_and_forall_isUnit_and_forall_comm_mem_range
(O : Type*) [Ring O] [IsDomain O] [Module.Free ℤ O] [Module.Finite ℤ O]
(hrank : Module.finrank ℤ O = 4)
(ℓ : ℕ) [Fact ℓ.Prime] (hℓ : Nonempty (ℤ_[ℓ] ⊗[ℤ] O ≃ₐ[ℤ_[ℓ]] Matrix (Fin 2) (Fin 2) ℤ_[ℓ])) :
Module.finrank ℚ (ℚ ⊗[ℤ] O) = 4 ∧
(∀ x : ℚ ⊗[ℤ] O, x ≠ 0 → IsUnit x) ∧
(∀ z : ℚ ⊗[ℤ] O, (∀ x : ℚ ⊗[ℤ] O, z * x = x * z) →
z ∈ Set.range (algebraMap ℚ (ℚ ⊗[ℤ] O))) := by sorry