Skip to content

Commit

Permalink
Update Finite.lean
Browse files Browse the repository at this point in the history
  • Loading branch information
yuanyi-350 committed Oct 27, 2024
1 parent 7c29063 commit 2893cf6
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions Others/Finite.lean
Original file line number Diff line number Diff line change
Expand Up @@ -69,9 +69,9 @@ instance Ideal.Quotient.finite_of_module_finite_int_of_isMaxiaml
have : Module.Finite ℤ (R ⧸ p) := Module.Finite.quotient ℤ p
have : Algebra (ℤ ⧸ RingHom.ker (algebraMap ℤ (R ⧸ p))) (R ⧸ p) :=
(RingHom.kerLift <| algebraMap ℤ <| R ⧸ p).toAlgebra
have t1 : Module.Finite (ℤ ⧸ RingHom.ker (algebraMap ℤ (R ⧸ p))) (R ⧸ p) := by
have : Module.Finite (ℤ ⧸ RingHom.ker (algebraMap ℤ (R ⧸ p))) (R ⧸ p) := by
apply Module.Finite.of_restrictScalars_finite ℤ
have t2 : Finite (ℤ ⧸ RingHom.ker (algebraMap ℤ (R ⧸ p))) :=
have : Finite (ℤ ⧸ RingHom.ker (algebraMap ℤ (R ⧸ p))) :=
Int.Quotient.finite_of_ne_bot <| ne_of_mem_of_not_mem' t0 <| sub_ne_zero_of_ne neq
exact My_copy_Module.finite_of_finite (ℤ ⧸ RingHom.ker (algebraMap ℤ (R ⧸ p)))

Expand Down

0 comments on commit 2893cf6

Please sign in to comment.