MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  imasring Structured version   Visualization version   GIF version

Theorem imasring 19773
Description: The image structure of a ring is a ring. (Contributed by Mario Carneiro, 14-Jun-2015.)
Hypotheses
Ref Expression
imasring.u (𝜑𝑈 = (𝐹s 𝑅))
imasring.v (𝜑𝑉 = (Base‘𝑅))
imasring.p + = (+g𝑅)
imasring.t · = (.r𝑅)
imasring.o 1 = (1r𝑅)
imasring.f (𝜑𝐹:𝑉onto𝐵)
imasring.e1 ((𝜑 ∧ (𝑎𝑉𝑏𝑉) ∧ (𝑝𝑉𝑞𝑉)) → (((𝐹𝑎) = (𝐹𝑝) ∧ (𝐹𝑏) = (𝐹𝑞)) → (𝐹‘(𝑎 + 𝑏)) = (𝐹‘(𝑝 + 𝑞))))
imasring.e2 ((𝜑 ∧ (𝑎𝑉𝑏𝑉) ∧ (𝑝𝑉𝑞𝑉)) → (((𝐹𝑎) = (𝐹𝑝) ∧ (𝐹𝑏) = (𝐹𝑞)) → (𝐹‘(𝑎 · 𝑏)) = (𝐹‘(𝑝 · 𝑞))))
imasring.r (𝜑𝑅 ∈ Ring)
Assertion
Ref Expression
imasring (𝜑 → (𝑈 ∈ Ring ∧ (𝐹1 ) = (1r𝑈)))
Distinct variable groups:   𝑞,𝑝, +   𝑎,𝑏,𝑝,𝑞,𝜑   𝑈,𝑎,𝑏,𝑝,𝑞   1 ,𝑝,𝑞   𝐵,𝑝,𝑞   𝐹,𝑎,𝑏,𝑝,𝑞   𝑅,𝑝,𝑞   𝑉,𝑎,𝑏,𝑝,𝑞   · ,𝑝,𝑞
Allowed substitution hints:   𝐵(𝑎,𝑏)   + (𝑎,𝑏)   𝑅(𝑎,𝑏)   · (𝑎,𝑏)   1 (𝑎,𝑏)

