Theorem fpar 7794

Description: Merge two functions in parallel. Use as the second argument of a composition with a binary operation to build compound functions such as (𝑥 ∈ (0[,)+∞), 𝑦 ∈ ℝ ↦ ((√‘𝑥) + (sin‘𝑦))), see also ex-fpar 28247. (Contributed by NM, 17-Sep-2007.) (Proof shortened by Mario Carneiro, 28-Apr-2015.)

Hypothesis

Ref	Expression
fpar.1	⊢ 𝐻 = ((◡(1st ↾ (V × V)) ∘ (𝐹 ∘ (1st ↾ (V × V)))) ∩ (◡(2nd ↾ (V × V)) ∘ (𝐺 ∘ (2nd ↾ (V × V)))))

Assertion

Ref	Expression
fpar	⊢ ((𝐹 Fn 𝐴 ∧ 𝐺 Fn 𝐵) → 𝐻 = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩))

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐵,𝑦   𝑥,𝐹,𝑦   𝑥,𝐺,𝑦

Allowed substitution hints:   𝐻(𝑥,𝑦)

Proof of Theorem fpar

Step	Hyp	Ref	Expression
1		fparlem3 7792	. . 3 ⊢ (𝐹 Fn 𝐴 → (◡(1st ↾ (V × V)) ∘ (𝐹 ∘ (1st ↾ (V × V)))) = ∪ 𝑥 ∈ 𝐴 (({𝑥} × V) × ({(𝐹‘𝑥)} × V)))
2		fparlem4 7793	. . 3 ⊢ (𝐺 Fn 𝐵 → (◡(2nd ↾ (V × V)) ∘ (𝐺 ∘ (2nd ↾ (V × V)))) = ∪ 𝑦 ∈ 𝐵 ((V × {𝑦}) × (V × {(𝐺‘𝑦)})))
3	1, 2	ineqan12d 4141	. 2 ⊢ ((𝐹 Fn 𝐴 ∧ 𝐺 Fn 𝐵) → ((◡(1st ↾ (V × V)) ∘ (𝐹 ∘ (1st ↾ (V × V)))) ∩ (◡(2nd ↾ (V × V)) ∘ (𝐺 ∘ (2nd ↾ (V × V))))) = (∪ 𝑥 ∈ 𝐴 (({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ∪ 𝑦 ∈ 𝐵 ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))))
4		fpar.1	. 2 ⊢ 𝐻 = ((◡(1st ↾ (V × V)) ∘ (𝐹 ∘ (1st ↾ (V × V)))) ∩ (◡(2nd ↾ (V × V)) ∘ (𝐺 ∘ (2nd ↾ (V × V)))))
5		opex 5321	. . . 4 ⊢ ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩ ∈ V
6	5	dfmpo 7780	. . 3 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩) = ∪ 𝑥 ∈ 𝐴 ∪ 𝑦 ∈ 𝐵 {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
7		inxp 5667	. . . . . . . 8 ⊢ ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = ((({𝑥} × V) ∩ (V × {𝑦})) × (({(𝐹‘𝑥)} × V) ∩ (V × {(𝐺‘𝑦)})))
8		inxp 5667	. . . . . . . . . 10 ⊢ (({𝑥} × V) ∩ (V × {𝑦})) = (({𝑥} ∩ V) × (V ∩ {𝑦}))
9		inv1 4302	. . . . . . . . . . 11 ⊢ ({𝑥} ∩ V) = {𝑥}
10		incom 4128	. . . . . . . . . . . 12 ⊢ (V ∩ {𝑦}) = ({𝑦} ∩ V)
11		inv1 4302	. . . . . . . . . . . 12 ⊢ ({𝑦} ∩ V) = {𝑦}
12	10, 11	eqtri 2821	. . . . . . . . . . 11 ⊢ (V ∩ {𝑦}) = {𝑦}
13	9, 12	xpeq12i 5547	. . . . . . . . . 10 ⊢ (({𝑥} ∩ V) × (V ∩ {𝑦})) = ({𝑥} × {𝑦})
14		vex 3444	. . . . . . . . . . 11 ⊢ 𝑥 ∈ V
15		vex 3444	. . . . . . . . . . 11 ⊢ 𝑦 ∈ V
16	14, 15	xpsn 6880	. . . . . . . . . 10 ⊢ ({𝑥} × {𝑦}) = {⟨𝑥, 𝑦⟩}
17	8, 13, 16	3eqtri 2825	. . . . . . . . 9 ⊢ (({𝑥} × V) ∩ (V × {𝑦})) = {⟨𝑥, 𝑦⟩}
18		inxp 5667	. . . . . . . . . 10 ⊢ (({(𝐹‘𝑥)} × V) ∩ (V × {(𝐺‘𝑦)})) = (({(𝐹‘𝑥)} ∩ V) × (V ∩ {(𝐺‘𝑦)}))
19		inv1 4302	. . . . . . . . . . 11 ⊢ ({(𝐹‘𝑥)} ∩ V) = {(𝐹‘𝑥)}
20		incom 4128	. . . . . . . . . . . 12 ⊢ (V ∩ {(𝐺‘𝑦)}) = ({(𝐺‘𝑦)} ∩ V)
21		inv1 4302	. . . . . . . . . . . 12 ⊢ ({(𝐺‘𝑦)} ∩ V) = {(𝐺‘𝑦)}
22	20, 21	eqtri 2821	. . . . . . . . . . 11 ⊢ (V ∩ {(𝐺‘𝑦)}) = {(𝐺‘𝑦)}
23	19, 22	xpeq12i 5547	. . . . . . . . . 10 ⊢ (({(𝐹‘𝑥)} ∩ V) × (V ∩ {(𝐺‘𝑦)})) = ({(𝐹‘𝑥)} × {(𝐺‘𝑦)})
24		fvex 6658	. . . . . . . . . . 11 ⊢ (𝐹‘𝑥) ∈ V
25		fvex 6658	. . . . . . . . . . 11 ⊢ (𝐺‘𝑦) ∈ V
26	24, 25	xpsn 6880	. . . . . . . . . 10 ⊢ ({(𝐹‘𝑥)} × {(𝐺‘𝑦)}) = {⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩}
27	18, 23, 26	3eqtri 2825	. . . . . . . . 9 ⊢ (({(𝐹‘𝑥)} × V) ∩ (V × {(𝐺‘𝑦)})) = {⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩}
28	17, 27	xpeq12i 5547	. . . . . . . 8 ⊢ ((({𝑥} × V) ∩ (V × {𝑦})) × (({(𝐹‘𝑥)} × V) ∩ (V × {(𝐺‘𝑦)}))) = ({⟨𝑥, 𝑦⟩} × {⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩})
29		opex 5321	. . . . . . . . 9 ⊢ ⟨𝑥, 𝑦⟩ ∈ V
30	29, 5	xpsn 6880	. . . . . . . 8 ⊢ ({⟨𝑥, 𝑦⟩} × {⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩}) = {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
31	7, 28, 30	3eqtri 2825	. . . . . . 7 ⊢ ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
32	31	a1i 11	. . . . . 6 ⊢ (𝑦 ∈ 𝐵 → ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩})
33	32	iuneq2i 4902	. . . . 5 ⊢ ∪ 𝑦 ∈ 𝐵 ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = ∪ 𝑦 ∈ 𝐵 {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
34	33	a1i 11	. . . 4 ⊢ (𝑥 ∈ 𝐴 → ∪ 𝑦 ∈ 𝐵 ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = ∪ 𝑦 ∈ 𝐵 {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩})
35	34	iuneq2i 4902	. . 3 ⊢ ∪ 𝑥 ∈ 𝐴 ∪ 𝑦 ∈ 𝐵 ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = ∪ 𝑥 ∈ 𝐴 ∪ 𝑦 ∈ 𝐵 {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
36		2iunin 4961	. . 3 ⊢ ∪ 𝑥 ∈ 𝐴 ∪ 𝑦 ∈ 𝐵 ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = (∪ 𝑥 ∈ 𝐴 (({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ∪ 𝑦 ∈ 𝐵 ((V × {𝑦}) × (V × {(𝐺‘𝑦)})))
37	6, 35, 36	3eqtr2i 2827	. 2 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩) = (∪ 𝑥 ∈ 𝐴 (({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ∪ 𝑦 ∈ 𝐵 ((V × {𝑦}) × (V × {(𝐺‘𝑦)})))
38	3, 4, 37	3eqtr4g 2858	1 ⊢ ((𝐹 Fn 𝐴 ∧ 𝐺 Fn 𝐵) → 𝐻 = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩))

Syntax hints:   → wi 4   ∧ wa 399   = wceq 1538   ∈ wcel 2111  Vcvv 3441   ∩ cin 3880  {csn 4525  ⟨cop 4531  ∪ ciun 4881   × cxp 5517  ^◡ccnv 5518   ↾ cres 5521   ∘ ccom 5523   Fn wfn 6319  ‘cfv 6324   ∈ cmpo 7137  1^st c1st 7669  2^nd c2nd 7670

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-ral 3111  df-rex 3112  df-reu 3113  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-nul 4244  df-if 4426  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4801  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-id 5425  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-oprab 7139  df-mpo 7140  df-1st 7671  df-2nd 7672

This theorem is referenced by:  fsplitfpar  7797  ex-fpar  28247