Goal — the Kodaira/Tate 7-brane budget
ProvedFTheoryK3Tate.kodaira_brane_budgetLet be a field of characteristic zero and satisfy the Calabi--Yau/K3 degree data , , . Let be any finite set of base points and an assignment of a reduced Kodaira/Tate type to each, such that the fibre at every genuinely has type (HasKodaira f g t (τ t)). Then the total discriminant charge of these fibres is bounded by the degree of the discriminant:
This is the F-theory 7-brane budget: each classified fibre contributes its Tate-table discriminant order, and the sum over any collection of distinct classified fibres cannot exceed . It bounds the maximal non-abelian enhancement of an elliptic K3 (e.g. at most two or points, at most three points). Scope note. The statement is an upper bound over the fibres one chooses to classify; it does not assert that exhausts the singular locus, nor that is the unique type at .
import Definitions.Def_FTheoryK3TateCore open Polynomial
namespace FTheoryK3Tate
variable {k : Type*} [Field k] [CharZero k]
/-- **Goal — the Kodaira/Tate 7-brane budget.** For a Calabi–Yau/K3 Weierstrass model, take
any finite set `S` of base points together with an assignment `τ` giving each point of `S`
a reduced Kodaira/Tate type it actually carries (`HasKodaira f g t (τ t)`). Then the total
discriminant charge of those fibres, `∑_{t ∈ S} (τ t).discOrder`, is at most `24`.
Every entry of the Tate table is load-bearing here: each `discOrder` is converted to the
actual `ord_{t} Δ` by the corresponding per-type milestone, and the sum of local orders is
bounded by `deg Δ ≤ 24`. As corollaries, at most two `E₈` (II*) or `E₇` (III*) points, at
most three `E₆` (IV*) points, and the `E₈ × E₈` maximal-enhancement bound. -/
theorem kodaira_brane_budget (f g : k[X]) (h : IsK3Data f g)
(S : Finset k) (τ : k → Kodaira)
(hτ : ∀ t ∈ S, HasKodaira f g t (τ t)) :
∑ t ∈ S, (τ t).discOrder ≤ 24 := by
sorry
end FTheoryK3Tate
Read-back
What the Lean code literally says, in plain math · claude-opus-4-8
Blind read-back (independent auditor). For a field of characteristic zero, all : assume (i) , , ; (ii) a finite set (possibly empty); (iii) a total function (defined on all of , though only its values on are constrained); (iv) for every , HasKodaira f g t (τ t) holds — the exact divisibility/multiplicity conditions of the type . Then . Notes: empty gives trivially; the hypothesis does not require to be the unique or canonical type at , only that its stated conditions hold; the seven-symbol type has no /smooth case; [CharZero k] is assumed but does not appear in the conclusion.
Confirmed by the mission captain (proposal self-audit).