SinTan1729/comm_alg
1
0
Fork 0
mirror of https://github.com/GTBarkley/comm_alg.git synced 2024-12-26 23:48:36 -06:00
Code Issues Projects Releases Packages Wiki Activity

Merge pull request #54 from ssavkar1/main

Browse source 
wrote proofs of two lemmas
This commit is contained in:
ssavkar1 2023-06-14 11:56:00 -07:00 committed by GitHub
commit 27f3854281
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
CommAlg/sameer(artinian-rings).lean
View file

@ -6,7 +6,9 @@ import Mathlib.AlgebraicGeometry.PrimeSpectrum.Basic
import Mathlib.RingTheory.DedekindDomain.DVR import Mathlib.RingTheory.DedekindDomain.DVR
lemma FieldisArtinian (R : Type _) [CommRing R] (IsField : ):= by sorry lemma FieldisArtinian (R : Type _) [CommRing R] (h: IsField R) :
IsArtinianRing R := by sorry
lemma ArtinianDomainIsField (R : Type _) [CommRing R] [IsDomain R] lemma ArtinianDomainIsField (R : Type _) [CommRing R] [IsDomain R]
@ -47,8 +49,7 @@ lemma isArtinianRing_of_quotient_of_artinian (R : Type _) [CommRing R]
lemma IsPrimeMaximal (R : Type _) [CommRing R] (P : Ideal R) lemma IsPrimeMaximal (R : Type _) [CommRing R] (P : Ideal R)
(IsArt : IsArtinianRing R) (isPrime : Ideal.IsPrime P) : Ideal.IsMaximal P := (IsArt : IsArtinianRing R) (isPrime : Ideal.IsPrime P) : Ideal.IsMaximal P :=
by by
-- if R is Artinian and P is prime then R/P is Integral Domain -- if R is Artinian and P is prime then R/P is Artinian Domain
-- which is Artinian Domain
-- R⧸P is a field by the above lemma -- R⧸P is a field by the above lemma
-- P is maximal -- P is maximal
@ -56,13 +57,13 @@ by
have artRP : IsArtinianRing (R⧸P) := by have artRP : IsArtinianRing (R⧸P) := by
exact isArtinianRing_of_quotient_of_artinian R P IsArt exact isArtinianRing_of_quotient_of_artinian R P IsArt
have artRPField : IsField (R⧸P) := by
exact ArtinianDomainIsField (R⧸P) artRP
have h := Ideal.Quotient.maximal_of_isField P artRPField
exact h
-- Then R/I is Artinian -- Then R/I is Artinian
-- have' : IsArtinianRing R ∧ Ideal.IsPrime I → IsDomain (R⧸I) := by -- have' : IsArtinianRing R ∧ Ideal.IsPrime I → IsDomain (R⧸I) := by
-- R⧸I.IsArtinian → monotone_stabilizes_iff_artinian.R⧸I -- R⧸I.IsArtinian → monotone_stabilizes_iff_artinian.R⧸I
-- Use Stacks project proof since it's broken into lemmas