Theorem xpsval 17540

Description: Value of the binary structure product function. (Contributed by Mario Carneiro, 14-Aug-2015.) (Revised by Jim Kingdon, 25-Sep-2023.)

Hypotheses

Ref	Expression
xpsval.t	⊢ 𝑇 = (𝑅 ×s 𝑆)
xpsval.x	⊢ 𝑋 = (Base‘𝑅)
xpsval.y	⊢ 𝑌 = (Base‘𝑆)
xpsval.1	⊢ (𝜑 → 𝑅 ∈ 𝑉)
xpsval.2	⊢ (𝜑 → 𝑆 ∈ 𝑊)
xpsval.f	⊢ 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})
xpsval.k	⊢ 𝐺 = (Scalar‘𝑅)
xpsval.u	⊢ 𝑈 = (𝐺Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})

Assertion

Ref	Expression
xpsval	⊢ (𝜑 → 𝑇 = (◡𝐹 “s 𝑈))

Distinct variable groups:   𝑥,𝑦   𝑥,𝑊   𝑥,𝑋,𝑦   𝑥,𝑅   𝑥,𝑌,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦)   𝑅(𝑦)   𝑆(𝑥,𝑦)   𝑇(𝑥,𝑦)   𝑈(𝑥,𝑦)   𝐹(𝑥,𝑦)   𝐺(𝑥,𝑦)   𝑉(𝑥,𝑦)   𝑊(𝑦)

Proof of Theorem xpsval

