Theorem fmucndlem 22902

Description: Lemma for fmucnd 22903. (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 5570	. . 3 ⊢ ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ran ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴))
2		simpr 487	. . . . 5 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → 𝐴 ⊆ 𝑋)
3		resmpo 7274	. . . . 5 ⊢ ((𝐴 ⊆ 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴)) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
4	2, 3	sylancom 590	. . . 4 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴)) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
5	4	rneqd 5810	. . 3 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ran ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴)) = ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
6	1, 5	syl5eq 2870	. 2 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
7		vex 3499	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
8		vex 3499	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
9	7, 8	op1std 7701	. . . . . . . . . . . 12 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (1st ‘𝑝) = 𝑥)
10	9	fveq2d 6676	. . . . . . . . . . 11 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝐹‘(1st ‘𝑝)) = (𝐹‘𝑥))
11	7, 8	op2ndd 7702	. . . . . . . . . . . 12 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (2nd ‘𝑝) = 𝑦)
12	11	fveq2d 6676	. . . . . . . . . . 11 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝐹‘(2nd ‘𝑝)) = (𝐹‘𝑦))
13	10, 12	opeq12d 4813	. . . . . . . . . 10 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
14	13	mpompt 7268	. . . . . . . . 9 ⊢ (𝑝 ∈ (𝐴 × 𝐴) ↦ ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
15	14	eqcomi 2832	. . . . . . . 8 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = (𝑝 ∈ (𝐴 × 𝐴) ↦ ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩)
16	15	rneqi 5809	. . . . . . 7 ⊢ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = ran (𝑝 ∈ (𝐴 × 𝐴) ↦ ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩)
17		fvexd 6687	. . . . . . 7 ⊢ ((⊤ ∧ 𝑝 ∈ (𝐴 × 𝐴)) → (𝐹‘(1st ‘𝑝)) ∈ V)
18		fvexd 6687	. . . . . . 7 ⊢ ((⊤ ∧ 𝑝 ∈ (𝐴 × 𝐴)) → (𝐹‘(2nd ‘𝑝)) ∈ V)
19	16, 17, 18	fliftrel 7063	. . . . . 6 ⊢ (⊤ → ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ⊆ (V × V))
20	19	mptru 1544	. . . . 5 ⊢ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ⊆ (V × V)
21	20	sseli 3965	. . . 4 ⊢ (𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) → 𝑝 ∈ (V × V))
22	21	adantl 484	. . 3 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)) → 𝑝 ∈ (V × V))
23		xpss 5573	. . . . 5 ⊢ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) ⊆ (V × V)
24	23	sseli 3965	. . . 4 ⊢ (𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) → 𝑝 ∈ (V × V))
25	24	adantl 484	. . 3 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))) → 𝑝 ∈ (V × V))
26		fvelimab 6739	. . . . . . . 8 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ↔ ∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝)))
27		fvelimab 6739	. . . . . . . 8 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((2nd ‘𝑝) ∈ (𝐹 “ 𝐴) ↔ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝)))
28	26, 27	anbi12d 632	. . . . . . 7 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → (((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ∧ (2nd ‘𝑝) ∈ (𝐹 “ 𝐴)) ↔ (∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝) ∧ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝))))
29		eqid 2823	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
30		opex 5358	. . . . . . . . 9 ⊢ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ∈ V
31	29, 30	elrnmpo 7289	. . . . . . . 8 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
32		eqcom 2830	. . . . . . . . . 10 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ↔ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
33		fvex 6685	. . . . . . . . . . 11 ⊢ (1st ‘𝑝) ∈ V
34		fvex 6685	. . . . . . . . . . 11 ⊢ (2nd ‘𝑝) ∈ V
35	33, 34	opth2 5374	. . . . . . . . . 10 ⊢ (⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ↔ ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)))
36	32, 35	bitri 277	. . . . . . . . 9 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ↔ ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)))
37	36	2rexbii 3250	. . . . . . . 8 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ↔ ∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)))
38		reeanv 3369	. . . . . . . 8 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)) ↔ (∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝) ∧ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝)))
39	31, 37, 38	3bitri 299	. . . . . . 7 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ (∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝) ∧ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝)))
40	28, 39	syl6rbbr 292	. . . . . 6 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ∧ (2nd ‘𝑝) ∈ (𝐹 “ 𝐴))))
41		opelxp 5593	. . . . . 6 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) ↔ ((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ∧ (2nd ‘𝑝) ∈ (𝐹 “ 𝐴)))
42	40, 41	syl6bbr 291	. . . . 5 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
43	42	adantr 483	. . . 4 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
44		1st2nd2 7730	. . . . . 6 ⊢ (𝑝 ∈ (V × V) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
45	44	adantl 484	. . . . 5 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
46	45	eleq1d 2899	. . . 4 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)))
47	45	eleq1d 2899	. . . 4 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
48	43, 46, 47	3bitr4d 313	. . 3 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ 𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
49	22, 25, 48	eqrdav 2822	. 2 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)))
50	6, 49	eqtrd 2858	1 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1537  ⊤wtru 1538   ∈ wcel 2114  ∃wrex 3141  Vcvv 3496   ⊆ wss 3938  ⟨cop 4575   ↦ cmpt 5148   × cxp 5555  ran crn 5558   ↾ cres 5559   “ cima 5560   Fn wfn 6352  ‘cfv 6357   ∈ cmpo 7160  1^st c1st 7689  2^nd c2nd 7690

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-ral 3145  df-rex 3146  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-nul 4294  df-if 4470  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-id 5462  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-fv 6365  df-oprab 7162  df-mpo 7163  df-1st 7691  df-2nd 7692

This theorem is referenced by:  fmucnd  22903