Theorem fpar 8157

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 30494. (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 8155	. . 3 ⊢ (𝐹 Fn 𝐴 → (◡(1st ↾ (V × V)) ∘ (𝐹 ∘ (1st ↾ (V × V)))) = ∪ 𝑥 ∈ 𝐴 (({𝑥} × V) × ({(𝐹‘𝑥)} × V)))
2		fparlem4 8156	. . 3 ⊢ (𝐺 Fn 𝐵 → (◡(2nd ↾ (V × V)) ∘ (𝐺 ∘ (2nd ↾ (V × V)))) = ∪ 𝑦 ∈ 𝐵 ((V × {𝑦}) × (V × {(𝐺‘𝑦)})))
3	1, 2	ineqan12d 4243	. 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 5484	. . . 4 ⊢ ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩ ∈ V
6	5	dfmpo 8143	. . 3 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩) = ∪ 𝑥 ∈ 𝐴 ∪ 𝑦 ∈ 𝐵 {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
7		inxp 5856	. . . . . . . 8 ⊢ ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = ((({𝑥} × V) ∩ (V × {𝑦})) × (({(𝐹‘𝑥)} × V) ∩ (V × {(𝐺‘𝑦)})))
8		inxp 5856	. . . . . . . . . 10 ⊢ (({𝑥} × V) ∩ (V × {𝑦})) = (({𝑥} ∩ V) × (V ∩ {𝑦}))
9		inv1 4421	. . . . . . . . . . 11 ⊢ ({𝑥} ∩ V) = {𝑥}
10		incom 4230	. . . . . . . . . . . 12 ⊢ (V ∩ {𝑦}) = ({𝑦} ∩ V)
11		inv1 4421	. . . . . . . . . . . 12 ⊢ ({𝑦} ∩ V) = {𝑦}
12	10, 11	eqtri 2768	. . . . . . . . . . 11 ⊢ (V ∩ {𝑦}) = {𝑦}
13	9, 12	xpeq12i 5728	. . . . . . . . . 10 ⊢ (({𝑥} ∩ V) × (V ∩ {𝑦})) = ({𝑥} × {𝑦})
14		vex 3492	. . . . . . . . . . 11 ⊢ 𝑥 ∈ V
15		vex 3492	. . . . . . . . . . 11 ⊢ 𝑦 ∈ V
16	14, 15	xpsn 7175	. . . . . . . . . 10 ⊢ ({𝑥} × {𝑦}) = {⟨𝑥, 𝑦⟩}
17	8, 13, 16	3eqtri 2772	. . . . . . . . 9 ⊢ (({𝑥} × V) ∩ (V × {𝑦})) = {⟨𝑥, 𝑦⟩}
18		inxp 5856	. . . . . . . . . 10 ⊢ (({(𝐹‘𝑥)} × V) ∩ (V × {(𝐺‘𝑦)})) = (({(𝐹‘𝑥)} ∩ V) × (V ∩ {(𝐺‘𝑦)}))
19		inv1 4421	. . . . . . . . . . 11 ⊢ ({(𝐹‘𝑥)} ∩ V) = {(𝐹‘𝑥)}
20		incom 4230	. . . . . . . . . . . 12 ⊢ (V ∩ {(𝐺‘𝑦)}) = ({(𝐺‘𝑦)} ∩ V)
21		inv1 4421	. . . . . . . . . . . 12 ⊢ ({(𝐺‘𝑦)} ∩ V) = {(𝐺‘𝑦)}
22	20, 21	eqtri 2768	. . . . . . . . . . 11 ⊢ (V ∩ {(𝐺‘𝑦)}) = {(𝐺‘𝑦)}
23	19, 22	xpeq12i 5728	. . . . . . . . . 10 ⊢ (({(𝐹‘𝑥)} ∩ V) × (V ∩ {(𝐺‘𝑦)})) = ({(𝐹‘𝑥)} × {(𝐺‘𝑦)})
24		fvex 6933	. . . . . . . . . . 11 ⊢ (𝐹‘𝑥) ∈ V
25		fvex 6933	. . . . . . . . . . 11 ⊢ (𝐺‘𝑦) ∈ V
26	24, 25	xpsn 7175	. . . . . . . . . 10 ⊢ ({(𝐹‘𝑥)} × {(𝐺‘𝑦)}) = {⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩}
27	18, 23, 26	3eqtri 2772	. . . . . . . . 9 ⊢ (({(𝐹‘𝑥)} × V) ∩ (V × {(𝐺‘𝑦)})) = {⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩}
28	17, 27	xpeq12i 5728	. . . . . . . 8 ⊢ ((({𝑥} × V) ∩ (V × {𝑦})) × (({(𝐹‘𝑥)} × V) ∩ (V × {(𝐺‘𝑦)}))) = ({⟨𝑥, 𝑦⟩} × {⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩})
29		opex 5484	. . . . . . . . 9 ⊢ ⟨𝑥, 𝑦⟩ ∈ V
30	29, 5	xpsn 7175	. . . . . . . 8 ⊢ ({⟨𝑥, 𝑦⟩} × {⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩}) = {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
31	7, 28, 30	3eqtri 2772	. . . . . . 7 ⊢ ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
32	31	a1i 11	. . . . . 6 ⊢ (𝑦 ∈ 𝐵 → ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩})
33	32	iuneq2i 5036	. . . . 5 ⊢ ∪ 𝑦 ∈ 𝐵 ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = ∪ 𝑦 ∈ 𝐵 {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
34	33	a1i 11	. . . 4 ⊢ (𝑥 ∈ 𝐴 → ∪ 𝑦 ∈ 𝐵 ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = ∪ 𝑦 ∈ 𝐵 {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩})
35	34	iuneq2i 5036	. . 3 ⊢ ∪ 𝑥 ∈ 𝐴 ∪ 𝑦 ∈ 𝐵 ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = ∪ 𝑥 ∈ 𝐴 ∪ 𝑦 ∈ 𝐵 {⟨⟨𝑥, 𝑦⟩, ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩⟩}
36		2iunin 5099	. . 3 ⊢ ∪ 𝑥 ∈ 𝐴 ∪ 𝑦 ∈ 𝐵 ((({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ((V × {𝑦}) × (V × {(𝐺‘𝑦)}))) = (∪ 𝑥 ∈ 𝐴 (({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ∪ 𝑦 ∈ 𝐵 ((V × {𝑦}) × (V × {(𝐺‘𝑦)})))
37	6, 35, 36	3eqtr2i 2774	. 2 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩) = (∪ 𝑥 ∈ 𝐴 (({𝑥} × V) × ({(𝐹‘𝑥)} × V)) ∩ ∪ 𝑦 ∈ 𝐵 ((V × {𝑦}) × (V × {(𝐺‘𝑦)})))
38	3, 4, 37	3eqtr4g 2805	1 ⊢ ((𝐹 Fn 𝐴 ∧ 𝐺 Fn 𝐵) → 𝐻 = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ ⟨(𝐹‘𝑥), (𝐺‘𝑦)⟩))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1537   ∈ wcel 2108  Vcvv 3488   ∩ cin 3975  {csn 4648  ⟨cop 4654  ∪ ciun 5015   × cxp 5698  ^◡ccnv 5699   ↾ cres 5702   ∘ ccom 5704   Fn wfn 6568  ‘cfv 6573   ∈ cmpo 7450  1^st c1st 8028  2^nd c2nd 8029

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-sep 5317  ax-nul 5324  ax-pr 5447  ax-un 7770

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-if 4549  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-id 5593  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-oprab 7452  df-mpo 7453  df-1st 8030  df-2nd 8031

This theorem is referenced by:  fsplitfpar  8159  ex-fpar  30494