Definitions/Def_AutomorphicForm_GL2TwistedMonomialFibres.lean
Twisted invariants and fibre terms for GL(2,ℂ) monomials
Fix g \in \mathrm{GL}_2(\mathbb{C}) and write \bar g for its entrywise conjugate (the conjEntries of the ambient module) and g^{*} for its conjugate transpose. Four scalar invariants are introduced: invFrobSq T = \operatorname{Re}\operatorname{tr}(g g^{*}), the sum of the squared moduli of the entries; invTraceNorm y = \operatorname{tr}(g\bar g) \in \mathbb{C}; invSecondRe = \operatorname{Re}\operatorname{tr}\bigl((g\bar g)(g g^{*})\bigr); and invAbsDet d = |\det g|. From these, invDifference is E = \bigl(\operatorname{Re}\operatorname{tr}((g\bar g)(gg^{*})) - T\,\operatorname{Re} y + 2d^{2}\bigr)/d, and monomialInput of bidegree (i,l) is the real number
\Bigl(\tfrac{T - \operatorname{Re} y + E}{2(T+2d)}\Bigr)^{i}\Bigl(\tfrac{T - \operatorname{Re} y - E}{2(T-2d)}\Bigr)^{l}.
Divisions follow the Lean convention that division by zero is zero, so on the locus T = 2d the second base is read as 0.
The remaining definitions are the shapes in which these monomials are expected to transform. fibreMonomialFactor is (T-x)^{i+l}/\bigl((T+2d)^{i}(T-2d)^{l}\bigr) for real parameters T, d, x; fibreArcIntegral is \int_{-\Psi/2}^{\Psi/2}\cos^{2i}\psi\,\sin^{2l}\psi\,d\psi; and ellipticArcLength is \arccos\bigl((2r - T\cos\theta)/(T - 2r\cos\theta)\bigr). Then ellipticFibreTerm is the complex number obtained from the real quantity (4\pi\sin\theta/r)\cdot (the monomial factor at d = r, x = 2r\cos\theta) \cdot (the arc integral over an arc of length ellipticArcLength), while splitFibreTerm at (a_1,a_2) is one half of the monomial factor at d = \sqrt{a_1 a_2}, x = a_1 + a_2, times the arc integral over \Psi = 2\pi, i.e. the full circle. Finally, for a complex-valued profile c on the levels T, ellipticFibreSide is \int_{T > 2r} c(T)\,\cdot ellipticFibreTerm and splitFibreSide is \int_{T > a_1+a_2} c(T)\,\cdot splitFibreTerm, both Lebesgue integrals over the indicated half-lines.
Relation to Mathlib
All thirteen notions are the project's own; Mathlib contributes only the ingredients (Matrix.trace, Matrix.conjTranspose, Matrix.det, Real.arccos, and interval and set integrals).
Where it is used
This vocabulary accompanies the twisted orbital transforms twistedSplitTransform and twistedEllipticTransform of the imported module: the fibre terms are the level-wise integrands through which the split and elliptic twisted transforms of monomialInput are compared, and the bidegree (0,0) case supplies the pairing identity used in the automorphic input to the argument.
English text generated automatically from the Lean source; the Lean statement is authoritative.
- 55 lines
- 13 declarations
- used in the statements of 2 theorems and imported by 3 proofs
- imports 1 definition modules
Source file: Definitions/Def_AutomorphicForm_GL2TwistedMonomialFibres.lean
Imported by
- no other definition module
Declarations
- def
AutomorphicForm.GL2Twisted.invFrobSq - def
AutomorphicForm.GL2Twisted.invTraceNorm - def
AutomorphicForm.GL2Twisted.invSecondRe - def
AutomorphicForm.GL2Twisted.invAbsDet - def
AutomorphicForm.GL2Twisted.invDifference - def
AutomorphicForm.GL2Twisted.monomialInput - def
AutomorphicForm.GL2Twisted.fibreMonomialFactor - def
AutomorphicForm.GL2Twisted.fibreArcIntegral - def
AutomorphicForm.GL2Twisted.ellipticArcLength - def
AutomorphicForm.GL2Twisted.ellipticFibreTerm - def
AutomorphicForm.GL2Twisted.splitFibreTerm - def
AutomorphicForm.GL2Twisted.ellipticFibreSide - def
AutomorphicForm.GL2Twisted.splitFibreSide
Source
import Definitions.Def_AutomorphicForm_GL2TwistedOrbitalTransforms import Mathlib.Analysis.SpecialFunctions.Trigonometric.Inverse ↗ open MeasureTheory noncomputable section namespace AutomorphicForm.GL2Twisted def invFrobSq (g : GL (Fin 2) ℂ) : ℝ := (Matrix.trace ((g : Matrix (Fin 2) (Fin 2) ℂ) * Matrix.conjTranspose (g : Matrix (Fin 2) (Fin 2) ℂ))).re def invTraceNorm (g : GL (Fin 2) ℂ) : ℂ := Matrix.trace ((g * conjEntries g : GL (Fin 2) ℂ) : Matrix (Fin 2) (Fin 2) ℂ) def invSecondRe (g : GL (Fin 2) ℂ) : ℝ := (Matrix.trace (((g * conjEntries g : GL (Fin 2) ℂ) : Matrix (Fin 2) (Fin 2) ℂ) * ((g : Matrix (Fin 2) (Fin 2) ℂ) * Matrix.conjTranspose (g : Matrix (Fin 2) (Fin 2) ℂ)))).re def invAbsDet (g : GL (Fin 2) ℂ) : ℝ := ‖Matrix.det (g : Matrix (Fin 2) (Fin 2) ℂ)‖ def invDifference (g : GL (Fin 2) ℂ) : ℝ := (invSecondRe g - invFrobSq g * (invTraceNorm g).re + 2 * invAbsDet g ^ 2) / invAbsDet g def monomialInput (i l : ℕ) (g : GL (Fin 2) ℂ) : ℝ := ((invFrobSq g - (invTraceNorm g).re + invDifference g) / (2 * (invFrobSq g + 2 * invAbsDet g))) ^ i * ((invFrobSq g - (invTraceNorm g).re - invDifference g) / (2 * (invFrobSq g - 2 * invAbsDet g))) ^ l def fibreMonomialFactor (i l : ℕ) (T d x : ℝ) : ℝ := (T - x) ^ (i + l) / ((T + 2 * d) ^ i * (T - 2 * d) ^ l) def fibreArcIntegral (i l : ℕ) (Ψ : ℝ) : ℝ := ∫ ψ in (-(Ψ / 2))..(Ψ / 2), Real.cos ψ ^ (2 * i) * Real.sin ψ ^ (2 * l) def ellipticArcLength (T r θ : ℝ) : ℝ := Real.arccos ((2 * r - T * Real.cos θ) / (T - 2 * r * Real.cos θ)) def ellipticFibreTerm (i l : ℕ) (T r θ : ℝ) : ℂ := ((4 * Real.pi * Real.sin θ / r : ℝ) : ℂ) * ((fibreMonomialFactor i l T r (2 * r * Real.cos θ) * fibreArcIntegral i l (ellipticArcLength T r θ) : ℝ) : ℂ) def splitFibreTerm (i l : ℕ) (T a₁ a₂ : ℝ) : ℂ := ((1 / 2 * fibreMonomialFactor i l T (Real.sqrt (a₁ * a₂)) (a₁ + a₂) * fibreArcIntegral i l (2 * Real.pi) : ℝ) : ℂ) def ellipticFibreSide (i l : ℕ) (c : ℝ → ℂ) (r θ : ℝ) : ℂ := ∫ T in Set.Ioi (2 * r), c T * ellipticFibreTerm i l T r θ def splitFibreSide (i l : ℕ) (c : ℝ → ℂ) (a₁ a₂ : ℝ) : ℂ := ∫ T in Set.Ioi (a₁ + a₂), c T * splitFibreTerm i l T a₁ a₂ end AutomorphicForm.GL2Twisted end
Statements phrased using this module (2)
- Elliptic and split fibre pairings agree in bidegree (0,0)
AutomorphicForm.GL2Twisted.ellipticFibreTerm_pairing_eq_splitFibreTerm_pairing0 below · depth 23 - Twisted transforms of a monomial input equal fibre sides
AutomorphicForm.GL2Twisted.twistedTransforms_monomialInput_eq_fibreSides0 below · depth 23