Paper X · Lean source

ReconstructionLocal.lean

Declared contract recorded Coverage and evidence

The cited release explicitly reports completion of its registered formal contract, under its exact hypotheses.

This viewer reads the retained source; it does not run Lean or assign new claim mappings.

Local imports (2)

PaperX/ReconstructionLocal.lean46 lines

Original source pathcurrent_continuation/lean/PaperX/ReconstructionLocal.lean
Skip declarations and read code

Skip source text

1 import PaperX.MonodromyReconstruction
2 import PaperX.WeilEuler
3 
4 /-! Local fixed kernels and Euler polynomials are preserved by twisting supplied data. -/
5 set_option autoImplicit false
6 noncomputable section
7 namespace PaperX.ReconstructionLocal
8 open PaperX.WeilData PaperX.MonodromyReconstruction PaperX.WeilEuler
9 variable {K G V : Type*} [Field K] [CharZero K] [Group G]
10 variable {ν : G →* Kˣ} [AddCommGroup V] [Module K V]
11 
12 def localEquiv (D : Datum ν V) (t : TwistedCocycle ν) (H : Subgroup G) :
13     fixedKernel (twist D t) H ≃ₗ[K] fixedKernel D H where
14   toFun x := ⟨x.val, by rw [← twist_fixedKernel D t H]; exact x.property⟩
15   invFun x := ⟨x.val, by rw [twist_fixedKernel D t H]; exact x.property⟩
16   left_inv _ := rfl
17   right_inv _ := rfl
18   map_add' _ _ := rfl
19   map_smul' _ _ := rfl
20 
21 theorem local_equivariant (D : Datum ν V) (t : TwistedCocycle ν) (H : Subgroup G)
22     [H.Normal] (g : G) (x : fixedKernel (twist D t) H) :
23     localEquiv D t H (fixedRep (twist D t) H g x) =
24       fixedRep D H g (localEquiv D t H x) := by
25   apply Subtype.ext
26   exact reconstruct_on_kernel D t g x.property.1
27 
28 theorem local_conjugate (D : Datum ν V) (t : TwistedCocycle ν) (H : Subgroup G)
29     [H.Normal] (g : G) :
30     (localEquiv D t H).conj (fixedRep (twist D t) H g) = fixedRep D H g := by
31   ext x
32   exact reconstruct_on_kernel D t g x.property.1
33 
34 variable [FiniteDimensional K V]
35 
36 theorem twist_localCharpoly (D : Datum ν V) (t : TwistedCocycle ν) (H : Subgroup G)
37     [H.Normal] (φ : G) : localCharpoly (twist D t) H φ = localCharpoly D H φ := by
38   unfold localCharpoly
39   rw [← LinearEquiv.charpoly_conj (localEquiv D t H), local_conjugate]
40 
41 theorem twist_euler (D : Datum ν V) (t : TwistedCocycle ν) (H : Subgroup G)
42     [H.Normal] (φ : G) : eulerPolynomial (twist D t) H φ = eulerPolynomial D H φ := by
43   unfold eulerPolynomial
44   rw [twist_localCharpoly]
45 
46 end PaperX.ReconstructionLocal

Back to source controls

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: 1d77c0724e5e2193055d6a75f02f39da14954685a2042508621a3b214542154c

Original source on GitHub

Back to Paper X: Universal Residual Seeds and Conditional Occupied-System Completion