theorem
L24 ↗discr_quadraticBasis
ClassFieldTower.Sawin.discr_quadraticBasis
The discriminant of the rational square-root basis is 4d.
Source context 2 commands
Surrounding namespaces, section variables, and local commands at this declaration.
universe u
namespace ClassFieldTower.SawinLean source · statement
theorem discr_quadraticBasis
(L : Type u) [Field L] [Algebra ℚ L] [Algebra.IsQuadraticExtension ℚ L]
(d : ℚ) (α : L) (hSquare : α ^ 2 = algebraMap ℚ L d)
(hGenerate : IntermediateField.adjoin ℚ ({α} : Set L) = ⊤) :
Algebra.discr ℚ (quadraticBasis L α hGenerate) = 4 * d