ValuationRing.exists_ne_zero_forall_smul_eq_zero_of_module_finite
Source context 4 commands
Surrounding namespaces, section variables, and local commands at this declaration.
section ProofImplementation
namespace AlgebraicCurves.Valuations.Proofs
namespace ValuationRing_exists_ne_zero_forall_smul_eq_zero_of_module_finite
open SubmoduleLean source · statement
theorem _root_.ValuationRing.exists_ne_zero_forall_smul_eq_zero_of_module_finite
{R : Type*} [CommRing R] [IsDomain R] [ValuationRing R]
{M : Type*} [AddCommGroup M] [Module R M] [Module.Finite R M] :
∃ a : R, a ≠ 0 ∧ ∀ m : M, (∃ c : R, c ≠ 0 ∧ c • m = 0) → a • m = 0