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

Theorem islmod 18783
Description: The predicate "is a left module". (Contributed by NM, 4-Nov-2013.) (Revised by Mario Carneiro, 19-Jun-2014.)
Hypotheses
Ref Expression
islmod.v 𝑉 = (Base‘𝑊)
islmod.a + = (+g𝑊)
islmod.s · = ( ·𝑠𝑊)
islmod.f 𝐹 = (Scalar‘𝑊)
islmod.k 𝐾 = (Base‘𝐹)
islmod.p = (+g𝐹)
islmod.t × = (.r𝐹)
islmod.u 1 = (1r𝐹)
Assertion
Ref Expression
islmod (𝑊 ∈ LMod ↔ (𝑊 ∈ Grp ∧ 𝐹 ∈ Ring ∧ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤))))
Distinct variable groups:   𝑟,𝑞,𝑤,𝑥,𝐹   𝐾,𝑞,𝑟,𝑤,𝑥   ,𝑞,𝑟,𝑤,𝑥   𝑉,𝑞,𝑟,𝑤,𝑥   + ,𝑞,𝑟,𝑤,𝑥   1 ,𝑞,𝑟,𝑤,𝑥   × ,𝑞,𝑟,𝑤,𝑥   · ,𝑞,𝑟,𝑤,𝑥
Allowed substitution hints:   𝑊(𝑥,𝑤,𝑟,𝑞)

