Theorem fmucndlem 24516

Description: Lemma for fmucnd 24517. (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 5668	. . 3 ⊢ ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ran ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴))
2		simpr 490	. . . . 5 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → 𝐴 ⊆ 𝑋)
3		resmpo 7533	. . . . 5 ⊢ ((𝐴 ⊆ 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴)) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
4	2, 3	sylancom 600	. . . 4 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴)) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
5	4	rneqd 5922	. . 3 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ran ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↾ (𝐴 × 𝐴)) = ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
6	1, 5	eqtrid 2807	. 2 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩))
7		vex 3454	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
8		vex 3454	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
9	7, 8	op1std 7996	. . . . . . . . . . . 12 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (1st ‘𝑝) = 𝑥)
10	9	fveq2d 6882	. . . . . . . . . . 11 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝐹‘(1st ‘𝑝)) = (𝐹‘𝑥))
11	7, 8	op2ndd 7997	. . . . . . . . . . . 12 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (2nd ‘𝑝) = 𝑦)
12	11	fveq2d 6882	. . . . . . . . . . 11 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝐹‘(2nd ‘𝑝)) = (𝐹‘𝑦))
13	10, 12	opeq12d 4841	. . . . . . . . . 10 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
14	13	mpompt 7527	. . . . . . . . 9 ⊢ (𝑝 ∈ (𝐴 × 𝐴) ↦ ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
15	14	eqcomi 2769	. . . . . . . 8 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = (𝑝 ∈ (𝐴 × 𝐴) ↦ ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩)
16	15	rneqi 5921	. . . . . . 7 ⊢ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = ran (𝑝 ∈ (𝐴 × 𝐴) ↦ ⟨(𝐹‘(1st ‘𝑝)), (𝐹‘(2nd ‘𝑝))⟩)
17		fvexd 6893	. . . . . . 7 ⊢ ((⊤ ∧ 𝑝 ∈ (𝐴 × 𝐴)) → (𝐹‘(1st ‘𝑝)) ∈ V)
18		fvexd 6893	. . . . . . 7 ⊢ ((⊤ ∧ 𝑝 ∈ (𝐴 × 𝐴)) → (𝐹‘(2nd ‘𝑝)) ∈ V)
19	16, 17, 18	fliftrel 7309	. . . . . 6 ⊢ (⊤ → ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ⊆ (V × V))
20	19	mptru 1577	. . . . 5 ⊢ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ⊆ (V × V)
21	20	sseli 3927	. . . 4 ⊢ (𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) → 𝑝 ∈ (V × V))
22	21	adantl 487	. . 3 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)) → 𝑝 ∈ (V × V))
23		xpss 5671	. . . . 5 ⊢ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) ⊆ (V × V)
24	23	sseli 3927	. . . 4 ⊢ (𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) → 𝑝 ∈ (V × V))
25	24	adantl 487	. . 3 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))) → 𝑝 ∈ (V × V))
26		eqid 2760	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
27		opex 5439	. . . . . . . . 9 ⊢ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ∈ V
28	26, 27	elrnmpo 7549	. . . . . . . 8 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)
29		eqcom 2767	. . . . . . . . . 10 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ↔ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
30		fvex 6891	. . . . . . . . . . 11 ⊢ (1st ‘𝑝) ∈ V
31		fvex 6891	. . . . . . . . . . 11 ⊢ (2nd ‘𝑝) ∈ V
32	30, 31	opth2 5456	. . . . . . . . . 10 ⊢ (⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ↔ ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)))
33	29, 32	bitri 278	. . . . . . . . 9 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ↔ ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)))
34	33	2rexbii 3138	. . . . . . . 8 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ ↔ ∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)))
35		reeanv 3234	. . . . . . . 8 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (1st ‘𝑝) ∧ (𝐹‘𝑦) = (2nd ‘𝑝)) ↔ (∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝) ∧ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝)))
36	28, 34, 35	3bitri 300	. . . . . . 7 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ (∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝) ∧ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝)))
37		fvelimab 6950	. . . . . . . 8 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ↔ ∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝)))
38		fvelimab 6950	. . . . . . . 8 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((2nd ‘𝑝) ∈ (𝐹 “ 𝐴) ↔ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝)))
39	37, 38	anbi12d 644	. . . . . . 7 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → (((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ∧ (2nd ‘𝑝) ∈ (𝐹 “ 𝐴)) ↔ (∃𝑥 ∈ 𝐴 (𝐹‘𝑥) = (1st ‘𝑝) ∧ ∃𝑦 ∈ 𝐴 (𝐹‘𝑦) = (2nd ‘𝑝))))
40	36, 39	bitr4id 293	. . . . . 6 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ∧ (2nd ‘𝑝) ∈ (𝐹 “ 𝐴))))
41		opelxp 5691	. . . . . 6 ⊢ (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) ↔ ((1st ‘𝑝) ∈ (𝐹 “ 𝐴) ∧ (2nd ‘𝑝) ∈ (𝐹 “ 𝐴)))
42	40, 41	bitr4di 292	. . . . 5 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
43	42	adantr 486	. . . 4 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
44		1st2nd2 8025	. . . . . 6 ⊢ (𝑝 ∈ (V × V) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
45	44	adantl 487	. . . . 5 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
46	45	eleq1d 2845	. . . 4 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩)))
47	45	eleq1d 2845	. . . 4 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)) ↔ ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
48	43, 46, 47	3bitr4d 314	. . 3 ⊢ (((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) ∧ 𝑝 ∈ (V × V)) → (𝑝 ∈ ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) ↔ 𝑝 ∈ ((𝐹 “ 𝐴) × (𝐹 “ 𝐴))))
49	22, 25, 48	eqrdav 2759	. 2 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ran (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐴 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) = ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)))
50	6, 49	eqtrd 2795	1 ⊢ ((𝐹 Fn 𝑋 ∧ 𝐴 ⊆ 𝑋) → ((𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩) “ (𝐴 × 𝐴)) = ((𝐹 “ 𝐴) × (𝐹 “ 𝐴)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570  ⊤wtru 1571   ∈ wcel 2145  ∃wrex 3086  Vcvv 3450   ⊆ wss 3899  ⟨cop 4590   ↦ cmpt 5186   × cxp 5653  ran crn 5656   ↾ cres 5657   “ cima 5658   Fn wfn 6528  ‘cfv 6533   ∈ cmpo 7415  1^st c1st 7984  2^nd c2nd 7985

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-sep 5251  ax-nul 5263  ax-pr 5398  ax-un 7736

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-fv 6541  df-oprab 7417  df-mpo 7418  df-1st 7986  df-2nd 7987

This theorem is used by:  fmucnd  24517