imasmulr - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > imasmulr		GIF version

Theorem imasmulr 12729

Description: The ring multiplication in an image structure. (Contributed by Mario Carneiro, 23-Feb-2015.) (Revised by Mario Carneiro, 11-Jul-2015.) (Revised by Thierry Arnoux, 16-Jun-2019.)

**Hypotheses**
Ref	Expression
imasbas.u	⊢ (𝜑 → 𝑈 = (𝐹 “_s 𝑅))
imasbas.v	⊢ (𝜑 → 𝑉 = (Base‘𝑅))
imasbas.f	⊢ (𝜑 → 𝐹:𝑉–onto→𝐵)
imasbas.r	⊢ (𝜑 → 𝑅 ∈ 𝑍)
imasmulr.p	⊢ · = (._r‘𝑅)
imasmulr.t	⊢ ∙ = (._r‘𝑈)

**Assertion**
Ref	Expression
imasmulr	⊢ (𝜑 → ∙ = ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩})

Distinct variable groups: 𝐹,𝑝,𝑞 𝑅,𝑝,𝑞 𝑉,𝑝,𝑞 𝜑,𝑝,𝑞 Allowed substitution hints: 𝐵(𝑞,𝑝) ∙ (𝑞,𝑝) · (𝑞,𝑝) 𝑈(𝑞,𝑝) 𝑍(𝑞,𝑝)

