ι : Type u_1
σ : Type ?u.3281
S : Type u_2
R : Type u_3
inst✝⁴ : Zero ι
inst✝³ : CommSemiring S
inst✝² : Semiring R
inst✝¹ : Algebra S R
A : ι → Submodule S R
inst✝ : GradedOne A
s : S
⊢ s • 1 ∈ A 0
ι : Type u_1
σ : Type ?u.3281
S : Type u_2
R : Type u_3
inst✝⁴ : Zero ι
inst✝³ : CommSemiring S
inst✝² : Semiring R
inst✝¹ : Algebra S R
A : ι → Submodule S R
inst✝ : GradedOne A
s : S
⊢ ↑(algebraMap S R) s ∈ A 0
rw [Algebra.algebraMap_eq_smul_one]
no goals
ι : Type u_1
σ : Type ?u.3281
S : Type u_2
R : Type u_3
inst✝⁴ : Zero ι
inst✝³ : CommSemiring S
inst✝² : Semiring R
inst✝¹ : Algebra S R
A : ι → Submodule S R
inst✝ : GradedOne A
s : S
⊢ s • 1 ∈ A 0
exact (A 0).smul_mem s <| SetLike.one_mem_graded _