Paper X · Lean source

IdealCharacterMellinMeasurable.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 (1)

PaperX/IdealCharacterMellinMeasurable.lean41 lines

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

Skip source text

1 import PaperX.IdealClassQuantitativeAttachment
2 import Mathlib.MeasureTheory.Function.Floor
3 
4 /-! The ordinary ideal-class counting functions are actual step functions on
5 the integer norm scale, and hence measurable. No regularity of an abstract
6 counting function is assumed. -/
7 
8 set_option autoImplicit false
9 noncomputable section
10 
11 open Ideal MeasureTheory NumberField
12 open scoped nonZeroDivisors
13 
14 namespace PaperX.IdealClassCharacter
15 
16 open PaperX.IdealClassQuantitative
17 
18 variable (K : Type*) [Field K] [NumberField K]
19 
20 /-- Integral ideal norms make the count constant on each integer step. -/
21 theorem classCount_eq_floor (C : ClassGroup (𝓞 K)) (x : ℝ) :
22     classCount K C x = classCount K C (Int.floor x : ℝ) := by
23   unfold classCount
24   apply Nat.card_congr
25   apply Equiv.subtypeEquivProp
26   funext I
27   apply propext
28   have hn : ((absNorm (I : Ideal (𝓞 K)) : ℤ) : ℝ) =
29       (absNorm (I : Ideal (𝓞 K)) : ℝ) := by norm_cast
30   rw [← hn, Int.cast_le, Int.le_floor]
31 
32 /-- Actual ordinary class counts are measurable on all of the real line. -/
33 theorem measurable_classCount (C : ClassGroup (𝓞 K)) :
34     Measurable (classCount K C) := by
35   have h : Measurable (fun n : ℤ => classCount K C (n : ℝ)) :=
36     measurable_of_countable _
37   convert h.comp (Int.measurable_floor (R := ℝ)) using 1
38   funext x
39   exact classCount_eq_floor K C x
40 
41 end PaperX.IdealClassCharacter

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: dc9052ced495b0dd8a009373247d5e3c861b65e5ae2a5f15f688b4ddb0fec215

Original source on GitHub

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