For u ∉ Q̄ with uū algebraic and any involution pencil, the space carries a 2×3 configuration while no Q̄ + Q̄u + Q̄ū + Q̄w inside it does
ProvedDiazModulus.involution_pencil_configuration_invisible_to_four_dimensional_extensionsLet . Let be coprime of degree at most , one of them of degree exactly , so that is the pencil of quadratics of a Möbius involution of the -line (its members vanish on the -orbits). Let be non-zero, and let be the -span of and of , . Suppose also is algebraic, and put . Then carries a configuration, but for no outside does carry one.
For , () these are the spaces of DiazModulus.circle_point_two_pole_configuration_invisible_to_four_dimensional_extensions and of R5's families. Every 5-dimensional of rational functions of that contains a 4-term geometric progression is either of this form or contains , or some ; that converse is proved in the research notes and is not formalised.
Proof. The configuration is DiazModulus.involution_pencil_space_carries_two_by_three_configuration. Since , every with lies in . If one carried a configuration with , Theorem B (DiazModulus.circle_point_extension_two_by_three_configuration_iff) and exchange would put , or in , and would give ; DiazModulus.involution_pencil_space_excludes_squares_and_reciprocals rules all of them out.
Novelty. Not found in the sources read; it is short (Theorem B plus the exclusions). The progression step is Bachoc–Serra–Zémor (2017, Lemma 4).
import Definitions.Def_DiazModulus
open Complex ComplexConjugate
namespace DiazModulus
theorem involution_pencil_configuration_invisible_to_four_dimensional_extensions
(u : ℂ) (hu : u ∉ Qbar) (q₁ q₂ l₁ l₂ : Polynomial ↥Qbar)
(hq₁ : q₁.natDegree ≤ 2) (hq₂ : q₂.natDegree ≤ 2) (hdeg : q₁.natDegree = 2 ∨ q₂.natDegree = 2)
(hcop : IsCoprime q₁ q₂)
(hl₁ : l₁ ∈ Submodule.span ↥Qbar ({q₁, q₂} : Set (Polynomial ↥Qbar))) (hl₁0 : l₁ ≠ 0)
(hl₂ : l₂ ∈ Submodule.span ↥Qbar ({q₁, q₂} : Set (Polynomial ↥Qbar))) (hl₂0 : l₂ ≠ 0) (hρ : IsAlgebraic ℚ (u * conj u)) :
(∃ (x : Fin 2 → ℂ) (y : Fin 3 → ℂ), LinearIndependent (↥Qbar) x ∧ LinearIndependent (↥Qbar) y ∧
∀ i j, x i * y j ∈ Submodule.span Qbar (({1, u, u⁻¹} : Set ℂ) ∪ Set.range (fun i : Fin 4 =>
Polynomial.aeval u q₁ ^ (i : ℕ) * Polynomial.aeval u q₂ ^ (3 - (i : ℕ)) /
(u * Polynomial.aeval u l₁ * Polynomial.aeval u l₂)))) ∧
∀ w ∈ Submodule.span Qbar (({1, u, u⁻¹} : Set ℂ) ∪ Set.range (fun i : Fin 4 =>
Polynomial.aeval u q₁ ^ (i : ℕ) * Polynomial.aeval u q₂ ^ (3 - (i : ℕ)) /
(u * Polynomial.aeval u l₁ * Polynomial.aeval u l₂))),
w ∉ Submodule.span Qbar ({1, u, conj u} : Set ℂ) →
¬ ∃ (x : Fin 2 → ℂ) (y : Fin 3 → ℂ), LinearIndependent (↥Qbar) x ∧
LinearIndependent (↥Qbar) y ∧
∀ i j, x i * y j ∈ Submodule.span Qbar ({1, u, conj u, w} : Set ℂ) := by
sorry
end DiazModulus