For the same u and any involution pencil, the space contains none of u², u⁻² and 1/(u − b) with b ∈ Q̄ non-zero
ProvedDiazModulus.involution_pencil_space_excludes_squares_and_reciprocalsLet . 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 , . Then contains none of , and for non-zero .
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. Write the involution explicitly: with the Plücker coordinates of the pencil and (non-zero by coprimality), and for , . A membership, cleared of denominators, becomes with (: ; : ; : the same for with the reversed quadratics). As is transcendental it is a polynomial identity, so it holds at too; eliminating gives a polynomial vanishing at , hence identically, which forces to be a fixed point of and then , a contradiction.
Novelty. Not found in the sources read; it is short (the involution splits a membership into even and odd parts).
import Definitions.Def_DiazModulus
open Complex ComplexConjugate
namespace DiazModulus
theorem involution_pencil_space_excludes_squares_and_reciprocals
(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) :
u ^ 2 ∉ 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₂))) ∧
(u ^ 2)⁻¹ ∉ 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₂))) ∧
∀ b ∈ Qbar, b ≠ 0 → (u - b)⁻¹ ∉ 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₂))) := by
sorry
end DiazModulus