Dummy variables 𝑠 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		xpsval.t	. 2 ⊢ 𝑇 = (𝑅 ×s 𝑆)
2		xpsval.1	. . . 4 ⊢ (𝜑 → 𝑅 ∈ 𝑉)
3	2	elexd 3474	. . 3 ⊢ (𝜑 → 𝑅 ∈ V)
4		xpsval.2	. . . 4 ⊢ (𝜑 → 𝑆 ∈ 𝑊)
5	4	elexd 3474	. . 3 ⊢ (𝜑 → 𝑆 ∈ V)
6		fveq2 6861	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
7		xpsval.x	. . . . . . . . 9 ⊢ 𝑋 = (Base‘𝑅)
8	6, 7	eqtr4di 2783	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝑋)
9		fveq2 6861	. . . . . . . . 9 ⊢ (𝑠 = 𝑆 → (Base‘𝑠) = (Base‘𝑆))
10		xpsval.y	. . . . . . . . 9 ⊢ 𝑌 = (Base‘𝑆)
11	9, 10	eqtr4di 2783	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → (Base‘𝑠) = 𝑌)
12		mpoeq12 7465	. . . . . . . 8 ⊢ (((Base‘𝑟) = 𝑋 ∧ (Base‘𝑠) = 𝑌) → (𝑥 ∈ (Base‘𝑟), 𝑦 ∈ (Base‘𝑠) ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))
13	8, 11, 12	syl2an 596	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → (𝑥 ∈ (Base‘𝑟), 𝑦 ∈ (Base‘𝑠) ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}))
14		xpsval.f	. . . . . . 7 ⊢ 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩})
15	13, 14	eqtr4di 2783	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → (𝑥 ∈ (Base‘𝑟), 𝑦 ∈ (Base‘𝑠) ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) = 𝐹)
16	15	cnveqd 5842	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → ◡(𝑥 ∈ (Base‘𝑟), 𝑦 ∈ (Base‘𝑠) ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) = ◡𝐹)
17		fveq2 6861	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (Scalar‘𝑟) = (Scalar‘𝑅))
18	17	adantr 480	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → (Scalar‘𝑟) = (Scalar‘𝑅))
19		xpsval.k	. . . . . . . 8 ⊢ 𝐺 = (Scalar‘𝑅)
20	18, 19	eqtr4di 2783	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → (Scalar‘𝑟) = 𝐺)
21		simpl 482	. . . . . . . . 9 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → 𝑟 = 𝑅)
22	21	opeq2d 4847	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → ⟨∅, 𝑟⟩ = ⟨∅, 𝑅⟩)
23		simpr 484	. . . . . . . . 9 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → 𝑠 = 𝑆)
24	23	opeq2d 4847	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → ⟨1o, 𝑠⟩ = ⟨1o, 𝑆⟩)
25	22, 24	preq12d 4708	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → {⟨∅, 𝑟⟩, ⟨1o, 𝑠⟩} = {⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})
26	20, 25	oveq12d 7408	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → ((Scalar‘𝑟)Xs{⟨∅, 𝑟⟩, ⟨1o, 𝑠⟩}) = (𝐺Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩}))
27		xpsval.u	. . . . . 6 ⊢ 𝑈 = (𝐺Xs{⟨∅, 𝑅⟩, ⟨1o, 𝑆⟩})
28	26, 27	eqtr4di 2783	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → ((Scalar‘𝑟)Xs{⟨∅, 𝑟⟩, ⟨1o, 𝑠⟩}) = 𝑈)
29	16, 28	oveq12d 7408	. . . 4 ⊢ ((𝑟 = 𝑅 ∧ 𝑠 = 𝑆) → (◡(𝑥 ∈ (Base‘𝑟), 𝑦 ∈ (Base‘𝑠) ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) “s ((Scalar‘𝑟)Xs{⟨∅, 𝑟⟩, ⟨1o, 𝑠⟩})) = (◡𝐹 “s 𝑈))
30		df-xps 17480	. . . 4 ⊢ ×s = (𝑟 ∈ V, 𝑠 ∈ V ↦ (◡(𝑥 ∈ (Base‘𝑟), 𝑦 ∈ (Base‘𝑠) ↦ {⟨∅, 𝑥⟩, ⟨1o, 𝑦⟩}) “s ((Scalar‘𝑟)Xs{⟨∅, 𝑟⟩, ⟨1o, 𝑠⟩})))
31		ovex 7423	. . . 4 ⊢ (◡𝐹 “s 𝑈) ∈ V
32	29, 30, 31	ovmpoa 7547	. . 3 ⊢ ((𝑅 ∈ V ∧ 𝑆 ∈ V) → (𝑅 ×s 𝑆) = (◡𝐹 “s 𝑈))
33	3, 5, 32	syl2anc 584	. 2 ⊢ (𝜑 → (𝑅 ×s 𝑆) = (◡𝐹 “s 𝑈))
34	1, 33	eqtrid 2777	1 ⊢ (𝜑 → 𝑇 = (◡𝐹 “s 𝑈))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109  Vcvv 3450  ∅c0 4299  {cpr 4594  ⟨cop 4598  ^◡ccnv 5640  ‘cfv 6514  (class class class)co 7390   ∈ cmpo 7392  1_oc1o 8430  Basecbs 17186  Scalarcsca 17230  X_scprds 17415   “_s cimas 17474   ×_s cxps 17476

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-sep 5254  ax-nul 5264  ax-pr 5390

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-rab 3409  df-v 3452  df-sbc 3757  df-dif 3920  df-un 3922  df-ss 3934  df-nul 4300  df-if 4492  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-br 5111  df-opab 5173  df-id 5536  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-iota 6467  df-fun 6516  df-fv 6522  df-ov 7393  df-oprab 7394  df-mpo 7395  df-xps 17480

This theorem is referenced by:  xpsbas  17542  xpsadd  17544  xpsmul  17545  xpssca  17546  xpsvsca  17547  xpsless  17548  xpsle  17549  xpsmnd  18711  xpsgrp  18998  xpsrngd  20095  xpsringd  20248  xpstps  23704  xpstopnlem2  23705  xpsdsfn  24272  xpsxmet  24275  xpsdsval  24276  xpsmet  24277  xpsxms  24429  xpsms  24430