Proof of Theorem islmod
Dummy variables 𝑓 𝑎 𝑔 𝑘 𝑝 𝑠 𝑣 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fveq2 6150 . . . . . 6 (𝑔 = 𝑊 → (Base‘𝑔) = (Base‘𝑊))
2 islmod.v . . . . . 6 𝑉 = (Base‘𝑊)
31, 2syl6eqr 2678 . . . . 5 (𝑔 = 𝑊 → (Base‘𝑔) = 𝑉)
4 fveq2 6150 . . . . . . 7 (𝑔 = 𝑊 → (+g𝑔) = (+g𝑊))
5 islmod.a . . . . . . 7 + = (+g𝑊)
64, 5syl6eqr 2678 . . . . . 6 (𝑔 = 𝑊 → (+g𝑔) = + )
7 fveq2 6150 . . . . . . . 8 (𝑔 = 𝑊 → (Scalar‘𝑔) = (Scalar‘𝑊))
8 islmod.f . . . . . . . 8 𝐹 = (Scalar‘𝑊)
97, 8syl6eqr 2678 . . . . . . 7 (𝑔 = 𝑊 → (Scalar‘𝑔) = 𝐹)
10 fveq2 6150 . . . . . . . . 9 (𝑔 = 𝑊 → ( ·𝑠𝑔) = ( ·𝑠𝑊))
11 islmod.s . . . . . . . . 9 · = ( ·𝑠𝑊)
1210, 11syl6eqr 2678 . . . . . . . 8 (𝑔 = 𝑊 → ( ·𝑠𝑔) = · )
1312sbceq1d 3427 . . . . . . 7 (𝑔 = 𝑊 → ([( ·𝑠𝑔) / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ [ · / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)))))
149, 13sbceqbid 3429 . . . . . 6 (𝑔 = 𝑊 → ([(Scalar‘𝑔) / 𝑓][( ·𝑠𝑔) / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ [𝐹 / 𝑓][ · / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)))))
156, 14sbceqbid 3429 . . . . 5 (𝑔 = 𝑊 → ([(+g𝑔) / 𝑎][(Scalar‘𝑔) / 𝑓][( ·𝑠𝑔) / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ [ + / 𝑎][𝐹 / 𝑓][ · / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)))))
163, 15sbceqbid 3429 . . . 4 (𝑔 = 𝑊 → ([(Base‘𝑔) / 𝑣][(+g𝑔) / 𝑎][(Scalar‘𝑔) / 𝑓][( ·𝑠𝑔) / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ [𝑉 / 𝑣][ + / 𝑎][𝐹 / 𝑓][ · / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)))))
17 fvex 6160 . . . . . . 7 (Base‘𝑊) ∈ V
182, 17eqeltri 2700 . . . . . 6 𝑉 ∈ V
19 fvex 6160 . . . . . . 7 (+g𝑊) ∈ V
205, 19eqeltri 2700 . . . . . 6 + ∈ V
21 fvex 6160 . . . . . . 7 (Scalar‘𝑊) ∈ V
228, 21eqeltri 2700 . . . . . 6 𝐹 ∈ V
23 simp3 1061 . . . . . . . . . 10 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → 𝑓 = 𝐹)
2423fveq2d 6154 . . . . . . . . 9 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (Base‘𝑓) = (Base‘𝐹))
25 islmod.k . . . . . . . . 9 𝐾 = (Base‘𝐹)
2624, 25syl6eqr 2678 . . . . . . . 8 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (Base‘𝑓) = 𝐾)
2723fveq2d 6154 . . . . . . . . . 10 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (+g𝑓) = (+g𝐹))
28 islmod.p . . . . . . . . . 10 = (+g𝐹)
2927, 28syl6eqr 2678 . . . . . . . . 9 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (+g𝑓) = )
3023fveq2d 6154 . . . . . . . . . . . 12 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (.r𝑓) = (.r𝐹))
31 islmod.t . . . . . . . . . . . 12 × = (.r𝐹)
3230, 31syl6eqr 2678 . . . . . . . . . . 11 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (.r𝑓) = × )
3332sbceq1d 3427 . . . . . . . . . 10 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ([(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ [ × / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)))))
34 fvex 6160 . . . . . . . . . . . . 13 (.r𝐹) ∈ V
3531, 34eqeltri 2700 . . . . . . . . . . . 12 × ∈ V
36 oveq 6611 . . . . . . . . . . . . . . . . . . 19 (𝑡 = × → (𝑞𝑡𝑟) = (𝑞 × 𝑟))
3736oveq1d 6620 . . . . . . . . . . . . . . . . . 18 (𝑡 = × → ((𝑞𝑡𝑟)𝑠𝑤) = ((𝑞 × 𝑟)𝑠𝑤))
3837eqeq1d 2628 . . . . . . . . . . . . . . . . 17 (𝑡 = × → (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ↔ ((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤))))
3938anbi1d 740 . . . . . . . . . . . . . . . 16 (𝑡 = × → ((((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤) ↔ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)))
4039anbi2d 739 . . . . . . . . . . . . . . 15 (𝑡 = × → ((((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)) ↔ (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))))
41402ralbidv 2988 . . . . . . . . . . . . . 14 (𝑡 = × → (∀𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)) ↔ ∀𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))))
42412ralbidv 2988 . . . . . . . . . . . . 13 (𝑡 = × → (∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)) ↔ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))))
4342anbi2d 739 . . . . . . . . . . . 12 (𝑡 = × → ((𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ (𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)))))
4435, 43sbcie 3457 . . . . . . . . . . 11 ([ × / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ (𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))))
4523eleq1d 2688 . . . . . . . . . . . 12 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (𝑓 ∈ Ring ↔ 𝐹 ∈ Ring))
46 simp1 1059 . . . . . . . . . . . . . 14 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → 𝑣 = 𝑉)
4746eleq2d 2689 . . . . . . . . . . . . . . . . 17 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ((𝑟𝑠𝑤) ∈ 𝑣 ↔ (𝑟𝑠𝑤) ∈ 𝑉))
48 simp2 1060 . . . . . . . . . . . . . . . . . . . 20 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → 𝑎 = + )
4948oveqd 6622 . . . . . . . . . . . . . . . . . . 19 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (𝑤𝑎𝑥) = (𝑤 + 𝑥))
5049oveq2d 6621 . . . . . . . . . . . . . . . . . 18 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (𝑟𝑠(𝑤𝑎𝑥)) = (𝑟𝑠(𝑤 + 𝑥)))
5148oveqd 6622 . . . . . . . . . . . . . . . . . 18 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)))
5250, 51eqeq12d 2641 . . . . . . . . . . . . . . . . 17 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ((𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ↔ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥))))
5348oveqd 6622 . . . . . . . . . . . . . . . . . 18 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤)) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤)))
5453eqeq2d 2636 . . . . . . . . . . . . . . . . 17 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤)) ↔ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))))
5547, 52, 543anbi123d 1396 . . . . . . . . . . . . . . . 16 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ↔ ((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤)))))
5623fveq2d 6154 . . . . . . . . . . . . . . . . . . . 20 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (1r𝑓) = (1r𝐹))
57 islmod.u . . . . . . . . . . . . . . . . . . . 20 1 = (1r𝐹)
5856, 57syl6eqr 2678 . . . . . . . . . . . . . . . . . . 19 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (1r𝑓) = 1 )
5958oveq1d 6620 . . . . . . . . . . . . . . . . . 18 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ((1r𝑓)𝑠𝑤) = ( 1 𝑠𝑤))
6059eqeq1d 2628 . . . . . . . . . . . . . . . . 17 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (((1r𝑓)𝑠𝑤) = 𝑤 ↔ ( 1 𝑠𝑤) = 𝑤))
6160anbi2d 739 . . . . . . . . . . . . . . . 16 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ((((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤) ↔ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)))
6255, 61anbi12d 746 . . . . . . . . . . . . . . 15 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ((((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)) ↔ (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤))))
6346, 62raleqbidv 3146 . . . . . . . . . . . . . 14 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (∀𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)) ↔ ∀𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤))))
6446, 63raleqbidv 3146 . . . . . . . . . . . . 13 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (∀𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)) ↔ ∀𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤))))
65642ralbidv 2988 . . . . . . . . . . . 12 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → (∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)) ↔ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤))))
6645, 65anbi12d 746 . . . . . . . . . . 11 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ((𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ (𝐹 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)))))
6744, 66syl5bb 272 . . . . . . . . . 10 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ([ × / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ (𝐹 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)))))
6833, 67bitrd 268 . . . . . . . . 9 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ([(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ (𝐹 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)))))
6929, 68sbceqbid 3429 . . . . . . . 8 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ([(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ [ / 𝑝](𝐹 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)))))
7026, 69sbceqbid 3429 . . . . . . 7 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ([(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ [𝐾 / 𝑘][ / 𝑝](𝐹 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)))))
7170sbcbidv 3477 . . . . . 6 ((𝑣 = 𝑉𝑎 = +𝑓 = 𝐹) → ([ · / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ [ · / 𝑠][𝐾 / 𝑘][ / 𝑝](𝐹 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)))))
7218, 20, 22, 71sbc3ie 3494 . . . . 5 ([𝑉 / 𝑣][ + / 𝑎][𝐹 / 𝑓][ · / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ [ · / 𝑠][𝐾 / 𝑘][ / 𝑝](𝐹 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤))))
73 fvex 6160 . . . . . . 7 ( ·𝑠𝑊) ∈ V
7411, 73eqeltri 2700 . . . . . 6 · ∈ V
75 fvex 6160 . . . . . . 7 (Base‘𝐹) ∈ V
7625, 75eqeltri 2700 . . . . . 6 𝐾 ∈ V
77 fvex 6160 . . . . . . 7 (+g𝐹) ∈ V
7828, 77eqeltri 2700 . . . . . 6 ∈ V
79 simp2 1060 . . . . . . . 8 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → 𝑘 = 𝐾)
80 simp1 1059 . . . . . . . . . . . . . 14 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → 𝑠 = · )
8180oveqd 6622 . . . . . . . . . . . . 13 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (𝑟𝑠𝑤) = (𝑟 · 𝑤))
8281eleq1d 2688 . . . . . . . . . . . 12 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((𝑟𝑠𝑤) ∈ 𝑉 ↔ (𝑟 · 𝑤) ∈ 𝑉))
8380oveqd 6622 . . . . . . . . . . . . 13 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (𝑟𝑠(𝑤 + 𝑥)) = (𝑟 · (𝑤 + 𝑥)))
8480oveqd 6622 . . . . . . . . . . . . . 14 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (𝑟𝑠𝑥) = (𝑟 · 𝑥))
8581, 84oveq12d 6623 . . . . . . . . . . . . 13 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)))
8683, 85eqeq12d 2641 . . . . . . . . . . . 12 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ↔ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥))))
87 simp3 1061 . . . . . . . . . . . . . . . 16 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → 𝑝 = )
8887oveqd 6622 . . . . . . . . . . . . . . 15 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (𝑞𝑝𝑟) = (𝑞 𝑟))
8988oveq1d 6620 . . . . . . . . . . . . . 14 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞 𝑟)𝑠𝑤))
9080oveqd 6622 . . . . . . . . . . . . . 14 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((𝑞 𝑟)𝑠𝑤) = ((𝑞 𝑟) · 𝑤))
9189, 90eqtrd 2660 . . . . . . . . . . . . 13 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞 𝑟) · 𝑤))
9280oveqd 6622 . . . . . . . . . . . . . 14 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (𝑞𝑠𝑤) = (𝑞 · 𝑤))
9392, 81oveq12d 6623 . . . . . . . . . . . . 13 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((𝑞𝑠𝑤) + (𝑟𝑠𝑤)) = ((𝑞 · 𝑤) + (𝑟 · 𝑤)))
9491, 93eqeq12d 2641 . . . . . . . . . . . 12 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤)) ↔ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))))
9582, 86, 943anbi123d 1396 . . . . . . . . . . 11 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ↔ ((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤)))))
9680oveqd 6622 . . . . . . . . . . . . 13 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((𝑞 × 𝑟)𝑠𝑤) = ((𝑞 × 𝑟) · 𝑤))
9781oveq2d 6621 . . . . . . . . . . . . . 14 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (𝑞𝑠(𝑟𝑠𝑤)) = (𝑞𝑠(𝑟 · 𝑤)))
9880oveqd 6622 . . . . . . . . . . . . . 14 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (𝑞𝑠(𝑟 · 𝑤)) = (𝑞 · (𝑟 · 𝑤)))
9997, 98eqtrd 2660 . . . . . . . . . . . . 13 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (𝑞𝑠(𝑟𝑠𝑤)) = (𝑞 · (𝑟 · 𝑤)))
10096, 99eqeq12d 2641 . . . . . . . . . . . 12 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ↔ ((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤))))
10180oveqd 6622 . . . . . . . . . . . . 13 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ( 1 𝑠𝑤) = ( 1 · 𝑤))
102101eqeq1d 2628 . . . . . . . . . . . 12 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (( 1 𝑠𝑤) = 𝑤 ↔ ( 1 · 𝑤) = 𝑤))
103100, 102anbi12d 746 . . . . . . . . . . 11 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤) ↔ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤)))
10495, 103anbi12d 746 . . . . . . . . . 10 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)) ↔ (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤))))
1051042ralbidv 2988 . . . . . . . . 9 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (∀𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)) ↔ ∀𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤))))
10679, 105raleqbidv 3146 . . . . . . . 8 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (∀𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)) ↔ ∀𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤))))
10779, 106raleqbidv 3146 . . . . . . 7 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → (∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤)) ↔ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤))))
108107anbi2d 739 . . . . . 6 ((𝑠 = ·𝑘 = 𝐾𝑝 = ) → ((𝐹 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤))) ↔ (𝐹 ∈ Ring ∧ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤)))))
10974, 76, 78, 108sbc3ie 3494 . . . . 5 ([ · / 𝑠][𝐾 / 𝑘][ / 𝑝](𝐹 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑉𝑤𝑉 (((𝑟𝑠𝑤) ∈ 𝑉 ∧ (𝑟𝑠(𝑤 + 𝑥)) = ((𝑟𝑠𝑤) + (𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤) + (𝑟𝑠𝑤))) ∧ (((𝑞 × 𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ( 1 𝑠𝑤) = 𝑤))) ↔ (𝐹 ∈ Ring ∧ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤))))
11072, 109bitri 264 . . . 4 ([𝑉 / 𝑣][ + / 𝑎][𝐹 / 𝑓][ · / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ (𝐹 ∈ Ring ∧ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤))))
11116, 110syl6bb 276 . . 3 (𝑔 = 𝑊 → ([(Base‘𝑔) / 𝑣][(+g𝑔) / 𝑎][(Scalar‘𝑔) / 𝑓][( ·𝑠𝑔) / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤))) ↔ (𝐹 ∈ Ring ∧ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤)))))
112 df-lmod 18781 . . 3 LMod = {𝑔 ∈ Grp ∣ [(Base‘𝑔) / 𝑣][(+g𝑔) / 𝑎][(Scalar‘𝑔) / 𝑓][( ·𝑠𝑔) / 𝑠][(Base‘𝑓) / 𝑘][(+g𝑓) / 𝑝][(.r𝑓) / 𝑡](𝑓 ∈ Ring ∧ ∀𝑞𝑘𝑟𝑘𝑥𝑣𝑤𝑣 (((𝑟𝑠𝑤) ∈ 𝑣 ∧ (𝑟𝑠(𝑤𝑎𝑥)) = ((𝑟𝑠𝑤)𝑎(𝑟𝑠𝑥)) ∧ ((𝑞𝑝𝑟)𝑠𝑤) = ((𝑞𝑠𝑤)𝑎(𝑟𝑠𝑤))) ∧ (((𝑞𝑡𝑟)𝑠𝑤) = (𝑞𝑠(𝑟𝑠𝑤)) ∧ ((1r𝑓)𝑠𝑤) = 𝑤)))}
113111, 112elrab2 3353 . 2 (𝑊 ∈ LMod ↔ (𝑊 ∈ Grp ∧ (𝐹 ∈ Ring ∧ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤)))))
114 3anass 1040 . 2 ((𝑊 ∈ Grp ∧ 𝐹 ∈ Ring ∧ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤))) ↔ (𝑊 ∈ Grp ∧ (𝐹 ∈ Ring ∧ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤)))))
115113, 114bitr4i 267 1 (𝑊 ∈ LMod ↔ (𝑊 ∈ Grp ∧ 𝐹 ∈ Ring ∧ ∀𝑞𝐾𝑟𝐾𝑥𝑉𝑤𝑉 (((𝑟 · 𝑤) ∈ 𝑉 ∧ (𝑟 · (𝑤 + 𝑥)) = ((𝑟 · 𝑤) + (𝑟 · 𝑥)) ∧ ((𝑞 𝑟) · 𝑤) = ((𝑞 · 𝑤) + (𝑟 · 𝑤))) ∧ (((𝑞 × 𝑟) · 𝑤) = (𝑞 · (𝑟 · 𝑤)) ∧ ( 1 · 𝑤) = 𝑤))))
Colors of variables: wff setvar class
Syntax hints:  wb 196  wa 384  w3a 1036   = wceq 1480  wcel 1992  wral 2912  Vcvv 3191  [wsbc 3422  cfv 5850  (class class class)co 6605  Basecbs 15776  +gcplusg 15857  .rcmulr 15858  Scalarcsca 15860   ·𝑠 cvsca 15861  Grpcgrp 17338  1rcur 18417  Ringcrg 18463  LModclmod 18779
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1841  ax-6 1890  ax-7 1937  ax-9 2001  ax-10 2021  ax-11 2036  ax-12 2049  ax-13 2250  ax-ext 2606  ax-nul 4754
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1883  df-eu 2478  df-clab 2613  df-cleq 2619  df-clel 2622  df-nfc 2756  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3193  df-sbc 3423  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-nul 3897  df-if 4064  df-sn 4154  df-pr 4156  df-op 4160  df-uni 4408  df-br 4619  df-iota 5813  df-fv 5858  df-ov 6608  df-lmod 18781
This theorem is referenced by:  lmodlema  18784  islmodd  18785  lmodgrp  18786  lmodring  18787  lmodprop2d  18841  isclmp  22800  lmodslmd  29534  lmod1  41543
  Copyright terms: Public domain W3C validator