Metamath Proof Explorer


Theorem evls1rgspncl

Description: Closure of the subring polynomial evaluation in a generated ring. Generic version of cnsrplycl . See also evls1fldgencl . (Contributed by Thierry Arnoux, 8-Nov-2026)

Ref Expression
Hypotheses rngunsnply1.b ⊢ B = Base R
rngunsnply1.p ⊢ P = Poly 1 ⁡ R ↾ 𝑠 S
rngunsnply1.u ⊢ U = Base P
rngunsnply1.q ⊢ Q = R evalSub 1 S
rngunsnply1.r ⊢ φ → R ∈ CRing
rngunsnply1.s ⊢ φ → S ∈ SubRing ⁡ R
rngunsnply1.x ⊢ φ → X ∈ B
rngunsnply1.n ⊢ N = RingSpan ⁡ R
evls1rgspncl.f ⊢ φ → F ∈ U
Assertion evls1rgspncl ⊢ φ → Q ⁡ F ⁡ X ∈ N ⁡ S ∪ X

Proof

Step Hyp Ref Expression
1 rngunsnply1.b ⊢ B = Base R
2 rngunsnply1.p ⊢ P = Poly 1 ⁡ R ↾ 𝑠 S
3 rngunsnply1.u ⊢ U = Base P
4 rngunsnply1.q ⊢ Q = R evalSub 1 S
5 rngunsnply1.r ⊢ φ → R ∈ CRing
6 rngunsnply1.s ⊢ φ → S ∈ SubRing ⁡ R
7 rngunsnply1.x ⊢ φ → X ∈ B
8 rngunsnply1.n ⊢ N = RingSpan ⁡ R
9 evls1rgspncl.f ⊢ φ → F ∈ U
10 oveq2 ⊢ x = X → i ⋅ mulGrp R x = i ⋅ mulGrp R X
11 10 oveq2d ⊢ x = X → coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R x = coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R X
12 11 mpteq2dv ⊢ x = X → i ∈ ℕ 0 ⟼ coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R x = i ∈ ℕ 0 ⟼ coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R X
13 12 oveq2d ⊢ x = X → ∑ R i ∈ ℕ 0 coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R x = ∑ R i ∈ ℕ 0 coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R X
14 eqid ⊢ R ↾ 𝑠 S = R ↾ 𝑠 S
15 eqid ⊢ ⋅ R = ⋅ R
16 eqid ⊢ ⋅ mulGrp R = ⋅ mulGrp R
17 eqid ⊢ coe 1 ⁡ F = coe 1 ⁡ F
18 4 1 2 14 3 5 6 9 15 16 17 evls1fpws ⊢ φ → Q ⁡ F = x ∈ B ⟼ ∑ R i ∈ ℕ 0 coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R x
19 ovexd ⊢ φ → ∑ R i ∈ ℕ 0 coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R X ∈ V
20 13 18 7 19 fvmptd4 ⊢ φ → Q ⁡ F ⁡ X = ∑ R i ∈ ℕ 0 coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R X
21 eqid ⊢ 0 R = 0 R
22 5 crngringd ⊢ φ → R ∈ Ring
23 22 ringabld ⊢ φ → R ∈ Abel
24 nn0ex ⊢ ℕ 0 ∈ V
25 24 a1i ⊢ φ → ℕ 0 ∈ V
26 1 a1i ⊢ φ → B = Base R
27 1 subrgss ⊢ S ∈ SubRing ⁡ R → S ⊆ B
28 6 27 syl ⊢ φ → S ⊆ B
29 7 snssd ⊢ φ → X ⊆ B
30 28 29 unssd ⊢ φ → S ∪ X ⊆ B
31 8 a1i ⊢ φ → N = RingSpan ⁡ R
32 eqidd ⊢ φ → N ⁡ S ∪ X = N ⁡ S ∪ X
33 22 26 30 31 32 rgspncl ⊢ φ → N ⁡ S ∪ X ∈ SubRing ⁡ R
34 subrgsubg ⊢ N ⁡ S ∪ X ∈ SubRing ⁡ R → N ⁡ S ∪ X ∈ SubGrp ⁡ R
35 33 34 syl ⊢ φ → N ⁡ S ∪ X ∈ SubGrp ⁡ R
36 33 adantr ⊢ φ ∧ i ∈ ℕ 0 → N ⁡ S ∪ X ∈ SubRing ⁡ R
37 22 26 30 31 32 rgspnssid ⊢ φ → S ∪ X ⊆ N ⁡ S ∪ X
38 37 adantr ⊢ φ ∧ i ∈ ℕ 0 → S ∪ X ⊆ N ⁡ S ∪ X
39 38 unssad ⊢ φ ∧ i ∈ ℕ 0 → S ⊆ N ⁡ S ∪ X
40 eqid ⊢ Base R ↾ 𝑠 S = Base R ↾ 𝑠 S
41 17 3 2 40 coe1fvalcl ⊢ F ∈ U ∧ i ∈ ℕ 0 → coe 1 ⁡ F ⁡ i ∈ Base R ↾ 𝑠 S
42 9 41 sylan ⊢ φ ∧ i ∈ ℕ 0 → coe 1 ⁡ F ⁡ i ∈ Base R ↾ 𝑠 S
43 14 1 ressbas2 ⊢ S ⊆ B → S = Base R ↾ 𝑠 S
44 28 43 syl ⊢ φ → S = Base R ↾ 𝑠 S
45 44 adantr ⊢ φ ∧ i ∈ ℕ 0 → S = Base R ↾ 𝑠 S
46 42 45 eleqtrrd ⊢ φ ∧ i ∈ ℕ 0 → coe 1 ⁡ F ⁡ i ∈ S
47 39 46 sseldd ⊢ φ ∧ i ∈ ℕ 0 → coe 1 ⁡ F ⁡ i ∈ N ⁡ S ∪ X
48 eqid ⊢ mulGrp R = mulGrp R
49 48 subrgsubm ⊢ N ⁡ S ∪ X ∈ SubRing ⁡ R → N ⁡ S ∪ X ∈ SubMnd ⁡ mulGrp R
50 33 49 syl ⊢ φ → N ⁡ S ∪ X ∈ SubMnd ⁡ mulGrp R
51 50 adantr ⊢ φ ∧ i ∈ ℕ 0 → N ⁡ S ∪ X ∈ SubMnd ⁡ mulGrp R
52 simpr ⊢ φ ∧ i ∈ ℕ 0 → i ∈ ℕ 0
53 ssun2 ⊢ X ⊆ S ∪ X
54 snidg ⊢ X ∈ B → X ∈ X
55 7 54 syl ⊢ φ → X ∈ X
56 53 55 sselid ⊢ φ → X ∈ S ∪ X
57 37 56 sseldd ⊢ φ → X ∈ N ⁡ S ∪ X
58 57 adantr ⊢ φ ∧ i ∈ ℕ 0 → X ∈ N ⁡ S ∪ X
59 16 submmulgcl ⊢ N ⁡ S ∪ X ∈ SubMnd ⁡ mulGrp R ∧ i ∈ ℕ 0 ∧ X ∈ N ⁡ S ∪ X → i ⋅ mulGrp R X ∈ N ⁡ S ∪ X
60 51 52 58 59 syl3anc ⊢ φ ∧ i ∈ ℕ 0 → i ⋅ mulGrp R X ∈ N ⁡ S ∪ X
61 15 36 47 60 subrgmcld ⊢ φ ∧ i ∈ ℕ 0 → coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R X ∈ N ⁡ S ∪ X
62 61 fmpttd ⊢ φ → i ∈ ℕ 0 ⟼ coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R X : ℕ 0 ⟶ N ⁡ S ∪ X
63 14 subrgring ⊢ S ∈ SubRing ⁡ R → R ↾ 𝑠 S ∈ Ring
64 6 63 syl ⊢ φ → R ↾ 𝑠 S ∈ Ring
65 eqid ⊢ 0 R ↾ 𝑠 S = 0 R ↾ 𝑠 S
66 2 3 65 mptcoe1fsupp ⊢ R ↾ 𝑠 S ∈ Ring ∧ F ∈ U → finSupp 0 R ↾ 𝑠 S⁡ i ∈ ℕ 0 ⟼ coe 1 ⁡ F ⁡ i
67 64 9 66 syl2anc ⊢ φ → finSupp 0 R ↾ 𝑠 S⁡ i ∈ ℕ 0 ⟼ coe 1 ⁡ F ⁡ i
68 ringmnd ⊢ R ∈ Ring → R ∈ Mnd
69 22 68 syl ⊢ φ → R ∈ Mnd
70 subrgsubg ⊢ S ∈ SubRing ⁡ R → S ∈ SubGrp ⁡ R
71 6 70 syl ⊢ φ → S ∈ SubGrp ⁡ R
72 subgsubm ⊢ S ∈ SubGrp ⁡ R → S ∈ SubMnd ⁡ R
73 21 subm0cl ⊢ S ∈ SubMnd ⁡ R → 0 R ∈ S
74 71 72 73 3syl ⊢ φ → 0 R ∈ S
75 14 1 21 ress0g ⊢ R ∈ Mnd ∧ 0 R ∈ S ∧ S ⊆ B → 0 R = 0 R ↾ 𝑠 S
76 69 74 28 75 syl3anc ⊢ φ → 0 R = 0 R ↾ 𝑠 S
77 67 76 breqtrrd ⊢ φ → finSupp 0 R⁡ i ∈ ℕ 0 ⟼ coe 1 ⁡ F ⁡ i
78 22 adantr ⊢ φ ∧ x ∈ B → R ∈ Ring
79 simpr ⊢ φ ∧ x ∈ B → x ∈ B
80 1 15 21 78 79 ringlzd ⊢ φ ∧ x ∈ B → 0 R ⋅ R x = 0 R
81 1 subrgss ⊢ N ⁡ S ∪ X ∈ SubRing ⁡ R → N ⁡ S ∪ X ⊆ B
82 33 81 syl ⊢ φ → N ⁡ S ∪ X ⊆ B
83 82 adantr ⊢ φ ∧ i ∈ ℕ 0 → N ⁡ S ∪ X ⊆ B
84 83 60 sseldd ⊢ φ ∧ i ∈ ℕ 0 → i ⋅ mulGrp R X ∈ B
85 77 80 42 84 74 fsuppssov1 ⊢ φ → finSupp 0 R⁡ i ∈ ℕ 0 ⟼ coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R X
86 21 23 25 35 62 85 gsumsubgcl ⊢ φ → ∑ R i ∈ ℕ 0 coe 1 ⁡ F ⁡ i ⋅ R i ⋅ mulGrp R X ∈ N ⁡ S ∪ X
87 20 86 eqeltrd ⊢ φ → Q ⁡ F ⁡ X ∈ N ⁡ S ∪ X