Theorem fmucndlem 24273

Description: Lemma for fmucnd 24274. (Contributed by Thierry Arnoux, 19-Nov-2017.)

Assertion

Ref	Expression
fmucndlem	⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)))

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐹,𝑦   𝑥,𝑋,𝑦

Proof of Theorem fmucndlem

Dummy variable 𝑝 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-ima 5631	. . 3 ⊢ ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ran ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴))
2		simpr 485	. . . . 5 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → 𝐴 ⊆ 𝑋)
3		resmpo 7476	. . . . 5 ⊢ ((𝐴 ⊆ 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴)) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
4	2, 3	sylancom 594	. . . 4 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴)) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
5	4	rneqd 5880	. . 3 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ran ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴)) = ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
6	1, 5	eqtrid 2786	. 2 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
7		vex 3435	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
8		vex 3435	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
9	7, 8	op1std 7941	. . . . . . . . . . . 12 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (1st ‘𝑝) = 𝑥)
10	9	fveq2d 6831	. . . . . . . . . . 11 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝐹‘(1st ‘𝑝)) = (𝐹‘𝑥))
11	7, 8	op2ndd 7942	. . . . . . . . . . . 12 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (2nd ‘𝑝) = 𝑦)
12	11	fveq2d 6831	. . . . . . . . . . 11 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝐹‘(2nd ‘𝑝)) = (𝐹‘𝑦))
13	10, 12	opeq12d 4812	. . . . . . . . . 10 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
14	13	mpompt 7470	. . . . . . . . 9 ⊢ (𝑝 ∈ (𝐴 × 𝐴) ↦ ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
15	14	eqcomi 2748	. . . . . . . 8 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = (𝑝 ∈ (𝐴 × 𝐴) ↦ ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩)
16	15	rneqi 5879	. . . . . . 7 ⊢ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = ran (𝑝 ∈ (𝐴 × 𝐴) ↦ ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩)
17		fvexd 6842	. . . . . . 7 ⊢ ((⊤ ∧ 𝑝 ∈ (𝐴 × 𝐴)) → (𝐹‘(1st ‘𝑝)) ∈ V)
18		fvexd 6842	. . . . . . 7 ⊢ ((⊤ ∧ 𝑝 ∈ (𝐴 × 𝐴)) → (𝐹‘(2nd ‘𝑝)) ∈ V)
19	16, 17, 18	fliftrel 7252	. . . . . 6 ⊢ (⊤ → ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ⊆ (V × V))
20	19	mptru 1554	. . . . 5 ⊢ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ⊆ (V × V)
21	20	sseli 3911	. . . 4 ⊢ (𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) → 𝑝 ∈ (V × V))
22	21	adantl 482	. . 3 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)) → 𝑝 ∈ (V × V))
23		xpss 5634	. . . . 5 ⊢ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) ⊆ (V × V)
24	23	sseli 3911	. . . 4 ⊢ (𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) → 𝑝 ∈ (V × V))
25	24	adantl 482	. . 3 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))) → 𝑝 ∈ (V × V))
26		eqid 2739	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
27		opex 5403	. . . . . . . . 9 ⊢ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ∈ V
28	26, 27	elrnmpo 7492	. . . . . . . 8 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
29		eqcom 2746	. . . . . . . . . 10 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ↔ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
30		fvex 6840	. . . . . . . . . . 11 ⊢ (1st ‘𝑝) ∈ V
31		fvex 6840	. . . . . . . . . . 11 ⊢ (2nd ‘𝑝) ∈ V
32	30, 31	opth2 5420	. . . . . . . . . 10 ⊢ (⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ↔ ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)))
33	29, 32	bitri 276	. . . . . . . . 9 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ↔ ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)))
34	33	2rexbii 3115	. . . . . . . 8 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ↔ ∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)))
35		reeanv 3211	. . . . . . . 8 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)) ↔ (∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝) ∧ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝)))
36	28, 34, 35	3bitri 298	. . . . . . 7 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ (∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝) ∧ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝)))
37		fvelimab 6899	. . . . . . . 8 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ↔ ∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝)))
38		fvelimab 6899	. . . . . . . 8 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((2nd ‘𝑝) ∈ (𝐹 “ 𝐴) ↔ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝)))
39	37, 38	anbi12d 638	. . . . . . 7 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → (((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ∧ (2nd ‘𝑝) ∈ (𝐹 “ 𝐴)) ↔ (∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝) ∧ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝))))
40	36, 39	bitr4id 291	. . . . . 6 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ∧ (2nd ‘𝑝) ∈ (𝐹 “ 𝐴))))
41		opelxp 5654	. . . . . 6 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) ↔ ((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ∧ (2nd ‘𝑝) ∈ (𝐹 “ 𝐴)))
42	40, 41	bitr4di 290	. . . . 5 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
43	42	adantr 481	. . . 4 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
44		1st2nd2 7970	. . . . . 6 ⊢ (𝑝 ∈ (V × V) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
45	44	adantl 482	. . . . 5 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
46	45	eleq1d 2824	. . . 4 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)))
47	45	eleq1d 2824	. . . 4 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
48	43, 46, 47	3bitr4d 312	. . 3 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ 𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
49	22, 25, 48	eqrdav 2738	. 2 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)))
50	6, 49	eqtrd 2774	1 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547  ⊤wtru 1548   ∈ wcel 2119  ∃wrex 3063  Vcvv 3431   ⊆ wss 3883  ⟨cop 4561   ↦ cmpt 5153   × cxp 5616  ran crn 5619   ↾ cres 5620   “ cima 5621   Fn wfn 6480  ‘cfv 6485   ∈ cmpo 7358  1^st c1st 7929  2^nd c2nd 7930

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-sep 5218  ax-nul 5228  ax-pr 5362  ax-un 7678

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4262  df-if 4455  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-id 5513  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-fv 6493  df-oprab 7360  df-mpo 7361  df-1st 7931  df-2nd 7932

This theorem is referenced by:  fmucnd  24274