At a candidate u, under Roy's strong six exponentials theorem, a polynomial in u and ū whose hull is in the polynomial, involution or real pencil class is not in ℒ̃
ProvedDiazModulus.candidate_laurent_conj_hull_class_not_mem_logAlgTildeHere is the set of logarithms of algebraic numbers, and is the -vector space spanned by and . Roy's strong six exponentials theorem is carried as the hypothesis hSSE: if are -linearly independent and so are , then one of the six products is not in .
Let be a candidate for Diaz's conjecture (DiazModulus.IsCandidate: , with and algebraic), let with , and put . Let , let for all , and put and . If is in one of the classes
- (P) for some , not both zero;
- (Q) for some with , and ;
- (R) with , for some with and some with and ,
then .
Proof. By Hermite–Lindemann (DiazModulus.hermite_lindemann_holds), . The class forces (DiazModulus.laurent_conj_hull_class_finrank_eq_five), so Theorem E (DiazModulus.laurent_conj_hull_two_by_three_configuration_iff) puts a configuration in . If , then : , since is algebraic, (DiazModulus.logAlg_conj_stable) and (DiazModulus.logAlgTilde_conj_stable). The configuration then lies in , against hSSE.
Novelty. Each instance is a substitution in Roy's strong six exponentials theorem (Roy 1992, Cor. 2); for class (Q) it is also one in Diaz (2004, Th. 2). Not found in the sources read as a family; routine. It concerns candidates, so it is vacuous if Diaz's conjecture holds.
import Definitions.Def_DiazModulus
open Complex ComplexConjugate
namespace DiazModulus
theorem candidate_laurent_conj_hull_class_not_mem_logAlgTilde
(hSSE : ∀ (x : Fin 2 → ℂ) (y : Fin 3 → ℂ),
LinearIndependent (↥Qbar) x → LinearIndependent (↥Qbar) y →
¬ (∀ i j, x i * y j ∈ LogAlgTilde))
(u s : ℂ) (hcand : IsCandidate u) (hs : s ∈ Qbar) (hss : s * s = u * conj u)
(k : ℕ) (c : ℤ → ℂ) (hc : ∀ j, c j ∈ Qbar)
(hcls : (∃ α β : ℂ, α ∈ Qbar ∧ β ∈ Qbar ∧ (α ≠ 0 ∨ β ≠ 0) ∧ α * u ^ 2 + β * u ^ 3 ∈ Submodule.span Qbar ({1, u, conj u, (∑ j ∈ Finset.Icc (-(k : ℤ)) k, c j * (u / s) ^ j), conj (∑ j ∈ Finset.Icc (-(k : ℤ)) k, c j * (u / s) ^ j)} : Set ℂ)) ∨
(∃ e β ζ : ℂ, e ∈ Qbar ∧ β ∈ Qbar ∧ ζ ∈ Qbar ∧ e * conj e = 1 ∧ β * conj β = 1 ∧
ζ = -(β * e ^ 2 * conj ζ) ∧
Submodule.span Qbar ({1, u, conj u, (∑ j ∈ Finset.Icc (-(k : ℤ)) k, c j * (u / s) ^ j), conj (∑ j ∈ Finset.Icc (-(k : ℤ)) k, c j * (u / s) ^ j)} : Set ℂ) =
Submodule.span Qbar ({1, u, conj u, conj (u / s) ^ 2 + e * (u / s) ^ 2, β * conj (u / s) ^ 3 + ζ * (u / s) ^ 2 + e * (u / s) ^ 3} : Set ℂ)) ∨
(∃ κ : ℂ, κ ∈ Qbar ∧ κ * conj κ = 1 ∧ ∃ G : Polynomial ↥Qbar, G.coeff 0 = 0 ∧ 2 ≤ G.natDegree ∧
Submodule.span Qbar ({1, u, conj u, (∑ j ∈ Finset.Icc (-(k : ℤ)) k, c j * (u / s) ^ j), conj (∑ j ∈ Finset.Icc (-(k : ℤ)) k, c j * (u / s) ^ j)} : Set ℂ) =
Submodule.span Qbar ({1, u, conj u, Polynomial.aeval (u / s) G + κ * conj ((u / s) * Polynomial.aeval (u / s) G), conj (Polynomial.aeval (u / s) G + κ * conj ((u / s) * Polynomial.aeval (u / s) G))} : Set ℂ))) :
(∑ j ∈ Finset.Icc (-(k : ℤ)) k, c j * (u / s) ^ j) ∉ LogAlgTilde := by
sorry
end DiazModulus