Theorem imasmulr

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)

	Ref	Expression
Hypotheses	imasbas.u	$$⊢\phi \to U=F{“}_{𝑠}R$$
	imasbas.v	$$⊢\phi \to V={\mathrm{Base}}_R$$
	imasbas.f	$$⊢\phi \to F:V\underset{onto}{⟶}B$$
	imasbas.r	$$⊢\phi \to R\in Z$$
	imasmulr.p	$$⊢\underset{\dot{}}{·}={\cdot }_R$$
	imasmulr.t	$$⊢\underset{\dot{}}{\bullet }={\cdot }_U$$
Assertion	imasmulr	$$⊢\phi \to \underset{\dot{}}{\bullet }=\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}$$

Proof

Step	Hyp	Ref	Expression
1		imasbas.u	$$⊢\phi \to U=F{“}_{𝑠}R$$
2		imasbas.v	$$⊢\phi \to V={\mathrm{Base}}_R$$
3		imasbas.f	$$⊢\phi \to F:V\underset{onto}{⟶}B$$
4		imasbas.r	$$⊢\phi \to R\in Z$$
5		imasmulr.p	$$⊢\underset{\dot{}}{·}={\cdot }_R$$
6		imasmulr.t	$$⊢\underset{\dot{}}{\bullet }={\cdot }_U$$
7		eqid	$$⊢{+}_R={+}_R$$
8		eqid	$$⊢\mathrm{Scalar}\left(R\right)=\mathrm{Scalar}\left(R\right)$$
9		eqid	$$⊢{\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)}={\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)}$$
10		eqid	$$⊢{\cdot }_R={\cdot }_R$$
11		eqid	$$⊢{\cdot }_{𝑖}\left(R\right)={\cdot }_{𝑖}\left(R\right)$$
12		eqid	$$⊢\mathrm{TopOpen}\left(R\right)=\mathrm{TopOpen}\left(R\right)$$
13		eqid	$$⊢\mathrm{dist}\left(R\right)=\mathrm{dist}\left(R\right)$$
14		eqid	$$⊢{\le }_R={\le }_R$$
15		eqid	$$⊢{+}_U={+}_U$$
16	1 2 3 4 7 15	imasplusg	$$⊢\phi \to {+}_U=\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p{+}_{R}q\right)⟩\right\}$$
17		eqidd	$$⊢\phi \to \bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}=\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}$$
18		eqidd	$$⊢\phi \to \bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)=\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)$$
19		eqidd	$$⊢\phi \to \bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}=\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}$$
20		eqidd	$$⊢\phi \to \mathrm{TopOpen}\left(R\right)\mathrm{qTop}F=\mathrm{TopOpen}\left(R\right)\mathrm{qTop}F$$
21		eqid	$$⊢\mathrm{dist}\left(U\right)=\mathrm{dist}\left(U\right)$$
22	1 2 3 4 13 21	imasds	$$⊢\phi \to \mathrm{dist}\left(U\right)=\left(x\in B,y\in B⟼sup\left(\bigcup _{n\in \mathbb{N}}\mathrm{ran}\left(g\in \left\{h\in \left({\left(V\times V\right)}^{\left(1\dots n\right)}\right)|\left(F\left(1^{st}\left(h\left(1\right)\right)\right)=x\wedge F\left(2^{nd}\left(h\left(n\right)\right)\right)=y\wedge \forall i\in \left(1\dots n-1\right)F\left(2^{nd}\left(h\left(i\right)\right)\right)=F\left(1^{st}\left(h\left(i+1\right)\right)\right)\right)\right\}⟼{\sum }_{{ℝ}_{𝑠}^{*}}\left(\mathrm{dist}\left(R\right)\circ g\right)\right),{ℝ}^{*},<\right)\right)$$
23		eqidd	$$⊢\phi \to \left(F\circ {\le }_R\right)\circ F^{-1}=\left(F\circ {\le }_R\right)\circ F^{-1}$$
24	1 2 7 5 8 9 10 11 12 13 14 16 17 18 19 20 22 23 3 4	imasval	$$⊢\phi \to U=\left(\left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\cup \left\{⟨\mathrm{Scalar}\left(\mathrm{ndx}\right),\mathrm{Scalar}\left(R\right)⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)⟩,⟨{\cdot }_{𝑖}\left(\mathrm{ndx}\right),\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}⟩\right\}\right)\cup \left\{⟨\mathrm{TopSet}\left(\mathrm{ndx}\right),\mathrm{TopOpen}\left(R\right)\mathrm{qTop}F⟩,⟨{\le }_{\mathrm{ndx}},\left(F\circ {\le }_R\right)\circ F^{-1}⟩,⟨\mathrm{dist}\left(\mathrm{ndx}\right),\mathrm{dist}\left(U\right)⟩\right\}$$
25		eqid	$$⊢\left(\left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\cup \left\{⟨\mathrm{Scalar}\left(\mathrm{ndx}\right),\mathrm{Scalar}\left(R\right)⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)⟩,⟨{\cdot }_{𝑖}\left(\mathrm{ndx}\right),\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}⟩\right\}\right)\cup \left\{⟨\mathrm{TopSet}\left(\mathrm{ndx}\right),\mathrm{TopOpen}\left(R\right)\mathrm{qTop}F⟩,⟨{\le }_{\mathrm{ndx}},\left(F\circ {\le }_R\right)\circ F^{-1}⟩,⟨\mathrm{dist}\left(\mathrm{ndx}\right),\mathrm{dist}\left(U\right)⟩\right\}=\left(\left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\cup \left\{⟨\mathrm{Scalar}\left(\mathrm{ndx}\right),\mathrm{Scalar}\left(R\right)⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)⟩,⟨{\cdot }_{𝑖}\left(\mathrm{ndx}\right),\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}⟩\right\}\right)\cup \left\{⟨\mathrm{TopSet}\left(\mathrm{ndx}\right),\mathrm{TopOpen}\left(R\right)\mathrm{qTop}F⟩,⟨{\le }_{\mathrm{ndx}},\left(F\circ {\le }_R\right)\circ F^{-1}⟩,⟨\mathrm{dist}\left(\mathrm{ndx}\right),\mathrm{dist}\left(U\right)⟩\right\}$$
26	25	imasvalstr	$$⊢\left(\left(\left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\cup \left\{⟨\mathrm{Scalar}\left(\mathrm{ndx}\right),\mathrm{Scalar}\left(R\right)⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)⟩,⟨{\cdot }_{𝑖}\left(\mathrm{ndx}\right),\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}⟩\right\}\right)\cup \left\{⟨\mathrm{TopSet}\left(\mathrm{ndx}\right),\mathrm{TopOpen}\left(R\right)\mathrm{qTop}F⟩,⟨{\le }_{\mathrm{ndx}},\left(F\circ {\le }_R\right)\circ F^{-1}⟩,⟨\mathrm{dist}\left(\mathrm{ndx}\right),\mathrm{dist}\left(U\right)⟩\right\}\right)\mathrm{Struct}⟨1,12⟩$$
27		mulridx	$$⊢{\cdot }_{𝑟}=\mathrm{Slot}{\cdot }_{\mathrm{ndx}}$$
28		snsstp3	$$⊢\left\{⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\subseteq \left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}$$
29		ssun1	$$⊢\left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\subseteq \left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\cup \left\{⟨\mathrm{Scalar}\left(\mathrm{ndx}\right),\mathrm{Scalar}\left(R\right)⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)⟩,⟨{\cdot }_{𝑖}\left(\mathrm{ndx}\right),\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}⟩\right\}$$
30	28 29	sstri	$$⊢\left\{⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\subseteq \left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\cup \left\{⟨\mathrm{Scalar}\left(\mathrm{ndx}\right),\mathrm{Scalar}\left(R\right)⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)⟩,⟨{\cdot }_{𝑖}\left(\mathrm{ndx}\right),\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}⟩\right\}$$
31		ssun1	$$⊢\left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\cup \left\{⟨\mathrm{Scalar}\left(\mathrm{ndx}\right),\mathrm{Scalar}\left(R\right)⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)⟩,⟨{\cdot }_{𝑖}\left(\mathrm{ndx}\right),\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}⟩\right\}\subseteq \left(\left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\cup \left\{⟨\mathrm{Scalar}\left(\mathrm{ndx}\right),\mathrm{Scalar}\left(R\right)⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)⟩,⟨{\cdot }_{𝑖}\left(\mathrm{ndx}\right),\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}⟩\right\}\right)\cup \left\{⟨\mathrm{TopSet}\left(\mathrm{ndx}\right),\mathrm{TopOpen}\left(R\right)\mathrm{qTop}F⟩,⟨{\le }_{\mathrm{ndx}},\left(F\circ {\le }_R\right)\circ F^{-1}⟩,⟨\mathrm{dist}\left(\mathrm{ndx}\right),\mathrm{dist}\left(U\right)⟩\right\}$$
32	30 31	sstri	$$⊢\left\{⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\subseteq \left(\left\{⟨{\mathrm{Base}}_{\mathrm{ndx}},B⟩,⟨{+}_{\mathrm{ndx}},{+}_U⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}⟩\right\}\cup \left\{⟨\mathrm{Scalar}\left(\mathrm{ndx}\right),\mathrm{Scalar}\left(R\right)⟩,⟨{\cdot }_{\mathrm{ndx}},\bigcup _{q\in V}\left(p\in {\mathrm{Base}}_{\mathrm{Scalar}\left(R\right)},x\in \left\{F\left(q\right)\right\}⟼F\left(p{\cdot }_{R}q\right)\right)⟩,⟨{\cdot }_{𝑖}\left(\mathrm{ndx}\right),\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,p{\cdot }_{𝑖}\left(R\right)q⟩\right\}⟩\right\}\right)\cup \left\{⟨\mathrm{TopSet}\left(\mathrm{ndx}\right),\mathrm{TopOpen}\left(R\right)\mathrm{qTop}F⟩,⟨{\le }_{\mathrm{ndx}},\left(F\circ {\le }_R\right)\circ F^{-1}⟩,⟨\mathrm{dist}\left(\mathrm{ndx}\right),\mathrm{dist}\left(U\right)⟩\right\}$$
33		fvex	$$⊢{\mathrm{Base}}_R\in \mathrm{V}$$
34	2 33	eqeltrdi	$$⊢\phi \to V\in \mathrm{V}$$
35		snex	$$⊢\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}\in \mathrm{V}$$
36	35	rgenw	$$⊢\forall q\in V\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}\in \mathrm{V}$$
37		iunexg	$$⊢\left(V\in \mathrm{V}\wedge \forall q\in V\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}\in \mathrm{V}\right)\to \bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}\in \mathrm{V}$$
38	34 36 37	sylancl	$$⊢\phi \to \bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}\in \mathrm{V}$$
39	38	ralrimivw	$$⊢\phi \to \forall p\in V\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}\in \mathrm{V}$$
40		iunexg	$$⊢\left(V\in \mathrm{V}\wedge \forall p\in V\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}\in \mathrm{V}\right)\to \bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}\in \mathrm{V}$$
41	34 39 40	syl2anc	$$⊢\phi \to \bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}\in \mathrm{V}$$
42	24 26 27 32 41 6	strfv3	$$⊢\phi \to \underset{\dot{}}{\bullet }=\bigcup _{p\in V}\bigcup _{q\in V}\left\{⟨⟨F\left(p\right),F\left(q\right)⟩,F\left(p\underset{\dot{}}{·}q\right)⟩\right\}$$