Proof of Theorem imasring
Dummy variables 𝑢 𝑣 𝑤 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 imasring.u . . . 4 (𝜑𝑈 = (𝐹s 𝑅))
2 imasring.v . . . 4 (𝜑𝑉 = (Base‘𝑅))
3 imasring.f . . . 4 (𝜑𝐹:𝑉onto𝐵)
4 imasring.r . . . 4 (𝜑𝑅 ∈ Ring)
51, 2, 3, 4imasbas 17140 . . 3 (𝜑𝐵 = (Base‘𝑈))
6 eqidd 2739 . . 3 (𝜑 → (+g𝑈) = (+g𝑈))
7 eqidd 2739 . . 3 (𝜑 → (.r𝑈) = (.r𝑈))
8 imasring.p . . . . . 6 + = (+g𝑅)
98a1i 11 . . . . 5 (𝜑+ = (+g𝑅))
10 imasring.e1 . . . . 5 ((𝜑 ∧ (𝑎𝑉𝑏𝑉) ∧ (𝑝𝑉𝑞𝑉)) → (((𝐹𝑎) = (𝐹𝑝) ∧ (𝐹𝑏) = (𝐹𝑞)) → (𝐹‘(𝑎 + 𝑏)) = (𝐹‘(𝑝 + 𝑞))))
11 ringgrp 19703 . . . . . 6 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
124, 11syl 17 . . . . 5 (𝜑𝑅 ∈ Grp)
13 eqid 2738 . . . . 5 (0g𝑅) = (0g𝑅)
141, 2, 9, 3, 10, 12, 13imasgrp 18606 . . . 4 (𝜑 → (𝑈 ∈ Grp ∧ (𝐹‘(0g𝑅)) = (0g𝑈)))
1514simpld 494 . . 3 (𝜑𝑈 ∈ Grp)
16 imasring.e2 . . . . 5 ((𝜑 ∧ (𝑎𝑉𝑏𝑉) ∧ (𝑝𝑉𝑞𝑉)) → (((𝐹𝑎) = (𝐹𝑝) ∧ (𝐹𝑏) = (𝐹𝑞)) → (𝐹‘(𝑎 · 𝑏)) = (𝐹‘(𝑝 · 𝑞))))
17 imasring.t . . . . 5 · = (.r𝑅)
18 eqid 2738 . . . . 5 (.r𝑈) = (.r𝑈)
194adantr 480 . . . . . . . 8 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑅 ∈ Ring)
20 simprl 767 . . . . . . . . 9 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑢𝑉)
212adantr 480 . . . . . . . . 9 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑉 = (Base‘𝑅))
2220, 21eleqtrd 2841 . . . . . . . 8 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑢 ∈ (Base‘𝑅))
23 simprr 769 . . . . . . . . 9 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑣𝑉)
2423, 21eleqtrd 2841 . . . . . . . 8 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑣 ∈ (Base‘𝑅))
25 eqid 2738 . . . . . . . . 9 (Base‘𝑅) = (Base‘𝑅)
2625, 17ringcl 19715 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝑢 ∈ (Base‘𝑅) ∧ 𝑣 ∈ (Base‘𝑅)) → (𝑢 · 𝑣) ∈ (Base‘𝑅))
2719, 22, 24, 26syl3anc 1369 . . . . . . 7 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → (𝑢 · 𝑣) ∈ (Base‘𝑅))
2827, 21eleqtrrd 2842 . . . . . 6 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → (𝑢 · 𝑣) ∈ 𝑉)
2928caovclg 7442 . . . . 5 ((𝜑 ∧ (𝑝𝑉𝑞𝑉)) → (𝑝 · 𝑞) ∈ 𝑉)
303, 16, 1, 2, 4, 17, 18, 29imasmulf 17164 . . . 4 (𝜑 → (.r𝑈):(𝐵 × 𝐵)⟶𝐵)
31 fovrn 7420 . . . 4 (((.r𝑈):(𝐵 × 𝐵)⟶𝐵𝑢𝐵𝑣𝐵) → (𝑢(.r𝑈)𝑣) ∈ 𝐵)
3230, 31syl3an1 1161 . . 3 ((𝜑𝑢𝐵𝑣𝐵) → (𝑢(.r𝑈)𝑣) ∈ 𝐵)
33 forn 6675 . . . . . . . . . 10 (𝐹:𝑉onto𝐵 → ran 𝐹 = 𝐵)
343, 33syl 17 . . . . . . . . 9 (𝜑 → ran 𝐹 = 𝐵)
3534eleq2d 2824 . . . . . . . 8 (𝜑 → (𝑢 ∈ ran 𝐹𝑢𝐵))
3634eleq2d 2824 . . . . . . . 8 (𝜑 → (𝑣 ∈ ran 𝐹𝑣𝐵))
3734eleq2d 2824 . . . . . . . 8 (𝜑 → (𝑤 ∈ ran 𝐹𝑤𝐵))
3835, 36, 373anbi123d 1434 . . . . . . 7 (𝜑 → ((𝑢 ∈ ran 𝐹𝑣 ∈ ran 𝐹𝑤 ∈ ran 𝐹) ↔ (𝑢𝐵𝑣𝐵𝑤𝐵)))
39 fofn 6674 . . . . . . . . 9 (𝐹:𝑉onto𝐵𝐹 Fn 𝑉)
403, 39syl 17 . . . . . . . 8 (𝜑𝐹 Fn 𝑉)
41 fvelrnb 6812 . . . . . . . . 9 (𝐹 Fn 𝑉 → (𝑢 ∈ ran 𝐹 ↔ ∃𝑥𝑉 (𝐹𝑥) = 𝑢))
42 fvelrnb 6812 . . . . . . . . 9 (𝐹 Fn 𝑉 → (𝑣 ∈ ran 𝐹 ↔ ∃𝑦𝑉 (𝐹𝑦) = 𝑣))
43 fvelrnb 6812 . . . . . . . . 9 (𝐹 Fn 𝑉 → (𝑤 ∈ ran 𝐹 ↔ ∃𝑧𝑉 (𝐹𝑧) = 𝑤))
4441, 42, 433anbi123d 1434 . . . . . . . 8 (𝐹 Fn 𝑉 → ((𝑢 ∈ ran 𝐹𝑣 ∈ ran 𝐹𝑤 ∈ ran 𝐹) ↔ (∃𝑥𝑉 (𝐹𝑥) = 𝑢 ∧ ∃𝑦𝑉 (𝐹𝑦) = 𝑣 ∧ ∃𝑧𝑉 (𝐹𝑧) = 𝑤)))
4540, 44syl 17 . . . . . . 7 (𝜑 → ((𝑢 ∈ ran 𝐹𝑣 ∈ ran 𝐹𝑤 ∈ ran 𝐹) ↔ (∃𝑥𝑉 (𝐹𝑥) = 𝑢 ∧ ∃𝑦𝑉 (𝐹𝑦) = 𝑣 ∧ ∃𝑧𝑉 (𝐹𝑧) = 𝑤)))
4638, 45bitr3d 280 . . . . . 6 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) ↔ (∃𝑥𝑉 (𝐹𝑥) = 𝑢 ∧ ∃𝑦𝑉 (𝐹𝑦) = 𝑣 ∧ ∃𝑧𝑉 (𝐹𝑧) = 𝑤)))
47 3reeanv 3293 . . . . . 6 (∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) ↔ (∃𝑥𝑉 (𝐹𝑥) = 𝑢 ∧ ∃𝑦𝑉 (𝐹𝑦) = 𝑣 ∧ ∃𝑧𝑉 (𝐹𝑧) = 𝑤))
4846, 47bitr4di 288 . . . . 5 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) ↔ ∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤)))
494adantr 480 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑅 ∈ Ring)
50 simp2 1135 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑉𝑦𝑉) → 𝑥𝑉)
5123ad2ant1 1131 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑉𝑦𝑉) → 𝑉 = (Base‘𝑅))
5250, 51eleqtrd 2841 . . . . . . . . . . . . . . 15 ((𝜑𝑥𝑉𝑦𝑉) → 𝑥 ∈ (Base‘𝑅))
53523adant3r3 1182 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑥 ∈ (Base‘𝑅))
54 simp3 1136 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑉𝑦𝑉) → 𝑦𝑉)
5554, 51eleqtrd 2841 . . . . . . . . . . . . . . 15 ((𝜑𝑥𝑉𝑦𝑉) → 𝑦 ∈ (Base‘𝑅))
56553adant3r3 1182 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑦 ∈ (Base‘𝑅))
57 simpr3 1194 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑧𝑉)
582adantr 480 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑉 = (Base‘𝑅))
5957, 58eleqtrd 2841 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑧 ∈ (Base‘𝑅))
6025, 17ringass 19718 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
6149, 53, 56, 59, 60syl13anc 1370 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
6261fveq2d 6760 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝐹‘((𝑥 · 𝑦) · 𝑧)) = (𝐹‘(𝑥 · (𝑦 · 𝑧))))
63 simpl 482 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝜑)
6428caovclg 7442 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑥 · 𝑦) ∈ 𝑉)
65643adantr3 1169 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑥 · 𝑦) ∈ 𝑉)
663, 16, 1, 2, 4, 17, 18imasmulval 17163 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 · 𝑦) ∈ 𝑉𝑧𝑉) → ((𝐹‘(𝑥 · 𝑦))(.r𝑈)(𝐹𝑧)) = (𝐹‘((𝑥 · 𝑦) · 𝑧)))
6763, 65, 57, 66syl3anc 1369 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 · 𝑦))(.r𝑈)(𝐹𝑧)) = (𝐹‘((𝑥 · 𝑦) · 𝑧)))
68 simpr1 1192 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑥𝑉)
6928caovclg 7442 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑦𝑉𝑧𝑉)) → (𝑦 · 𝑧) ∈ 𝑉)
70693adantr1 1167 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑦 · 𝑧) ∈ 𝑉)
713, 16, 1, 2, 4, 17, 18imasmulval 17163 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉 ∧ (𝑦 · 𝑧) ∈ 𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 · 𝑧))) = (𝐹‘(𝑥 · (𝑦 · 𝑧))))
7263, 68, 70, 71syl3anc 1369 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 · 𝑧))) = (𝐹‘(𝑥 · (𝑦 · 𝑧))))
7362, 67, 723eqtr4d 2788 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 · 𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 · 𝑧))))
743, 16, 1, 2, 4, 17, 18imasmulval 17163 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉𝑦𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹𝑦)) = (𝐹‘(𝑥 · 𝑦)))
75743adant3r3 1182 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹𝑦)) = (𝐹‘(𝑥 · 𝑦)))
7675oveq1d 7270 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹‘(𝑥 · 𝑦))(.r𝑈)(𝐹𝑧)))
773, 16, 1, 2, 4, 17, 18imasmulval 17163 . . . . . . . . . . . . 13 ((𝜑𝑦𝑉𝑧𝑉) → ((𝐹𝑦)(.r𝑈)(𝐹𝑧)) = (𝐹‘(𝑦 · 𝑧)))
78773adant3r1 1180 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑦)(.r𝑈)(𝐹𝑧)) = (𝐹‘(𝑦 · 𝑧)))
7978oveq2d 7271 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) = ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 · 𝑧))))
8073, 76, 793eqtr4d 2788 . . . . . . . . . 10 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))))
81 simp1 1134 . . . . . . . . . . . . 13 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝐹𝑥) = 𝑢)
82 simp2 1135 . . . . . . . . . . . . 13 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝐹𝑦) = 𝑣)
8381, 82oveq12d 7273 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(.r𝑈)(𝐹𝑦)) = (𝑢(.r𝑈)𝑣))
84 simp3 1136 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝐹𝑧) = 𝑤)
8583, 84oveq12d 7273 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤))
8682, 84oveq12d 7273 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑦)(.r𝑈)(𝐹𝑧)) = (𝑣(.r𝑈)𝑤))
8781, 86oveq12d 7273 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤)))
8885, 87eqeq12d 2754 . . . . . . . . . 10 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((((𝐹𝑥)(.r𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) ↔ ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
8980, 88syl5ibcom 244 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
90893exp2 1352 . . . . . . . 8 (𝜑 → (𝑥𝑉 → (𝑦𝑉 → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤)))))))
9190imp32 418 . . . . . . 7 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤)))))
9291rexlimdv 3211 . . . . . 6 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (∃𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
9392rexlimdvva 3222 . . . . 5 (𝜑 → (∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
9448, 93sylbid 239 . . . 4 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
9594imp 406 . . 3 ((𝜑 ∧ (𝑢𝐵𝑣𝐵𝑤𝐵)) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤)))
9625, 8, 17ringdi 19720 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
9749, 53, 56, 59, 96syl13anc 1370 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
9897fveq2d 6760 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝐹‘(𝑥 · (𝑦 + 𝑧))) = (𝐹‘((𝑥 · 𝑦) + (𝑥 · 𝑧))))
9925, 8ringacl 19732 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ Ring ∧ 𝑢 ∈ (Base‘𝑅) ∧ 𝑣 ∈ (Base‘𝑅)) → (𝑢 + 𝑣) ∈ (Base‘𝑅))
10019, 22, 24, 99syl3anc 1369 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → (𝑢 + 𝑣) ∈ (Base‘𝑅))
101100, 21eleqtrrd 2842 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → (𝑢 + 𝑣) ∈ 𝑉)
102101caovclg 7442 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑦𝑉𝑧𝑉)) → (𝑦 + 𝑧) ∈ 𝑉)
1031023adantr1 1167 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑦 + 𝑧) ∈ 𝑉)
1043, 16, 1, 2, 4, 17, 18imasmulval 17163 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉 ∧ (𝑦 + 𝑧) ∈ 𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑥 · (𝑦 + 𝑧))))
10563, 68, 103, 104syl3anc 1369 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑥 · (𝑦 + 𝑧))))
10628caovclg 7442 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑧𝑉)) → (𝑥 · 𝑧) ∈ 𝑉)
1071063adantr2 1168 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑥 · 𝑧) ∈ 𝑉)
108 eqid 2738 . . . . . . . . . . . . . 14 (+g𝑈) = (+g𝑈)
1093, 10, 1, 2, 4, 8, 108imasaddval 17160 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 · 𝑦) ∈ 𝑉 ∧ (𝑥 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑥 · 𝑦))(+g𝑈)(𝐹‘(𝑥 · 𝑧))) = (𝐹‘((𝑥 · 𝑦) + (𝑥 · 𝑧))))
11063, 65, 107, 109syl3anc 1369 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 · 𝑦))(+g𝑈)(𝐹‘(𝑥 · 𝑧))) = (𝐹‘((𝑥 · 𝑦) + (𝑥 · 𝑧))))
11198, 105, 1103eqtr4d 2788 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 + 𝑧))) = ((𝐹‘(𝑥 · 𝑦))(+g𝑈)(𝐹‘(𝑥 · 𝑧))))
1123, 10, 1, 2, 4, 8, 108imasaddval 17160 . . . . . . . . . . . . 13 ((𝜑𝑦𝑉𝑧𝑉) → ((𝐹𝑦)(+g𝑈)(𝐹𝑧)) = (𝐹‘(𝑦 + 𝑧)))
1131123adant3r1 1180 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑦)(+g𝑈)(𝐹𝑧)) = (𝐹‘(𝑦 + 𝑧)))
114113oveq2d 7271 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(+g𝑈)(𝐹𝑧))) = ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 + 𝑧))))
1153, 16, 1, 2, 4, 17, 18imasmulval 17163 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉𝑧𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹𝑧)) = (𝐹‘(𝑥 · 𝑧)))
1161153adant3r2 1181 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹𝑧)) = (𝐹‘(𝑥 · 𝑧)))
11775, 116oveq12d 7273 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(+g𝑈)((𝐹𝑥)(.r𝑈)(𝐹𝑧))) = ((𝐹‘(𝑥 · 𝑦))(+g𝑈)(𝐹‘(𝑥 · 𝑧))))
118111, 114, 1173eqtr4d 2788 . . . . . . . . . 10 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(+g𝑈)(𝐹𝑧))) = (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(+g𝑈)((𝐹𝑥)(.r𝑈)(𝐹𝑧))))
11982, 84oveq12d 7273 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑦)(+g𝑈)(𝐹𝑧)) = (𝑣(+g𝑈)𝑤))
12081, 119oveq12d 7273 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(+g𝑈)(𝐹𝑧))) = (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)))
12181, 84oveq12d 7273 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(.r𝑈)(𝐹𝑧)) = (𝑢(.r𝑈)𝑤))
12283, 121oveq12d 7273 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(+g𝑈)((𝐹𝑥)(.r𝑈)(𝐹𝑧))) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤)))
123120, 122eqeq12d 2754 . . . . . . . . . 10 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(.r𝑈)((𝐹𝑦)(+g𝑈)(𝐹𝑧))) = (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(+g𝑈)((𝐹𝑥)(.r𝑈)(𝐹𝑧))) ↔ (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
124118, 123syl5ibcom 244 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
1251243exp2 1352 . . . . . . . 8 (𝜑 → (𝑥𝑉 → (𝑦𝑉 → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤)))))))
126125imp32 418 . . . . . . 7 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤)))))
127126rexlimdv 3211 . . . . . 6 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (∃𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
128127rexlimdvva 3222 . . . . 5 (𝜑 → (∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
12948, 128sylbid 239 . . . 4 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
130129imp 406 . . 3 ((𝜑 ∧ (𝑢𝐵𝑣𝐵𝑤𝐵)) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤)))
13125, 8, 17ringdir 19721 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
13249, 53, 56, 59, 131syl13anc 1370 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
133132fveq2d 6760 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝐹‘((𝑥 + 𝑦) · 𝑧)) = (𝐹‘((𝑥 · 𝑧) + (𝑦 · 𝑧))))
134101caovclg 7442 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑥 + 𝑦) ∈ 𝑉)
1351343adantr3 1169 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑥 + 𝑦) ∈ 𝑉)
1363, 16, 1, 2, 4, 17, 18imasmulval 17163 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 + 𝑦) ∈ 𝑉𝑧𝑉) → ((𝐹‘(𝑥 + 𝑦))(.r𝑈)(𝐹𝑧)) = (𝐹‘((𝑥 + 𝑦) · 𝑧)))
13763, 135, 57, 136syl3anc 1369 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 + 𝑦))(.r𝑈)(𝐹𝑧)) = (𝐹‘((𝑥 + 𝑦) · 𝑧)))
1383, 10, 1, 2, 4, 8, 108imasaddval 17160 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 · 𝑧) ∈ 𝑉 ∧ (𝑦 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑥 · 𝑧))(+g𝑈)(𝐹‘(𝑦 · 𝑧))) = (𝐹‘((𝑥 · 𝑧) + (𝑦 · 𝑧))))
13963, 107, 70, 138syl3anc 1369 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 · 𝑧))(+g𝑈)(𝐹‘(𝑦 · 𝑧))) = (𝐹‘((𝑥 · 𝑧) + (𝑦 · 𝑧))))
140133, 137, 1393eqtr4d 2788 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 + 𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹‘(𝑥 · 𝑧))(+g𝑈)(𝐹‘(𝑦 · 𝑧))))
1413, 10, 1, 2, 4, 8, 108imasaddval 17160 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉𝑦𝑉) → ((𝐹𝑥)(+g𝑈)(𝐹𝑦)) = (𝐹‘(𝑥 + 𝑦)))
1421413adant3r3 1182 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(+g𝑈)(𝐹𝑦)) = (𝐹‘(𝑥 + 𝑦)))
143142oveq1d 7270 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(+g𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹‘(𝑥 + 𝑦))(.r𝑈)(𝐹𝑧)))
144116, 78oveq12d 7273 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(.r𝑈)(𝐹𝑧))(+g𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) = ((𝐹‘(𝑥 · 𝑧))(+g𝑈)(𝐹‘(𝑦 · 𝑧))))
145140, 143, 1443eqtr4d 2788 . . . . . . . . . 10 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(+g𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = (((𝐹𝑥)(.r𝑈)(𝐹𝑧))(+g𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))))
14681, 82oveq12d 7273 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(+g𝑈)(𝐹𝑦)) = (𝑢(+g𝑈)𝑣))
147146, 84oveq12d 7273 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(+g𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤))
148121, 86oveq12d 7273 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(.r𝑈)(𝐹𝑧))(+g𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤)))
149147, 148eqeq12d 2754 . . . . . . . . . 10 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((((𝐹𝑥)(+g𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = (((𝐹𝑥)(.r𝑈)(𝐹𝑧))(+g𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) ↔ ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
150145, 149syl5ibcom 244 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
1511503exp2 1352 . . . . . . . 8 (𝜑 → (𝑥𝑉 → (𝑦𝑉 → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤)))))))
152151imp32 418 . . . . . . 7 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤)))))
153152rexlimdv 3211 . . . . . 6 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (∃𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
154153rexlimdvva 3222 . . . . 5 (𝜑 → (∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
15548, 154sylbid 239 . . . 4 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
156155imp 406 . . 3 ((𝜑 ∧ (𝑢𝐵𝑣𝐵𝑤𝐵)) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤)))
157 fof 6672 . . . . 5 (𝐹:𝑉onto𝐵𝐹:𝑉𝐵)
1583, 157syl 17 . . . 4 (𝜑𝐹:𝑉𝐵)
159 imasring.o . . . . . . 7 1 = (1r𝑅)
16025, 159ringidcl 19722 . . . . . 6 (𝑅 ∈ Ring → 1 ∈ (Base‘𝑅))
1614, 160syl 17 . . . . 5 (𝜑1 ∈ (Base‘𝑅))
162161, 2eleqtrrd 2842 . . . 4 (𝜑1𝑉)
163158, 162ffvelrnd 6944 . . 3 (𝜑 → (𝐹1 ) ∈ 𝐵)
16440, 41syl 17 . . . . . 6 (𝜑 → (𝑢 ∈ ran 𝐹 ↔ ∃𝑥𝑉 (𝐹𝑥) = 𝑢))
16535, 164bitr3d 280 . . . . 5 (𝜑 → (𝑢𝐵 ↔ ∃𝑥𝑉 (𝐹𝑥) = 𝑢))
166 simpl 482 . . . . . . . . 9 ((𝜑𝑥𝑉) → 𝜑)
167162adantr 480 . . . . . . . . 9 ((𝜑𝑥𝑉) → 1𝑉)
168 simpr 484 . . . . . . . . 9 ((𝜑𝑥𝑉) → 𝑥𝑉)
1693, 16, 1, 2, 4, 17, 18imasmulval 17163 . . . . . . . . 9 ((𝜑1𝑉𝑥𝑉) → ((𝐹1 )(.r𝑈)(𝐹𝑥)) = (𝐹‘( 1 · 𝑥)))
170166, 167, 168, 169syl3anc 1369 . . . . . . . 8 ((𝜑𝑥𝑉) → ((𝐹1 )(.r𝑈)(𝐹𝑥)) = (𝐹‘( 1 · 𝑥)))
1712eleq2d 2824 . . . . . . . . . . 11 (𝜑 → (𝑥𝑉𝑥 ∈ (Base‘𝑅)))
172171biimpa 476 . . . . . . . . . 10 ((𝜑𝑥𝑉) → 𝑥 ∈ (Base‘𝑅))
17325, 17, 159ringlidm 19725 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅)) → ( 1 · 𝑥) = 𝑥)
1744, 172, 173syl2an2r 681 . . . . . . . . 9 ((𝜑𝑥𝑉) → ( 1 · 𝑥) = 𝑥)
175174fveq2d 6760 . . . . . . . 8 ((𝜑𝑥𝑉) → (𝐹‘( 1 · 𝑥)) = (𝐹𝑥))
176170, 175eqtrd 2778 . . . . . . 7 ((𝜑𝑥𝑉) → ((𝐹1 )(.r𝑈)(𝐹𝑥)) = (𝐹𝑥))
177 oveq2 7263 . . . . . . . 8 ((𝐹𝑥) = 𝑢 → ((𝐹1 )(.r𝑈)(𝐹𝑥)) = ((𝐹1 )(.r𝑈)𝑢))
178 id 22 . . . . . . . 8 ((𝐹𝑥) = 𝑢 → (𝐹𝑥) = 𝑢)
179177, 178eqeq12d 2754 . . . . . . 7 ((𝐹𝑥) = 𝑢 → (((𝐹1 )(.r𝑈)(𝐹𝑥)) = (𝐹𝑥) ↔ ((𝐹1 )(.r𝑈)𝑢) = 𝑢))
180176, 179syl5ibcom 244 . . . . . 6 ((𝜑𝑥𝑉) → ((𝐹𝑥) = 𝑢 → ((𝐹1 )(.r𝑈)𝑢) = 𝑢))
181180rexlimdva 3212 . . . . 5 (𝜑 → (∃𝑥𝑉 (𝐹𝑥) = 𝑢 → ((𝐹1 )(.r𝑈)𝑢) = 𝑢))
182165, 181sylbid 239 . . . 4 (𝜑 → (𝑢𝐵 → ((𝐹1 )(.r𝑈)𝑢) = 𝑢))
183182imp 406 . . 3 ((𝜑𝑢𝐵) → ((𝐹1 )(.r𝑈)𝑢) = 𝑢)
1843, 16, 1, 2, 4, 17, 18imasmulval 17163 . . . . . . . . 9 ((𝜑𝑥𝑉1𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝐹‘(𝑥 · 1 )))
185167, 184mpd3an3 1460 . . . . . . . 8 ((𝜑𝑥𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝐹‘(𝑥 · 1 )))
18625, 17, 159ringridm 19726 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅)) → (𝑥 · 1 ) = 𝑥)
1874, 172, 186syl2an2r 681 . . . . . . . . 9 ((𝜑𝑥𝑉) → (𝑥 · 1 ) = 𝑥)
188187fveq2d 6760 . . . . . . . 8 ((𝜑𝑥𝑉) → (𝐹‘(𝑥 · 1 )) = (𝐹𝑥))
189185, 188eqtrd 2778 . . . . . . 7 ((𝜑𝑥𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝐹𝑥))
190 oveq1 7262 . . . . . . . 8 ((𝐹𝑥) = 𝑢 → ((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝑢(.r𝑈)(𝐹1 )))
191190, 178eqeq12d 2754 . . . . . . 7 ((𝐹𝑥) = 𝑢 → (((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝐹𝑥) ↔ (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
192189, 191syl5ibcom 244 . . . . . 6 ((𝜑𝑥𝑉) → ((𝐹𝑥) = 𝑢 → (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
193192rexlimdva 3212 . . . . 5 (𝜑 → (∃𝑥𝑉 (𝐹𝑥) = 𝑢 → (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
194165, 193sylbid 239 . . . 4 (𝜑 → (𝑢𝐵 → (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
195194imp 406 . . 3 ((𝜑𝑢𝐵) → (𝑢(.r𝑈)(𝐹1 )) = 𝑢)
1965, 6, 7, 15, 32, 95, 130, 156, 163, 183, 195isringd 19739 . 2 (𝜑𝑈 ∈ Ring)
197163, 5eleqtrd 2841 . . . 4 (𝜑 → (𝐹1 ) ∈ (Base‘𝑈))
1985eleq2d 2824 . . . . . 6 (𝜑 → (𝑢𝐵𝑢 ∈ (Base‘𝑈)))
199182, 194jcad 512 . . . . . 6 (𝜑 → (𝑢𝐵 → (((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢)))
200198, 199sylbird 259 . . . . 5 (𝜑 → (𝑢 ∈ (Base‘𝑈) → (((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢)))
201200ralrimiv 3106 . . . 4 (𝜑 → ∀𝑢 ∈ (Base‘𝑈)(((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
202 eqid 2738 . . . . . 6 (Base‘𝑈) = (Base‘𝑈)
203 eqid 2738 . . . . . 6 (1r𝑈) = (1r𝑈)
204202, 18, 203isringid 19727 . . . . 5 (𝑈 ∈ Ring → (((𝐹1 ) ∈ (Base‘𝑈) ∧ ∀𝑢 ∈ (Base‘𝑈)(((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢)) ↔ (1r𝑈) = (𝐹1 )))
205196, 204syl 17 . . . 4 (𝜑 → (((𝐹1 ) ∈ (Base‘𝑈) ∧ ∀𝑢 ∈ (Base‘𝑈)(((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢)) ↔ (1r𝑈) = (𝐹1 )))
206197, 201, 205mpbi2and 708 . . 3 (𝜑 → (1r𝑈) = (𝐹1 ))
207206eqcomd 2744 . 2 (𝜑 → (𝐹1 ) = (1r𝑈))
208196, 207jca 511 1 (𝜑 → (𝑈 ∈ Ring ∧ (𝐹1 ) = (1r𝑈)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 395  w3a 1085   = wceq 1539  wcel 2108  wral 3063  wrex 3064   × cxp 5578  ran crn 5581   Fn wfn 6413  wf 6414  ontowfo 6416  cfv 6418  (class class class)co 7255  Basecbs 16840  +gcplusg 16888  .rcmulr 16889  0gc0g 17067  s cimas 17132  Grpcgrp 18492  1rcur 19652  Ringcrg 19698
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-rep 5205  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-cnex 10858  ax-resscn 10859  ax-1cn 10860  ax-icn 10861  ax-addcl 10862  ax-addrcl 10863  ax-mulcl 10864  ax-mulrcl 10865  ax-mulcom 10866  ax-addass 10867  ax-mulass 10868  ax-distr 10869  ax-i2m1 10870  ax-1ne0 10871  ax-1rid 10872  ax-rnegex 10873  ax-rrecex 10874  ax-cnre 10875  ax-pre-lttri 10876  ax-pre-lttrn 10877  ax-pre-ltadd 10878  ax-pre-mulgt0 10879
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3068  df-rex 3069  df-reu 3070  df-rmo 3071  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-riota 7212  df-ov 7258  df-oprab 7259  df-mpo 7260  df-om 7688  df-1st 7804  df-2nd 7805  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-1o 8267  df-er 8456  df-en 8692  df-dom 8693  df-sdom 8694  df-fin 8695  df-sup 9131  df-inf 9132  df-pnf 10942  df-mnf 10943  df-xr 10944  df-ltxr 10945  df-le 10946  df-sub 11137  df-neg 11138  df-nn 11904  df-2 11966  df-3 11967  df-4 11968  df-5 11969  df-6 11970  df-7 11971  df-8 11972  df-9 11973  df-n0 12164  df-z 12250  df-dec 12367  df-uz 12512  df-fz 13169  df-struct 16776  df-sets 16793  df-slot 16811  df-ndx 16823  df-base 16841  df-plusg 16901  df-mulr 16902  df-sca 16904  df-vsca 16905  df-ip 16906  df-tset 16907  df-ple 16908  df-ds 16910  df-0g 17069  df-imas 17136  df-mgm 18241  df-sgrp 18290  df-mnd 18301  df-grp 18495  df-minusg 18496  df-mgp 19636  df-ur 19653  df-ring 19700
This theorem is referenced by:  qusring2  19774
  Copyright terms: Public domain W3C validator