Paper XI · Lean source
ProjectorTransport.lean
Selected results recorded Coverage and evidence
Compiler/replay evidence is reported for a subset or bounded block. No whole-work coverage is implied.
This viewer reads the retained source; it does not run Lean or assign new claim mappings.
PaperXI/ProjectorTransport.lean27 lines
Original source path
formalization/PaperXI/ProjectorTransport.leanSkip declarations and read code
1 import Mathlib.LinearAlgebra.Pi
2 import Mathlib.Tactic
3
4 /-! Exact reindexing law underlying the Frobenius covariance in Proposition 3.1.
5 This does not yet prove Fourier idempotence or the Weil-group realization.
6 The character weight transforms by the inverse permutation. -/
7 set_option autoImplicit false
8 noncomputable section
9 namespace PaperXI.ProjectorTransport
10 open scoped BigOperators
11
12 variable {K V G : Type*} [Field K] [AddCommGroup V] [Module K V] [Fintype G]
13
14 theorem weighted_sum_conjugation (e : G ≃ G) (F : V ≃ₗ[K] V)
15 (T : G → Module.End K V) (w : G → K)
16 (h : ∀ g, F.conj (T g) = T (e g)) :
17 F.conj (∑ g, w g • T g) = ∑ g, w (e.symm g) • T g := by
18 simp only [map_sum, map_smul, h]
19 simpa using (Equiv.sum_comp e (fun g => w (e.symm g) • T g))
20
21 theorem normalized_sum_conjugation (e : G ≃ G) (F : V ≃ₗ[K] V)
22 (T : G → Module.End K V) (w : G → K) (c : K)
23 (h : ∀ g, F.conj (T g) = T (e g)) :
24 F.conj (c • ∑ g, w g • T g) = c • ∑ g, w (e.symm g) • T g := by
25 rw [map_smul, weighted_sum_conjugation e F T w h]
26
27 end PaperXI.ProjectorTransport
Original file and source record
This copy matches the recorded source file. Its publication here does not change the work’s review status.
SHA-256: c88eba65d49511600eaef67165160b9de7d6f1dcb5c6f56476feb8a5259b3592
Back to Paper XI: Packets, Arithmetic Realization, and Conditional Comparison