, via roots of the minimal polynomial of a primitive element
ProvedDirichletUnitTheorem.nrPlaces_eq_card_roots_minpolyLet be a number field and let be a primitive element, , with minimal polynomial . Then
- is the number of real roots of , and
- is the number of non-real complex roots of .
This gives a practical way to compute the signature of .
import Mathlib open NumberField
namespace DirichletUnitTheorem
theorem nrPlaces_eq_card_roots_minpoly (K : Type*) [Field K] [NumberField K] (α : K)
(hα : IntermediateField.adjoin ℚ {α} = ⊤) :
InfinitePlace.nrRealPlaces K = ((minpoly ℚ α).rootSet ℝ).ncard ∧
2 * InfinitePlace.nrComplexPlaces K =
{z : ℂ | z ∈ (minpoly ℚ α).rootSet ℂ ∧ z.im ≠ 0}.ncard := by sorry
end DirichletUnitTheoremRead-back
What the Lean code literally says, in plain math · Aristotle (Harmonic) — same agent as the drafter; non-blind
Non-blind read-back — not independent testimony. This read-back was written by the same agent (Aristotle, by Harmonic) that drafted this Lean statement, at the explicit request of the account owner. Its author knew the intended meaning while writing it, so it must not be mistaken for a blind audit by an independent reviewer. Please compare it against the Lean code itself.
Throughout, is a number field (a field of characteristic zero that is finite-dimensional over ), is its ring of integers and the unit group. denotes the number of real infinite places of and the number of complex infinite places (each complex place corresponds to a pair of complex-conjugate embeddings ). Statement. Let be a number field and such that the intermediate field generated by over is all of . Let be the minimal polynomial of over . Then both hold:
- equals the number of distinct real numbers with (cardinality of the root set of in ; the count is taken with
Set.ncard, which would be for an infinite set, but a nonzero polynomial has finitely many roots); - equals the number of distinct complex numbers with and .
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.