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

Theorem imasring 18817
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 16372 . . 3 (𝜑𝐵 = (Base‘𝑈))
6 eqidd 2759 . . 3 (𝜑 → (+g𝑈) = (+g𝑈))
7 eqidd 2759 . . 3 (𝜑 → (.r𝑈) = (.r𝑈))
8 imasring.p . . . . . 6 + = (+g𝑅)
98a1i 11 . . . . 5 (𝜑+ = (+g𝑅))
10 imasring.e1 . . . . 5 ((𝜑 ∧ (𝑎𝑉𝑏𝑉) ∧ (𝑝𝑉𝑞𝑉)) → (((𝐹𝑎) = (𝐹𝑝) ∧ (𝐹𝑏) = (𝐹𝑞)) → (𝐹‘(𝑎 + 𝑏)) = (𝐹‘(𝑝 + 𝑞))))
11 ringgrp 18750 . . . . . 6 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
124, 11syl 17 . . . . 5 (𝜑𝑅 ∈ Grp)
13 eqid 2758 . . . . 5 (0g𝑅) = (0g𝑅)
141, 2, 9, 3, 10, 12, 13imasgrp 17730 . . . 4 (𝜑 → (𝑈 ∈ Grp ∧ (𝐹‘(0g𝑅)) = (0g𝑈)))
1514simpld 477 . . 3 (𝜑𝑈 ∈ Grp)
16 imasring.e2 . . . . 5 ((𝜑 ∧ (𝑎𝑉𝑏𝑉) ∧ (𝑝𝑉𝑞𝑉)) → (((𝐹𝑎) = (𝐹𝑝) ∧ (𝐹𝑏) = (𝐹𝑞)) → (𝐹‘(𝑎 · 𝑏)) = (𝐹‘(𝑝 · 𝑞))))
17 imasring.t . . . . 5 · = (.r𝑅)
18 eqid 2758 . . . . 5 (.r𝑈) = (.r𝑈)
194adantr 472 . . . . . . . 8 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑅 ∈ Ring)
20 simprl 811 . . . . . . . . 9 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑢𝑉)
212adantr 472 . . . . . . . . 9 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑉 = (Base‘𝑅))
2220, 21eleqtrd 2839 . . . . . . . 8 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑢 ∈ (Base‘𝑅))
23 simprr 813 . . . . . . . . 9 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑣𝑉)
2423, 21eleqtrd 2839 . . . . . . . 8 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → 𝑣 ∈ (Base‘𝑅))
25 eqid 2758 . . . . . . . . 9 (Base‘𝑅) = (Base‘𝑅)
2625, 17ringcl 18759 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝑢 ∈ (Base‘𝑅) ∧ 𝑣 ∈ (Base‘𝑅)) → (𝑢 · 𝑣) ∈ (Base‘𝑅))
2719, 22, 24, 26syl3anc 1477 . . . . . . 7 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → (𝑢 · 𝑣) ∈ (Base‘𝑅))
2827, 21eleqtrrd 2840 . . . . . 6 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → (𝑢 · 𝑣) ∈ 𝑉)
2928caovclg 6989 . . . . 5 ((𝜑 ∧ (𝑝𝑉𝑞𝑉)) → (𝑝 · 𝑞) ∈ 𝑉)
303, 16, 1, 2, 4, 17, 18, 29imasmulf 16396 . . . 4 (𝜑 → (.r𝑈):(𝐵 × 𝐵)⟶𝐵)
31 fovrn 6967 . . . 4 (((.r𝑈):(𝐵 × 𝐵)⟶𝐵𝑢𝐵𝑣𝐵) → (𝑢(.r𝑈)𝑣) ∈ 𝐵)
3230, 31syl3an1 1167 . . 3 ((𝜑𝑢𝐵𝑣𝐵) → (𝑢(.r𝑈)𝑣) ∈ 𝐵)
33 forn 6277 . . . . . . . . . 10 (𝐹:𝑉onto𝐵 → ran 𝐹 = 𝐵)
343, 33syl 17 . . . . . . . . 9 (𝜑 → ran 𝐹 = 𝐵)
3534eleq2d 2823 . . . . . . . 8 (𝜑 → (𝑢 ∈ ran 𝐹𝑢𝐵))
3634eleq2d 2823 . . . . . . . 8 (𝜑 → (𝑣 ∈ ran 𝐹𝑣𝐵))
3734eleq2d 2823 . . . . . . . 8 (𝜑 → (𝑤 ∈ ran 𝐹𝑤𝐵))
3835, 36, 373anbi123d 1546 . . . . . . 7 (𝜑 → ((𝑢 ∈ ran 𝐹𝑣 ∈ ran 𝐹𝑤 ∈ ran 𝐹) ↔ (𝑢𝐵𝑣𝐵𝑤𝐵)))
39 fofn 6276 . . . . . . . . 9 (𝐹:𝑉onto𝐵𝐹 Fn 𝑉)
403, 39syl 17 . . . . . . . 8 (𝜑𝐹 Fn 𝑉)
41 fvelrnb 6403 . . . . . . . . 9 (𝐹 Fn 𝑉 → (𝑢 ∈ ran 𝐹 ↔ ∃𝑥𝑉 (𝐹𝑥) = 𝑢))
42 fvelrnb 6403 . . . . . . . . 9 (𝐹 Fn 𝑉 → (𝑣 ∈ ran 𝐹 ↔ ∃𝑦𝑉 (𝐹𝑦) = 𝑣))
43 fvelrnb 6403 . . . . . . . . 9 (𝐹 Fn 𝑉 → (𝑤 ∈ ran 𝐹 ↔ ∃𝑧𝑉 (𝐹𝑧) = 𝑤))
4441, 42, 433anbi123d 1546 . . . . . . . 8 (𝐹 Fn 𝑉 → ((𝑢 ∈ ran 𝐹𝑣 ∈ ran 𝐹𝑤 ∈ ran 𝐹) ↔ (∃𝑥𝑉 (𝐹𝑥) = 𝑢 ∧ ∃𝑦𝑉 (𝐹𝑦) = 𝑣 ∧ ∃𝑧𝑉 (𝐹𝑧) = 𝑤)))
4540, 44syl 17 . . . . . . 7 (𝜑 → ((𝑢 ∈ ran 𝐹𝑣 ∈ ran 𝐹𝑤 ∈ ran 𝐹) ↔ (∃𝑥𝑉 (𝐹𝑥) = 𝑢 ∧ ∃𝑦𝑉 (𝐹𝑦) = 𝑣 ∧ ∃𝑧𝑉 (𝐹𝑧) = 𝑤)))
4638, 45bitr3d 270 . . . . . 6 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) ↔ (∃𝑥𝑉 (𝐹𝑥) = 𝑢 ∧ ∃𝑦𝑉 (𝐹𝑦) = 𝑣 ∧ ∃𝑧𝑉 (𝐹𝑧) = 𝑤)))
47 3reeanv 3244 . . . . . 6 (∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) ↔ (∃𝑥𝑉 (𝐹𝑥) = 𝑢 ∧ ∃𝑦𝑉 (𝐹𝑦) = 𝑣 ∧ ∃𝑧𝑉 (𝐹𝑧) = 𝑤))
4846, 47syl6bbr 278 . . . . 5 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) ↔ ∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤)))
494adantr 472 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑅 ∈ Ring)
50 simp2 1132 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑉𝑦𝑉) → 𝑥𝑉)
5123ad2ant1 1128 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑉𝑦𝑉) → 𝑉 = (Base‘𝑅))
5250, 51eleqtrd 2839 . . . . . . . . . . . . . . 15 ((𝜑𝑥𝑉𝑦𝑉) → 𝑥 ∈ (Base‘𝑅))
53523adant3r3 1200 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑥 ∈ (Base‘𝑅))
54 simp3 1133 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑉𝑦𝑉) → 𝑦𝑉)
5554, 51eleqtrd 2839 . . . . . . . . . . . . . . 15 ((𝜑𝑥𝑉𝑦𝑉) → 𝑦 ∈ (Base‘𝑅))
56553adant3r3 1200 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑦 ∈ (Base‘𝑅))
57 simpr3 1238 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑧𝑉)
582adantr 472 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑉 = (Base‘𝑅))
5957, 58eleqtrd 2839 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑧 ∈ (Base‘𝑅))
6025, 17ringass 18762 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
6149, 53, 56, 59, 60syl13anc 1479 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
6261fveq2d 6354 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝐹‘((𝑥 · 𝑦) · 𝑧)) = (𝐹‘(𝑥 · (𝑦 · 𝑧))))
63 simpl 474 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝜑)
6428caovclg 6989 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑥 · 𝑦) ∈ 𝑉)
65643adantr3 1177 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑥 · 𝑦) ∈ 𝑉)
663, 16, 1, 2, 4, 17, 18imasmulval 16395 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 · 𝑦) ∈ 𝑉𝑧𝑉) → ((𝐹‘(𝑥 · 𝑦))(.r𝑈)(𝐹𝑧)) = (𝐹‘((𝑥 · 𝑦) · 𝑧)))
6763, 65, 57, 66syl3anc 1477 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 · 𝑦))(.r𝑈)(𝐹𝑧)) = (𝐹‘((𝑥 · 𝑦) · 𝑧)))
68 simpr1 1234 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → 𝑥𝑉)
6928caovclg 6989 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑦𝑉𝑧𝑉)) → (𝑦 · 𝑧) ∈ 𝑉)
70693adantr1 1175 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑦 · 𝑧) ∈ 𝑉)
713, 16, 1, 2, 4, 17, 18imasmulval 16395 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉 ∧ (𝑦 · 𝑧) ∈ 𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 · 𝑧))) = (𝐹‘(𝑥 · (𝑦 · 𝑧))))
7263, 68, 70, 71syl3anc 1477 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 · 𝑧))) = (𝐹‘(𝑥 · (𝑦 · 𝑧))))
7362, 67, 723eqtr4d 2802 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 · 𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 · 𝑧))))
743, 16, 1, 2, 4, 17, 18imasmulval 16395 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉𝑦𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹𝑦)) = (𝐹‘(𝑥 · 𝑦)))
75743adant3r3 1200 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹𝑦)) = (𝐹‘(𝑥 · 𝑦)))
7675oveq1d 6826 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹‘(𝑥 · 𝑦))(.r𝑈)(𝐹𝑧)))
773, 16, 1, 2, 4, 17, 18imasmulval 16395 . . . . . . . . . . . . 13 ((𝜑𝑦𝑉𝑧𝑉) → ((𝐹𝑦)(.r𝑈)(𝐹𝑧)) = (𝐹‘(𝑦 · 𝑧)))
78773adant3r1 1198 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑦)(.r𝑈)(𝐹𝑧)) = (𝐹‘(𝑦 · 𝑧)))
7978oveq2d 6827 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) = ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 · 𝑧))))
8073, 76, 793eqtr4d 2802 . . . . . . . . . 10 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))))
81 simp1 1131 . . . . . . . . . . . . 13 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝐹𝑥) = 𝑢)
82 simp2 1132 . . . . . . . . . . . . 13 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝐹𝑦) = 𝑣)
8381, 82oveq12d 6829 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(.r𝑈)(𝐹𝑦)) = (𝑢(.r𝑈)𝑣))
84 simp3 1133 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝐹𝑧) = 𝑤)
8583, 84oveq12d 6829 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤))
8682, 84oveq12d 6829 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑦)(.r𝑈)(𝐹𝑧)) = (𝑣(.r𝑈)𝑤))
8781, 86oveq12d 6829 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤)))
8885, 87eqeq12d 2773 . . . . . . . . . 10 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((((𝐹𝑥)(.r𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) ↔ ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
8980, 88syl5ibcom 235 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
90893exp2 1448 . . . . . . . 8 (𝜑 → (𝑥𝑉 → (𝑦𝑉 → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤)))))))
9190imp32 448 . . . . . . 7 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤)))))
9291rexlimdv 3166 . . . . . 6 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (∃𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
9392rexlimdvva 3174 . . . . 5 (𝜑 → (∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
9448, 93sylbid 230 . . . 4 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤))))
9594imp 444 . . 3 ((𝜑 ∧ (𝑢𝐵𝑣𝐵𝑤𝐵)) → ((𝑢(.r𝑈)𝑣)(.r𝑈)𝑤) = (𝑢(.r𝑈)(𝑣(.r𝑈)𝑤)))
9625, 8, 17ringdi 18764 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
9749, 53, 56, 59, 96syl13anc 1479 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
9897fveq2d 6354 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝐹‘(𝑥 · (𝑦 + 𝑧))) = (𝐹‘((𝑥 · 𝑦) + (𝑥 · 𝑧))))
9925, 8ringacl 18776 . . . . . . . . . . . . . . . . 17 ((𝑅 ∈ Ring ∧ 𝑢 ∈ (Base‘𝑅) ∧ 𝑣 ∈ (Base‘𝑅)) → (𝑢 + 𝑣) ∈ (Base‘𝑅))
10019, 22, 24, 99syl3anc 1477 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → (𝑢 + 𝑣) ∈ (Base‘𝑅))
101100, 21eleqtrrd 2840 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑢𝑉𝑣𝑉)) → (𝑢 + 𝑣) ∈ 𝑉)
102101caovclg 6989 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑦𝑉𝑧𝑉)) → (𝑦 + 𝑧) ∈ 𝑉)
1031023adantr1 1175 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑦 + 𝑧) ∈ 𝑉)
1043, 16, 1, 2, 4, 17, 18imasmulval 16395 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉 ∧ (𝑦 + 𝑧) ∈ 𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑥 · (𝑦 + 𝑧))))
10563, 68, 103, 104syl3anc 1477 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 + 𝑧))) = (𝐹‘(𝑥 · (𝑦 + 𝑧))))
10628caovclg 6989 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑧𝑉)) → (𝑥 · 𝑧) ∈ 𝑉)
1071063adantr2 1176 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑥 · 𝑧) ∈ 𝑉)
108 eqid 2758 . . . . . . . . . . . . . 14 (+g𝑈) = (+g𝑈)
1093, 10, 1, 2, 4, 8, 108imasaddval 16392 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 · 𝑦) ∈ 𝑉 ∧ (𝑥 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑥 · 𝑦))(+g𝑈)(𝐹‘(𝑥 · 𝑧))) = (𝐹‘((𝑥 · 𝑦) + (𝑥 · 𝑧))))
11063, 65, 107, 109syl3anc 1477 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 · 𝑦))(+g𝑈)(𝐹‘(𝑥 · 𝑧))) = (𝐹‘((𝑥 · 𝑦) + (𝑥 · 𝑧))))
11198, 105, 1103eqtr4d 2802 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 + 𝑧))) = ((𝐹‘(𝑥 · 𝑦))(+g𝑈)(𝐹‘(𝑥 · 𝑧))))
1123, 10, 1, 2, 4, 8, 108imasaddval 16392 . . . . . . . . . . . . 13 ((𝜑𝑦𝑉𝑧𝑉) → ((𝐹𝑦)(+g𝑈)(𝐹𝑧)) = (𝐹‘(𝑦 + 𝑧)))
1131123adant3r1 1198 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑦)(+g𝑈)(𝐹𝑧)) = (𝐹‘(𝑦 + 𝑧)))
114113oveq2d 6827 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(+g𝑈)(𝐹𝑧))) = ((𝐹𝑥)(.r𝑈)(𝐹‘(𝑦 + 𝑧))))
1153, 16, 1, 2, 4, 17, 18imasmulval 16395 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉𝑧𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹𝑧)) = (𝐹‘(𝑥 · 𝑧)))
1161153adant3r2 1199 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)(𝐹𝑧)) = (𝐹‘(𝑥 · 𝑧)))
11775, 116oveq12d 6829 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(+g𝑈)((𝐹𝑥)(.r𝑈)(𝐹𝑧))) = ((𝐹‘(𝑥 · 𝑦))(+g𝑈)(𝐹‘(𝑥 · 𝑧))))
118111, 114, 1173eqtr4d 2802 . . . . . . . . . 10 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(+g𝑈)(𝐹𝑧))) = (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(+g𝑈)((𝐹𝑥)(.r𝑈)(𝐹𝑧))))
11982, 84oveq12d 6829 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑦)(+g𝑈)(𝐹𝑧)) = (𝑣(+g𝑈)𝑤))
12081, 119oveq12d 6829 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(.r𝑈)((𝐹𝑦)(+g𝑈)(𝐹𝑧))) = (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)))
12181, 84oveq12d 6829 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(.r𝑈)(𝐹𝑧)) = (𝑢(.r𝑈)𝑤))
12283, 121oveq12d 6829 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(+g𝑈)((𝐹𝑥)(.r𝑈)(𝐹𝑧))) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤)))
123120, 122eqeq12d 2773 . . . . . . . . . 10 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(.r𝑈)((𝐹𝑦)(+g𝑈)(𝐹𝑧))) = (((𝐹𝑥)(.r𝑈)(𝐹𝑦))(+g𝑈)((𝐹𝑥)(.r𝑈)(𝐹𝑧))) ↔ (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
124118, 123syl5ibcom 235 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
1251243exp2 1448 . . . . . . . 8 (𝜑 → (𝑥𝑉 → (𝑦𝑉 → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤)))))))
126125imp32 448 . . . . . . 7 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤)))))
127126rexlimdv 3166 . . . . . 6 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (∃𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
128127rexlimdvva 3174 . . . . 5 (𝜑 → (∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
12948, 128sylbid 230 . . . 4 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤))))
130129imp 444 . . 3 ((𝜑 ∧ (𝑢𝐵𝑣𝐵𝑤𝐵)) → (𝑢(.r𝑈)(𝑣(+g𝑈)𝑤)) = ((𝑢(.r𝑈)𝑣)(+g𝑈)(𝑢(.r𝑈)𝑤)))
13125, 8, 17ringdir 18765 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
13249, 53, 56, 59, 131syl13anc 1479 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
133132fveq2d 6354 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝐹‘((𝑥 + 𝑦) · 𝑧)) = (𝐹‘((𝑥 · 𝑧) + (𝑦 · 𝑧))))
134101caovclg 6989 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑥 + 𝑦) ∈ 𝑉)
1351343adantr3 1177 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (𝑥 + 𝑦) ∈ 𝑉)
1363, 16, 1, 2, 4, 17, 18imasmulval 16395 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 + 𝑦) ∈ 𝑉𝑧𝑉) → ((𝐹‘(𝑥 + 𝑦))(.r𝑈)(𝐹𝑧)) = (𝐹‘((𝑥 + 𝑦) · 𝑧)))
13763, 135, 57, 136syl3anc 1477 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 + 𝑦))(.r𝑈)(𝐹𝑧)) = (𝐹‘((𝑥 + 𝑦) · 𝑧)))
1383, 10, 1, 2, 4, 8, 108imasaddval 16392 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 · 𝑧) ∈ 𝑉 ∧ (𝑦 · 𝑧) ∈ 𝑉) → ((𝐹‘(𝑥 · 𝑧))(+g𝑈)(𝐹‘(𝑦 · 𝑧))) = (𝐹‘((𝑥 · 𝑧) + (𝑦 · 𝑧))))
13963, 107, 70, 138syl3anc 1477 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 · 𝑧))(+g𝑈)(𝐹‘(𝑦 · 𝑧))) = (𝐹‘((𝑥 · 𝑧) + (𝑦 · 𝑧))))
140133, 137, 1393eqtr4d 2802 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹‘(𝑥 + 𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹‘(𝑥 · 𝑧))(+g𝑈)(𝐹‘(𝑦 · 𝑧))))
1413, 10, 1, 2, 4, 8, 108imasaddval 16392 . . . . . . . . . . . . 13 ((𝜑𝑥𝑉𝑦𝑉) → ((𝐹𝑥)(+g𝑈)(𝐹𝑦)) = (𝐹‘(𝑥 + 𝑦)))
1421413adant3r3 1200 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → ((𝐹𝑥)(+g𝑈)(𝐹𝑦)) = (𝐹‘(𝑥 + 𝑦)))
143142oveq1d 6826 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(+g𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝐹‘(𝑥 + 𝑦))(.r𝑈)(𝐹𝑧)))
144116, 78oveq12d 6829 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(.r𝑈)(𝐹𝑧))(+g𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) = ((𝐹‘(𝑥 · 𝑧))(+g𝑈)(𝐹‘(𝑦 · 𝑧))))
145140, 143, 1443eqtr4d 2802 . . . . . . . . . 10 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥)(+g𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = (((𝐹𝑥)(.r𝑈)(𝐹𝑧))(+g𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))))
14681, 82oveq12d 6829 . . . . . . . . . . . 12 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝐹𝑥)(+g𝑈)(𝐹𝑦)) = (𝑢(+g𝑈)𝑣))
147146, 84oveq12d 6829 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(+g𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤))
148121, 86oveq12d 6829 . . . . . . . . . . 11 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → (((𝐹𝑥)(.r𝑈)(𝐹𝑧))(+g𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤)))
149147, 148eqeq12d 2773 . . . . . . . . . 10 (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((((𝐹𝑥)(+g𝑈)(𝐹𝑦))(.r𝑈)(𝐹𝑧)) = (((𝐹𝑥)(.r𝑈)(𝐹𝑧))(+g𝑈)((𝐹𝑦)(.r𝑈)(𝐹𝑧))) ↔ ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
150145, 149syl5ibcom 235 . . . . . . . . 9 ((𝜑 ∧ (𝑥𝑉𝑦𝑉𝑧𝑉)) → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
1511503exp2 1448 . . . . . . . 8 (𝜑 → (𝑥𝑉 → (𝑦𝑉 → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤)))))))
152151imp32 448 . . . . . . 7 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (𝑧𝑉 → (((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤)))))
153152rexlimdv 3166 . . . . . 6 ((𝜑 ∧ (𝑥𝑉𝑦𝑉)) → (∃𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
154153rexlimdvva 3174 . . . . 5 (𝜑 → (∃𝑥𝑉𝑦𝑉𝑧𝑉 ((𝐹𝑥) = 𝑢 ∧ (𝐹𝑦) = 𝑣 ∧ (𝐹𝑧) = 𝑤) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
15548, 154sylbid 230 . . . 4 (𝜑 → ((𝑢𝐵𝑣𝐵𝑤𝐵) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤))))
156155imp 444 . . 3 ((𝜑 ∧ (𝑢𝐵𝑣𝐵𝑤𝐵)) → ((𝑢(+g𝑈)𝑣)(.r𝑈)𝑤) = ((𝑢(.r𝑈)𝑤)(+g𝑈)(𝑣(.r𝑈)𝑤)))
157 fof 6274 . . . . 5 (𝐹:𝑉onto𝐵𝐹:𝑉𝐵)
1583, 157syl 17 . . . 4 (𝜑𝐹:𝑉𝐵)
159 imasring.o . . . . . . 7 1 = (1r𝑅)
16025, 159ringidcl 18766 . . . . . 6 (𝑅 ∈ Ring → 1 ∈ (Base‘𝑅))
1614, 160syl 17 . . . . 5 (𝜑1 ∈ (Base‘𝑅))
162161, 2eleqtrrd 2840 . . . 4 (𝜑1𝑉)
163158, 162ffvelrnd 6521 . . 3 (𝜑 → (𝐹1 ) ∈ 𝐵)
16440, 41syl 17 . . . . . 6 (𝜑 → (𝑢 ∈ ran 𝐹 ↔ ∃𝑥𝑉 (𝐹𝑥) = 𝑢))
16535, 164bitr3d 270 . . . . 5 (𝜑 → (𝑢𝐵 ↔ ∃𝑥𝑉 (𝐹𝑥) = 𝑢))
166 simpl 474 . . . . . . . . 9 ((𝜑𝑥𝑉) → 𝜑)
167162adantr 472 . . . . . . . . 9 ((𝜑𝑥𝑉) → 1𝑉)
168 simpr 479 . . . . . . . . 9 ((𝜑𝑥𝑉) → 𝑥𝑉)
1693, 16, 1, 2, 4, 17, 18imasmulval 16395 . . . . . . . . 9 ((𝜑1𝑉𝑥𝑉) → ((𝐹1 )(.r𝑈)(𝐹𝑥)) = (𝐹‘( 1 · 𝑥)))
170166, 167, 168, 169syl3anc 1477 . . . . . . . 8 ((𝜑𝑥𝑉) → ((𝐹1 )(.r𝑈)(𝐹𝑥)) = (𝐹‘( 1 · 𝑥)))
1714adantr 472 . . . . . . . . . 10 ((𝜑𝑥𝑉) → 𝑅 ∈ Ring)
1722eleq2d 2823 . . . . . . . . . . 11 (𝜑 → (𝑥𝑉𝑥 ∈ (Base‘𝑅)))
173172biimpa 502 . . . . . . . . . 10 ((𝜑𝑥𝑉) → 𝑥 ∈ (Base‘𝑅))
17425, 17, 159ringlidm 18769 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅)) → ( 1 · 𝑥) = 𝑥)
175171, 173, 174syl2anc 696 . . . . . . . . 9 ((𝜑𝑥𝑉) → ( 1 · 𝑥) = 𝑥)
176175fveq2d 6354 . . . . . . . 8 ((𝜑𝑥𝑉) → (𝐹‘( 1 · 𝑥)) = (𝐹𝑥))
177170, 176eqtrd 2792 . . . . . . 7 ((𝜑𝑥𝑉) → ((𝐹1 )(.r𝑈)(𝐹𝑥)) = (𝐹𝑥))
178 oveq2 6819 . . . . . . . 8 ((𝐹𝑥) = 𝑢 → ((𝐹1 )(.r𝑈)(𝐹𝑥)) = ((𝐹1 )(.r𝑈)𝑢))
179 id 22 . . . . . . . 8 ((𝐹𝑥) = 𝑢 → (𝐹𝑥) = 𝑢)
180178, 179eqeq12d 2773 . . . . . . 7 ((𝐹𝑥) = 𝑢 → (((𝐹1 )(.r𝑈)(𝐹𝑥)) = (𝐹𝑥) ↔ ((𝐹1 )(.r𝑈)𝑢) = 𝑢))
181177, 180syl5ibcom 235 . . . . . 6 ((𝜑𝑥𝑉) → ((𝐹𝑥) = 𝑢 → ((𝐹1 )(.r𝑈)𝑢) = 𝑢))
182181rexlimdva 3167 . . . . 5 (𝜑 → (∃𝑥𝑉 (𝐹𝑥) = 𝑢 → ((𝐹1 )(.r𝑈)𝑢) = 𝑢))
183165, 182sylbid 230 . . . 4 (𝜑 → (𝑢𝐵 → ((𝐹1 )(.r𝑈)𝑢) = 𝑢))
184183imp 444 . . 3 ((𝜑𝑢𝐵) → ((𝐹1 )(.r𝑈)𝑢) = 𝑢)
1853, 16, 1, 2, 4, 17, 18imasmulval 16395 . . . . . . . . 9 ((𝜑𝑥𝑉1𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝐹‘(𝑥 · 1 )))
186167, 185mpd3an3 1572 . . . . . . . 8 ((𝜑𝑥𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝐹‘(𝑥 · 1 )))
18725, 17, 159ringridm 18770 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅)) → (𝑥 · 1 ) = 𝑥)
188171, 173, 187syl2anc 696 . . . . . . . . 9 ((𝜑𝑥𝑉) → (𝑥 · 1 ) = 𝑥)
189188fveq2d 6354 . . . . . . . 8 ((𝜑𝑥𝑉) → (𝐹‘(𝑥 · 1 )) = (𝐹𝑥))
190186, 189eqtrd 2792 . . . . . . 7 ((𝜑𝑥𝑉) → ((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝐹𝑥))
191 oveq1 6818 . . . . . . . 8 ((𝐹𝑥) = 𝑢 → ((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝑢(.r𝑈)(𝐹1 )))
192191, 179eqeq12d 2773 . . . . . . 7 ((𝐹𝑥) = 𝑢 → (((𝐹𝑥)(.r𝑈)(𝐹1 )) = (𝐹𝑥) ↔ (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
193190, 192syl5ibcom 235 . . . . . 6 ((𝜑𝑥𝑉) → ((𝐹𝑥) = 𝑢 → (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
194193rexlimdva 3167 . . . . 5 (𝜑 → (∃𝑥𝑉 (𝐹𝑥) = 𝑢 → (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
195165, 194sylbid 230 . . . 4 (𝜑 → (𝑢𝐵 → (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
196195imp 444 . . 3 ((𝜑𝑢𝐵) → (𝑢(.r𝑈)(𝐹1 )) = 𝑢)
1975, 6, 7, 15, 32, 95, 130, 156, 163, 184, 196isringd 18783 . 2 (𝜑𝑈 ∈ Ring)
198163, 5eleqtrd 2839 . . . 4 (𝜑 → (𝐹1 ) ∈ (Base‘𝑈))
1995eleq2d 2823 . . . . . 6 (𝜑 → (𝑢𝐵𝑢 ∈ (Base‘𝑈)))
200183, 195jcad 556 . . . . . 6 (𝜑 → (𝑢𝐵 → (((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢)))
201199, 200sylbird 250 . . . . 5 (𝜑 → (𝑢 ∈ (Base‘𝑈) → (((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢)))
202201ralrimiv 3101 . . . 4 (𝜑 → ∀𝑢 ∈ (Base‘𝑈)(((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢))
203 eqid 2758 . . . . . 6 (Base‘𝑈) = (Base‘𝑈)
204 eqid 2758 . . . . . 6 (1r𝑈) = (1r𝑈)
205203, 18, 204isringid 18771 . . . . 5 (𝑈 ∈ Ring → (((𝐹1 ) ∈ (Base‘𝑈) ∧ ∀𝑢 ∈ (Base‘𝑈)(((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢)) ↔ (1r𝑈) = (𝐹1 )))
206197, 205syl 17 . . . 4 (𝜑 → (((𝐹1 ) ∈ (Base‘𝑈) ∧ ∀𝑢 ∈ (Base‘𝑈)(((𝐹1 )(.r𝑈)𝑢) = 𝑢 ∧ (𝑢(.r𝑈)(𝐹1 )) = 𝑢)) ↔ (1r𝑈) = (𝐹1 )))
207198, 202, 206mpbi2and 994 . . 3 (𝜑 → (1r𝑈) = (𝐹1 ))
208207eqcomd 2764 . 2 (𝜑 → (𝐹1 ) = (1r𝑈))
209197, 208jca 555 1 (𝜑 → (𝑈 ∈ Ring ∧ (𝐹1 ) = (1r𝑈)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383  w3a 1072   = wceq 1630  wcel 2137  wral 3048  wrex 3049   × cxp 5262  ran crn 5265   Fn wfn 6042  wf 6043  ontowfo 6045  cfv 6047  (class class class)co 6811  Basecbs 16057  +gcplusg 16141  .rcmulr 16142  0gc0g 16300  s cimas 16364  Grpcgrp 17621  1rcur 18699  Ringcrg 18745
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1869  ax-4 1884  ax-5 1986  ax-6 2052  ax-7 2088  ax-8 2139  ax-9 2146  ax-10 2166  ax-11 2181  ax-12 2194  ax-13 2389  ax-ext 2738  ax-rep 4921  ax-sep 4931  ax-nul 4939  ax-pow 4990  ax-pr 5053  ax-un 7112  ax-cnex 10182  ax-resscn 10183  ax-1cn 10184  ax-icn 10185  ax-addcl 10186  ax-addrcl 10187  ax-mulcl 10188  ax-mulrcl 10189  ax-mulcom 10190  ax-addass 10191  ax-mulass 10192  ax-distr 10193  ax-i2m1 10194  ax-1ne0 10195  ax-1rid 10196  ax-rnegex 10197  ax-rrecex 10198  ax-cnre 10199  ax-pre-lttri 10200  ax-pre-lttrn 10201  ax-pre-ltadd 10202  ax-pre-mulgt0 10203
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1633  df-ex 1852  df-nf 1857  df-sb 2045  df-eu 2609  df-mo 2610  df-clab 2745  df-cleq 2751  df-clel 2754  df-nfc 2889  df-ne 2931  df-nel 3034  df-ral 3053  df-rex 3054  df-reu 3055  df-rmo 3056  df-rab 3057  df-v 3340  df-sbc 3575  df-csb 3673  df-dif 3716  df-un 3718  df-in 3720  df-ss 3727  df-pss 3729  df-nul 4057  df-if 4229  df-pw 4302  df-sn 4320  df-pr 4322  df-tp 4324  df-op 4326  df-uni 4587  df-int 4626  df-iun 4672  df-br 4803  df-opab 4863  df-mpt 4880  df-tr 4903  df-id 5172  df-eprel 5177  df-po 5185  df-so 5186  df-fr 5223  df-we 5225  df-xp 5270  df-rel 5271  df-cnv 5272  df-co 5273  df-dm 5274  df-rn 5275  df-res 5276  df-ima 5277  df-pred 5839  df-ord 5885  df-on 5886  df-lim 5887  df-suc 5888  df-iota 6010  df-fun 6049  df-fn 6050  df-f 6051  df-f1 6052  df-fo 6053  df-f1o 6054  df-fv 6055  df-riota 6772  df-ov 6814  df-oprab 6815  df-mpt2 6816  df-om 7229  df-1st 7331  df-2nd 7332  df-wrecs 7574  df-recs 7635  df-rdg 7673  df-1o 7727  df-oadd 7731  df-er 7909  df-en 8120  df-dom 8121  df-sdom 8122  df-fin 8123  df-sup 8511  df-inf 8512  df-pnf 10266  df-mnf 10267  df-xr 10268  df-ltxr 10269  df-le 10270  df-sub 10458  df-neg 10459  df-nn 11211  df-2 11269  df-3 11270  df-4 11271  df-5 11272  df-6 11273  df-7 11274  df-8 11275  df-9 11276  df-n0 11483  df-z 11568  df-dec 11684  df-uz 11878  df-fz 12518  df-struct 16059  df-ndx 16060  df-slot 16061  df-base 16063  df-sets 16064  df-plusg 16154  df-mulr 16155  df-sca 16157  df-vsca 16158  df-ip 16159  df-tset 16160  df-ple 16161  df-ds 16164  df-0g 16302  df-imas 16368  df-mgm 17441  df-sgrp 17483  df-mnd 17494  df-grp 17624  df-minusg 17625  df-mgp 18688  df-ur 18700  df-ring 18747
This theorem is referenced by:  qusring2  18818
  Copyright terms: Public domain W3C validator