Nonzero field elements positive at every real place.
Source context 5 commands
Surrounding namespaces, section variables, and local commands at this declaration.
open scoped NumberField
open NumberField
noncomputable section
namespace ClassFieldTheory
universe udef totallyPositiveFieldUnits
(K : Type u) [Field K] [NumberField K] : Subgroup Kˣ where
carrier := {x | ∀ v : RayClassRealPlace K,
0 < v.1.embedding_of_isReal v.2 (x : K)}
one_mem' := by
intro v
simp
mul_mem' := by
intro x y hx hy v
simpa only [Units.val_mul, map_mul] using mul_pos (hx v) (hy v)
inv_mem' := by
intro x hx v
simpa only [Units.val_inv_eq_inv_val, map_inv₀] using inv_pos.mpr (hx v)