**Proof of Theorem imasmulr**
Step	Hyp	Ref	Expression
1		imasmulr.t	. 2 ⊢ ∙ = (._r‘𝑈)
2		imasbas.u	. . . . 5 ⊢ (𝜑 → 𝑈 = (𝐹 “_s 𝑅))
3		imasbas.v	. . . . 5 ⊢ (𝜑 → 𝑉 = (Base‘𝑅))
4		eqid 2177	. . . . 5 ⊢ (+_g‘𝑅) = (+_g‘𝑅)
5		imasmulr.p	. . . . 5 ⊢ · = (._r‘𝑅)
6		eqid 2177	. . . . 5 ⊢ ( ·_𝑠 ‘𝑅) = ( ·_𝑠 ‘𝑅)
7		eqidd 2178	. . . . 5 ⊢ (𝜑 → ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝(+_g‘𝑅)𝑞))⟩} = ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝(+_g‘𝑅)𝑞))⟩})
8		eqidd 2178	. . . . 5 ⊢ (𝜑 → ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} = ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩})
9		imasbas.f	. . . . 5 ⊢ (𝜑 → 𝐹:𝑉–onto→𝐵)
10		imasbas.r	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ 𝑍)
11	2, 3, 4, 5, 6, 7, 8, 9, 10	imasival 12726	. . . 4 ⊢ (𝜑 → 𝑈 = {⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝(+_g‘𝑅)𝑞))⟩}⟩, ⟨(._r‘ndx), ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩}⟩})
12	11	fveq1d 5517	. . 3 ⊢ (𝜑 → (𝑈‘(._r‘ndx)) = ({⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝(+_g‘𝑅)𝑞))⟩}⟩, ⟨(._r‘ndx), ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩}⟩}‘(._r‘ndx)))
13		fof 5438	. . . . . . . 8 ⊢ (𝐹:𝑉–onto→𝐵 → 𝐹:𝑉⟶𝐵)
14	9, 13	syl 14	. . . . . . 7 ⊢ (𝜑 → 𝐹:𝑉⟶𝐵)
15		basfn 12519	. . . . . . . . 9 ⊢ Base Fn V
16	10	elexd 2750	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ V)
17		funfvex 5532	. . . . . . . . . 10 ⊢ ((Fun Base ∧ 𝑅 ∈ dom Base) → (Base‘𝑅) ∈ V)
18	17	funfni 5316	. . . . . . . . 9 ⊢ ((Base Fn V ∧ 𝑅 ∈ V) → (Base‘𝑅) ∈ V)
19	15, 16, 18	sylancr 414	. . . . . . . 8 ⊢ (𝜑 → (Base‘𝑅) ∈ V)
20	3, 19	eqeltrd 2254	. . . . . . 7 ⊢ (𝜑 → 𝑉 ∈ V)
21	14, 20	fexd 5746	. . . . . 6 ⊢ (𝜑 → 𝐹 ∈ V)
22		imasex 12725	. . . . . 6 ⊢ ((𝐹 ∈ V ∧ 𝑅 ∈ 𝑍) → (𝐹 “_s 𝑅) ∈ V)
23	21, 10, 22	syl2anc 411	. . . . 5 ⊢ (𝜑 → (𝐹 “_s 𝑅) ∈ V)
24	2, 23	eqeltrd 2254	. . . 4 ⊢ (𝜑 → 𝑈 ∈ V)
25		mulridx 12588	. . . 4 ⊢ ._r = Slot (._r‘ndx)
26		mulrslid 12589	. . . . 5 ⊢ (._r = Slot (._r‘ndx) ∧ (._r‘ndx) ∈ ℕ)
27	26	simpri 113	. . . 4 ⊢ (._r‘ndx) ∈ ℕ
28	24, 25, 27	strndxid 12489	. . 3 ⊢ (𝜑 → (𝑈‘(._r‘ndx)) = (._r‘𝑈))
29	27	a1i 9	. . . 4 ⊢ (𝜑 → (._r‘ndx) ∈ ℕ)
30		vex 2740	. . . . . . . . . . . 12 ⊢ 𝑝 ∈ V
31		fvexg 5534	. . . . . . . . . . . 12 ⊢ ((𝐹 ∈ V ∧ 𝑝 ∈ V) → (𝐹‘𝑝) ∈ V)
32	21, 30, 31	sylancl 413	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑝) ∈ V)
33		vex 2740	. . . . . . . . . . . 12 ⊢ 𝑞 ∈ V
34		fvexg 5534	. . . . . . . . . . . 12 ⊢ ((𝐹 ∈ V ∧ 𝑞 ∈ V) → (𝐹‘𝑞) ∈ V)
35	21, 33, 34	sylancl 413	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑞) ∈ V)
36		opexg 4228	. . . . . . . . . . 11 ⊢ (((𝐹‘𝑝) ∈ V ∧ (𝐹‘𝑞) ∈ V) → ⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩ ∈ V)
37	32, 35, 36	syl2anc 411	. . . . . . . . . 10 ⊢ (𝜑 → ⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩ ∈ V)
38	26	slotex 12488	. . . . . . . . . . . . . 14 ⊢ (𝑅 ∈ 𝑍 → (._r‘𝑅) ∈ V)
39	10, 38	syl 14	. . . . . . . . . . . . 13 ⊢ (𝜑 → (._r‘𝑅) ∈ V)
40	5, 39	eqeltrid 2264	. . . . . . . . . . . 12 ⊢ (𝜑 → · ∈ V)
41	33	a1i 9	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑞 ∈ V)
42		ovexg 5908	. . . . . . . . . . . 12 ⊢ ((𝑝 ∈ V ∧ · ∈ V ∧ 𝑞 ∈ V) → (𝑝 · 𝑞) ∈ V)
43	30, 40, 41, 42	mp3an2i 1342	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑝 · 𝑞) ∈ V)
44		fvexg 5534	. . . . . . . . . . 11 ⊢ ((𝐹 ∈ V ∧ (𝑝 · 𝑞) ∈ V) → (𝐹‘(𝑝 · 𝑞)) ∈ V)
45	21, 43, 44	syl2anc 411	. . . . . . . . . 10 ⊢ (𝜑 → (𝐹‘(𝑝 · 𝑞)) ∈ V)
46		opexg 4228	. . . . . . . . . 10 ⊢ ((⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩ ∈ V ∧ (𝐹‘(𝑝 · 𝑞)) ∈ V) → ⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩ ∈ V)
47	37, 45, 46	syl2anc 411	. . . . . . . . 9 ⊢ (𝜑 → ⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩ ∈ V)
48		snexg 4184	. . . . . . . . 9 ⊢ (⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩ ∈ V → {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V)
49	47, 48	syl 14	. . . . . . . 8 ⊢ (𝜑 → {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V)
50	49	ralrimivw 2551	. . . . . . 7 ⊢ (𝜑 → ∀𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V)
51		iunexg 6119	. . . . . . 7 ⊢ ((𝑉 ∈ V ∧ ∀𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V) → ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V)
52	20, 50, 51	syl2anc 411	. . . . . 6 ⊢ (𝜑 → ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V)
53	52	ralrimivw 2551	. . . . 5 ⊢ (𝜑 → ∀𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V)
54		iunexg 6119	. . . . 5 ⊢ ((𝑉 ∈ V ∧ ∀𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V) → ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V)
55	20, 53, 54	syl2anc 411	. . . 4 ⊢ (𝜑 → ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V)
56		basendxnmulrndx 12591	. . . . 5 ⊢ (Base‘ndx) ≠ (._r‘ndx)
57	56	a1i 9	. . . 4 ⊢ (𝜑 → (Base‘ndx) ≠ (._r‘ndx))
58		plusgndxnmulrndx 12590	. . . . 5 ⊢ (+_g‘ndx) ≠ (._r‘ndx)
59	58	a1i 9	. . . 4 ⊢ (𝜑 → (+_g‘ndx) ≠ (._r‘ndx))
60		fvtp3g 5726	. . . 4 ⊢ ((((._r‘ndx) ∈ ℕ ∧ ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} ∈ V) ∧ ((Base‘ndx) ≠ (._r‘ndx) ∧ (+_g‘ndx) ≠ (._r‘ndx))) → ({⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝(+_g‘𝑅)𝑞))⟩}⟩, ⟨(._r‘ndx), ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩}⟩}‘(._r‘ndx)) = ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩})
61	29, 55, 57, 59, 60	syl22anc 1239	. . 3 ⊢ (𝜑 → ({⟨(Base‘ndx), 𝐵⟩, ⟨(+_g‘ndx), ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝(+_g‘𝑅)𝑞))⟩}⟩, ⟨(._r‘ndx), ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩}⟩}‘(._r‘ndx)) = ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩})
62	12, 28, 61	3eqtr3rd 2219	. 2 ⊢ (𝜑 → ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩} = (._r‘𝑈))
63	1, 62	eqtr4id 2229	1 ⊢ (𝜑 → ∙ = ∪ 𝑝 ∈ 𝑉 ∪ 𝑞 ∈ 𝑉 {⟨⟨(𝐹‘𝑝), (𝐹‘𝑞)⟩, (𝐹‘(𝑝 · 𝑞))⟩})

