Theorem dpjfval 18277

Description: Value of the direct product projection (defined in terms of binary projection). (Contributed by Mario Carneiro, 26-Apr-2016.)

Hypotheses

Ref	Expression
dpjfval.1	⊢ (𝜑 → 𝐺dom DProd 𝑆)
dpjfval.2	⊢ (𝜑 → dom 𝑆 = 𝐼)
dpjfval.p	⊢ 𝑃 = (𝐺dProj𝑆)
dpjfval.q	⊢ 𝑄 = (proj1‘𝐺)

Assertion

Ref	Expression
dpjfval	⊢ (𝜑 → 𝑃 = (𝑖 ∈ 𝐼 ↦ ((𝑆‘𝑖)𝑄(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑖}))))))

Distinct variable groups:   𝑖,𝐺   𝜑,𝑖   𝑖,𝐼   𝑆,𝑖

Allowed substitution hints:   𝑃(𝑖)   𝑄(𝑖)

Proof of Theorem dpjfval

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

Step	Hyp	Ref	Expression
1		dpjfval.p	. 2 ⊢ 𝑃 = (𝐺dProj𝑆)
2		df-dpj 18218	. . . 4 ⊢ dProj = (𝑔 ∈ Grp, 𝑠 ∈ (dom DProd “ {𝑔}) ↦ (𝑖 ∈ dom 𝑠 ↦ ((𝑠‘𝑖)(proj1‘𝑔)(𝑔 DProd (𝑠 ↾ (dom 𝑠 ∖ {𝑖}))))))
3	2	a1i 11	. . 3 ⊢ (𝜑 → dProj = (𝑔 ∈ Grp, 𝑠 ∈ (dom DProd “ {𝑔}) ↦ (𝑖 ∈ dom 𝑠 ↦ ((𝑠‘𝑖)(proj1‘𝑔)(𝑔 DProd (𝑠 ↾ (dom 𝑠 ∖ {𝑖})))))))
4		simprr 792	. . . . . 6 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → 𝑠 = 𝑆)
5	4	dmeqd 5248	. . . . 5 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → dom 𝑠 = dom 𝑆)
6		dpjfval.2	. . . . . 6 ⊢ (𝜑 → dom 𝑆 = 𝐼)
7	6	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → dom 𝑆 = 𝐼)
8	5, 7	eqtrd 2644	. . . 4 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → dom 𝑠 = 𝐼)
9		simprl 790	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → 𝑔 = 𝐺)
10	9	fveq2d 6107	. . . . . 6 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → (proj1‘𝑔) = (proj1‘𝐺))
11		dpjfval.q	. . . . . 6 ⊢ 𝑄 = (proj1‘𝐺)
12	10, 11	syl6eqr 2662	. . . . 5 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → (proj1‘𝑔) = 𝑄)
13	4	fveq1d 6105	. . . . 5 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → (𝑠‘𝑖) = (𝑆‘𝑖))
14	8	difeq1d 3689	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → (dom 𝑠 ∖ {𝑖}) = (𝐼 ∖ {𝑖}))
15	4, 14	reseq12d 5318	. . . . . 6 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → (𝑠 ↾ (dom 𝑠 ∖ {𝑖})) = (𝑆 ↾ (𝐼 ∖ {𝑖})))
16	9, 15	oveq12d 6567	. . . . 5 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → (𝑔 DProd (𝑠 ↾ (dom 𝑠 ∖ {𝑖}))) = (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑖}))))
17	12, 13, 16	oveq123d 6570	. . . 4 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → ((𝑠‘𝑖)(proj1‘𝑔)(𝑔 DProd (𝑠 ↾ (dom 𝑠 ∖ {𝑖})))) = ((𝑆‘𝑖)𝑄(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑖})))))
18	8, 17	mpteq12dv 4663	. . 3 ⊢ ((𝜑 ∧ (𝑔 = 𝐺 ∧ 𝑠 = 𝑆)) → (𝑖 ∈ dom 𝑠 ↦ ((𝑠‘𝑖)(proj1‘𝑔)(𝑔 DProd (𝑠 ↾ (dom 𝑠 ∖ {𝑖}))))) = (𝑖 ∈ 𝐼 ↦ ((𝑆‘𝑖)𝑄(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑖}))))))
19		simpr 476	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → 𝑔 = 𝐺)
20	19	sneqd 4137	. . . 4 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → {𝑔} = {𝐺})
21	20	imaeq2d 5385	. . 3 ⊢ ((𝜑 ∧ 𝑔 = 𝐺) → (dom DProd “ {𝑔}) = (dom DProd “ {𝐺}))
22		dpjfval.1	. . . 4 ⊢ (𝜑 → 𝐺dom DProd 𝑆)
23		dprdgrp 18227	. . . 4 ⊢ (𝐺dom DProd 𝑆 → 𝐺 ∈ Grp)
24	22, 23	syl 17	. . 3 ⊢ (𝜑 → 𝐺 ∈ Grp)
25		reldmdprd 18219	. . . . 5 ⊢ Rel dom DProd
26		elrelimasn 5408	. . . . 5 ⊢ (Rel dom DProd → (𝑆 ∈ (dom DProd “ {𝐺}) ↔ 𝐺dom DProd 𝑆))
27	25, 26	ax-mp 5	. . . 4 ⊢ (𝑆 ∈ (dom DProd “ {𝐺}) ↔ 𝐺dom DProd 𝑆)
28	22, 27	sylibr 223	. . 3 ⊢ (𝜑 → 𝑆 ∈ (dom DProd “ {𝐺}))
29	22, 6	dprddomcld 18223	. . . 4 ⊢ (𝜑 → 𝐼 ∈ V)
30		mptexg 6389	. . . 4 ⊢ (𝐼 ∈ V → (𝑖 ∈ 𝐼 ↦ ((𝑆‘𝑖)𝑄(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑖}))))) ∈ V)
31	29, 30	syl 17	. . 3 ⊢ (𝜑 → (𝑖 ∈ 𝐼 ↦ ((𝑆‘𝑖)𝑄(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑖}))))) ∈ V)
32	3, 18, 21, 24, 28, 31	ovmpt2dx 6685	. 2 ⊢ (𝜑 → (𝐺dProj𝑆) = (𝑖 ∈ 𝐼 ↦ ((𝑆‘𝑖)𝑄(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑖}))))))
33	1, 32	syl5eq 2656	1 ⊢ (𝜑 → 𝑃 = (𝑖 ∈ 𝐼 ↦ ((𝑆‘𝑖)𝑄(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑖}))))))

Syntax hints:   → wi 4   ↔ wb 195   ∧ wa 383   = wceq 1475   ∈ wcel 1977  Vcvv 3173   ∖ cdif 3537  {csn 4125   class class class wbr 4583   ↦ cmpt 4643  dom cdm 5038   ↾ cres 5040   “ cima 5041  Rel wrel 5043  ‘cfv 5804  (class class class)co 6549   ↦ cmpt2 6551  Grpcgrp 17245  proj₁cpj1 17873   DProd cdprd 18215  dProjcdpj 18216

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-1st 7059  df-2nd 7060  df-ixp 7795  df-dprd 18217  df-dpj 18218

This theorem is referenced by:  dpjval  18278