Made very small changes

This commit is contained in:
Sayantan Santra 2023-06-13 14:35:46 -07:00
parent 3730100c86
commit 7b8c0ba127
Signed by: SinTan1729
GPG key ID: EB3E68BFBA25C85F

View file

@ -68,7 +68,7 @@ lemma isField.dim_zero {D: Type _} [CommRing D] [IsDomain D] (h: krullDim D = 0)
have : {J | J < P'}.Nonempty := Set.nonempty_of_mem this have : {J | J < P'}.Nonempty := Set.nonempty_of_mem this
rw [←Set.one_le_chainHeight_iff] at this rw [←Set.one_le_chainHeight_iff] at this
exact not_le_of_gt (Iff.mp ENat.one_le_iff_pos this) exact not_le_of_gt (Iff.mp ENat.one_le_iff_pos this)
have zero_height : (Set.chainHeight {J | J < P'}) ≤ 0 := by have nonpos_height : (Set.chainHeight {J | J < P'}) ≤ 0 := by
have : (⨆ (I : PrimeSpectrum D), (Set.chainHeight {J | J < I} : WithBot ℕ∞)) ≤ 0 := h.le have : (⨆ (I : PrimeSpectrum D), (Set.chainHeight {J | J < I} : WithBot ℕ∞)) ≤ 0 := h.le
rw [iSup_le_iff] at this rw [iSup_le_iff] at this
exact Iff.mp WithBot.coe_le_zero (this P') exact Iff.mp WithBot.coe_le_zero (this P')