Colors of variables: wff set class

Syntax hints: → wi 4 = wceq 1353 ∈ wcel 2148 ≠ wne 2347 ∀wral 2455 Vcvv 2737 {csn 3592 {ctp 3594 ⟨cop 3595 ∪ ciun 3886 Fn wfn 5211 ⟶wf 5212 –onto→wfo 5214 ‘cfv 5216 (class class class)co 5874 ℕcn 8918 ndxcnx 12458 Slot cslot 12460 Basecbs 12461 +_gcplusg 12535 ._rcmulr 12536 ·_𝑠 cvsca 12539 “_s cimas 12719

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 614 ax-in2 615 ax-io 709 ax-5 1447 ax-7 1448 ax-gen 1449 ax-ie1 1493 ax-ie2 1494 ax-8 1504 ax-10 1505 ax-11 1506 ax-i12 1507 ax-bndl 1509 ax-4 1510 ax-17 1526 ax-i9 1530 ax-ial 1534 ax-i5r 1535 ax-13 2150 ax-14 2151 ax-ext 2159 ax-coll 4118 ax-sep 4121 ax-pow 4174 ax-pr 4209 ax-un 4433 ax-setind 4536 ax-cnex 7901 ax-resscn 7902 ax-1cn 7903 ax-1re 7904 ax-icn 7905 ax-addcl 7906 ax-addrcl 7907 ax-mulcl 7908 ax-addcom 7910 ax-addass 7912 ax-i2m1 7915 ax-0lt1 7916 ax-0id 7918 ax-rnegex 7919 ax-pre-ltirr 7922 ax-pre-lttrn 7924 ax-pre-ltadd 7926

This theorem depends on definitions: df-bi 117 df-3or 979 df-3an 980 df-tru 1356 df-fal 1359 df-nf 1461 df-sb 1763 df-eu 2029 df-mo 2030 df-clab 2164 df-cleq 2170 df-clel 2173 df-nfc 2308 df-ne 2348 df-nel 2443 df-ral 2460 df-rex 2461 df-reu 2462 df-rab 2464 df-v 2739 df-sbc 2963 df-csb 3058 df-dif 3131 df-un 3133 df-in 3135 df-ss 3142 df-nul 3423 df-pw 3577 df-sn 3598 df-pr 3599 df-tp 3600 df-op 3601 df-uni 3810 df-int 3845 df-iun 3888 df-br 4004 df-opab 4065 df-mpt 4066 df-id 4293 df-xp 4632 df-rel 4633 df-cnv 4634 df-co 4635 df-dm 4636 df-rn 4637 df-res 4638 df-ima 4639 df-iota 5178 df-fun 5218 df-fn 5219 df-f 5220 df-f1 5221 df-fo 5222 df-f1o 5223 df-fv 5224 df-ov 5877 df-oprab 5878 df-mpo 5879 df-pnf 7993 df-mnf 7994 df-ltxr 7996 df-inn 8919 df-2 8977 df-3 8978 df-ndx 12464 df-slot 12465 df-base 12467 df-plusg 12548 df-mulr 12549 df-iimas 12722

This theorem is referenced by: imasmulfn 12740 imasmulval 12741 imasmulf 12742 qusmulval 12755 qusmulf 12756

W3C validator