xpfi - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > xpfi		GIF version

Theorem xpfi 7205

Description: The Cartesian product of two finite sets is finite. Lemma 8.1.16 of [AczelRathjen], p. 74. (Contributed by Jeff Madsen, 2-Sep-2009.) (Revised by Mario Carneiro, 12-Mar-2015.)

**Assertion**
Ref	Expression
xpfi	⊢ ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → (𝐴 × 𝐵) ∈ Fin)

Proof of Theorem xpfi Dummy variables 𝑤 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		xpeq1 4768	. . . . 5 ⊢ (𝑥 = ∅ → (𝑥 × 𝐵) = (∅ × 𝐵))
2	1	eleq1d 2303	. . . 4 ⊢ (𝑥 = ∅ → ((𝑥 × 𝐵) ∈ Fin ↔ (∅ × 𝐵) ∈ Fin))
3	2	imbi2d 230	. . 3 ⊢ (𝑥 = ∅ → ((𝐵 ∈ Fin → (𝑥 × 𝐵) ∈ Fin) ↔ (𝐵 ∈ Fin → (∅ × 𝐵) ∈ Fin)))
4		xpeq1 4768	. . . . 5 ⊢ (𝑥 = (𝑦 ∖ {𝑧}) → (𝑥 × 𝐵) = ((𝑦 ∖ {𝑧}) × 𝐵))
5	4	eleq1d 2303	. . . 4 ⊢ (𝑥 = (𝑦 ∖ {𝑧}) → ((𝑥 × 𝐵) ∈ Fin ↔ ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin))
6	5	imbi2d 230	. . 3 ⊢ (𝑥 = (𝑦 ∖ {𝑧}) → ((𝐵 ∈ Fin → (𝑥 × 𝐵) ∈ Fin) ↔ (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin)))
7		xpeq1 4768	. . . . 5 ⊢ (𝑥 = 𝑦 → (𝑥 × 𝐵) = (𝑦 × 𝐵))
8	7	eleq1d 2303	. . . 4 ⊢ (𝑥 = 𝑦 → ((𝑥 × 𝐵) ∈ Fin ↔ (𝑦 × 𝐵) ∈ Fin))
9	8	imbi2d 230	. . 3 ⊢ (𝑥 = 𝑦 → ((𝐵 ∈ Fin → (𝑥 × 𝐵) ∈ Fin) ↔ (𝐵 ∈ Fin → (𝑦 × 𝐵) ∈ Fin)))
10		xpeq1 4768	. . . . 5 ⊢ (𝑥 = 𝐴 → (𝑥 × 𝐵) = (𝐴 × 𝐵))
11	10	eleq1d 2303	. . . 4 ⊢ (𝑥 = 𝐴 → ((𝑥 × 𝐵) ∈ Fin ↔ (𝐴 × 𝐵) ∈ Fin))
12	11	imbi2d 230	. . 3 ⊢ (𝑥 = 𝐴 → ((𝐵 ∈ Fin → (𝑥 × 𝐵) ∈ Fin) ↔ (𝐵 ∈ Fin → (𝐴 × 𝐵) ∈ Fin)))
13		0xp 4835	. . . . 5 ⊢ (∅ × 𝐵) = ∅
14		0fi 7154	. . . . 5 ⊢ ∅ ∈ Fin
15	13, 14	eqeltri 2307	. . . 4 ⊢ (∅ × 𝐵) ∈ Fin
16	15	a1i 9	. . 3 ⊢ (𝐵 ∈ Fin → (∅ × 𝐵) ∈ Fin)
17		xpeq1 4768	. . . . . . . 8 ⊢ (𝑦 = ∅ → (𝑦 × 𝐵) = (∅ × 𝐵))
18	17, 15	eqeltrdi 2325	. . . . . . 7 ⊢ (𝑦 = ∅ → (𝑦 × 𝐵) ∈ Fin)
19	18	a1i13 24	. . . . . 6 ⊢ ((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) → (𝑦 = ∅ → (∀𝑧 ∈ 𝑦 (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) → (𝑦 × 𝐵) ∈ Fin)))
20		sneq 3705	. . . . . . . . . . . . . . 15 ⊢ (𝑧 = 𝑤 → {𝑧} = {𝑤})
21	20	difeq2d 3341	. . . . . . . . . . . . . 14 ⊢ (𝑧 = 𝑤 → (𝑦 ∖ {𝑧}) = (𝑦 ∖ {𝑤}))
22	21	xpeq1d 4777	. . . . . . . . . . . . 13 ⊢ (𝑧 = 𝑤 → ((𝑦 ∖ {𝑧}) × 𝐵) = ((𝑦 ∖ {𝑤}) × 𝐵))
23	22	eleq1d 2303	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑤 → (((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin ↔ ((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin))
24	23	imbi2d 230	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑤 → ((𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) ↔ (𝐵 ∈ Fin → ((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin)))
25	24	rspcv 2919	. . . . . . . . . 10 ⊢ (𝑤 ∈ 𝑦 → (∀𝑧 ∈ 𝑦 (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) → (𝐵 ∈ Fin → ((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin)))
26	25	adantl 277	. . . . . . . . 9 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → (∀𝑧 ∈ 𝑦 (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) → (𝐵 ∈ Fin → ((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin)))
27		pm2.27 40	. . . . . . . . . 10 ⊢ (𝐵 ∈ Fin → ((𝐵 ∈ Fin → ((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin) → ((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin))
28	27	ad2antlr 489	. . . . . . . . 9 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → ((𝐵 ∈ Fin → ((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin) → ((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin))
29		vex 2818	. . . . . . . . . . . . . . 15 ⊢ 𝑤 ∈ V
30	29	snex 4303	. . . . . . . . . . . . . 14 ⊢ {𝑤} ∈ V
31		xpexg 4869	. . . . . . . . . . . . . 14 ⊢ (({𝑤} ∈ V ∧ 𝐵 ∈ Fin) → ({𝑤} × 𝐵) ∈ V)
32	30, 31	mpan 424	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ Fin → ({𝑤} × 𝐵) ∈ V)
33		id 19	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ Fin → 𝐵 ∈ Fin)
34		2ndconst 6431	. . . . . . . . . . . . . 14 ⊢ (𝑤 ∈ V → (2^nd ↾ ({𝑤} × 𝐵)):({𝑤} × 𝐵)–1-1-onto→𝐵)
35	29, 34	mp1i 10	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ Fin → (2^nd ↾ ({𝑤} × 𝐵)):({𝑤} × 𝐵)–1-1-onto→𝐵)
36		f1oen2g 7007	. . . . . . . . . . . . 13 ⊢ ((({𝑤} × 𝐵) ∈ V ∧ 𝐵 ∈ Fin ∧ (2^nd ↾ ({𝑤} × 𝐵)):({𝑤} × 𝐵)–1-1-onto→𝐵) → ({𝑤} × 𝐵) ≈ 𝐵)
37	32, 33, 35, 36	syl3anc 1274	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ Fin → ({𝑤} × 𝐵) ≈ 𝐵)
38		enfii 7142	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ Fin ∧ ({𝑤} × 𝐵) ≈ 𝐵) → ({𝑤} × 𝐵) ∈ Fin)
39	37, 38	mpdan 421	. . . . . . . . . . 11 ⊢ (𝐵 ∈ Fin → ({𝑤} × 𝐵) ∈ Fin)
40	39	ad2antlr 489	. . . . . . . . . 10 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → ({𝑤} × 𝐵) ∈ Fin)
41		incom 3415	. . . . . . . . . . . . . 14 ⊢ ({𝑤} ∩ (𝑦 ∖ {𝑤})) = ((𝑦 ∖ {𝑤}) ∩ {𝑤})
42		disjdif 3585	. . . . . . . . . . . . . 14 ⊢ ({𝑤} ∩ (𝑦 ∖ {𝑤})) = ∅
43	41, 42	eqtr3i 2257	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∖ {𝑤}) ∩ {𝑤}) = ∅
44		xpdisj1 5192	. . . . . . . . . . . . 13 ⊢ (((𝑦 ∖ {𝑤}) ∩ {𝑤}) = ∅ → (((𝑦 ∖ {𝑤}) × 𝐵) ∩ ({𝑤} × 𝐵)) = ∅)
45	43, 44	ax-mp 5	. . . . . . . . . . . 12 ⊢ (((𝑦 ∖ {𝑤}) × 𝐵) ∩ ({𝑤} × 𝐵)) = ∅
46		unfidisj 7195	. . . . . . . . . . . 12 ⊢ ((((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin ∧ ({𝑤} × 𝐵) ∈ Fin ∧ (((𝑦 ∖ {𝑤}) × 𝐵) ∩ ({𝑤} × 𝐵)) = ∅) → (((𝑦 ∖ {𝑤}) × 𝐵) ∪ ({𝑤} × 𝐵)) ∈ Fin)
47	45, 46	mp3an3 1363	. . . . . . . . . . 11 ⊢ ((((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin ∧ ({𝑤} × 𝐵) ∈ Fin) → (((𝑦 ∖ {𝑤}) × 𝐵) ∪ ({𝑤} × 𝐵)) ∈ Fin)
48		xpundir 4812	. . . . . . . . . . . . 13 ⊢ (((𝑦 ∖ {𝑤}) ∪ {𝑤}) × 𝐵) = (((𝑦 ∖ {𝑤}) × 𝐵) ∪ ({𝑤} × 𝐵))
49		fidifsnid 7139	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ Fin ∧ 𝑤 ∈ 𝑦) → ((𝑦 ∖ {𝑤}) ∪ {𝑤}) = 𝑦)
50	49	adantlr 477	. . . . . . . . . . . . . 14 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → ((𝑦 ∖ {𝑤}) ∪ {𝑤}) = 𝑦)
51	50	xpeq1d 4777	. . . . . . . . . . . . 13 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → (((𝑦 ∖ {𝑤}) ∪ {𝑤}) × 𝐵) = (𝑦 × 𝐵))
52	48, 51	eqtr3id 2281	. . . . . . . . . . . 12 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → (((𝑦 ∖ {𝑤}) × 𝐵) ∪ ({𝑤} × 𝐵)) = (𝑦 × 𝐵))
53	52	eleq1d 2303	. . . . . . . . . . 11 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → ((((𝑦 ∖ {𝑤}) × 𝐵) ∪ ({𝑤} × 𝐵)) ∈ Fin ↔ (𝑦 × 𝐵) ∈ Fin))
54	47, 53	imbitrid 154	. . . . . . . . . 10 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → ((((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin ∧ ({𝑤} × 𝐵) ∈ Fin) → (𝑦 × 𝐵) ∈ Fin))
55	40, 54	mpan2d 428	. . . . . . . . 9 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → (((𝑦 ∖ {𝑤}) × 𝐵) ∈ Fin → (𝑦 × 𝐵) ∈ Fin))
56	26, 28, 55	3syld 57	. . . . . . . 8 ⊢ (((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ 𝑤 ∈ 𝑦) → (∀𝑧 ∈ 𝑦 (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) → (𝑦 × 𝐵) ∈ Fin))
57	56	ex 115	. . . . . . 7 ⊢ ((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) → (𝑤 ∈ 𝑦 → (∀𝑧 ∈ 𝑦 (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) → (𝑦 × 𝐵) ∈ Fin)))
58	57	exlimdv 1868	. . . . . 6 ⊢ ((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) → (∃𝑤 𝑤 ∈ 𝑦 → (∀𝑧 ∈ 𝑦 (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) → (𝑦 × 𝐵) ∈ Fin)))
59		fin0or 7156	. . . . . . 7 ⊢ (𝑦 ∈ Fin → (𝑦 = ∅ ∨ ∃𝑤 𝑤 ∈ 𝑦))
60	59	adantr 276	. . . . . 6 ⊢ ((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) → (𝑦 = ∅ ∨ ∃𝑤 𝑤 ∈ 𝑦))
61	19, 58, 60	mpjaod 726	. . . . 5 ⊢ ((𝑦 ∈ Fin ∧ 𝐵 ∈ Fin) → (∀𝑧 ∈ 𝑦 (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) → (𝑦 × 𝐵) ∈ Fin))
62	61	ex 115	. . . 4 ⊢ (𝑦 ∈ Fin → (𝐵 ∈ Fin → (∀𝑧 ∈ 𝑦 (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) → (𝑦 × 𝐵) ∈ Fin)))
63	62	com23 78	. . 3 ⊢ (𝑦 ∈ Fin → (∀𝑧 ∈ 𝑦 (𝐵 ∈ Fin → ((𝑦 ∖ {𝑧}) × 𝐵) ∈ Fin) → (𝐵 ∈ Fin → (𝑦 × 𝐵) ∈ Fin)))
64	3, 6, 9, 12, 16, 63	findcard 7158	. 2 ⊢ (𝐴 ∈ Fin → (𝐵 ∈ Fin → (𝐴 × 𝐵) ∈ Fin))
65	64	imp 124	1 ⊢ ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → (𝐴 × 𝐵) ∈ Fin)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ∨ wo 716 = wceq 1398 ∃wex 1541 ∈ wcel 2205 ∀wral 2522 Vcvv 2815 ∖ cdif 3211 ∪ cun 3212 ∩ cin 3213 ∅c0 3512 {csn 3694 class class class wbr 4114 × cxp 4752 ↾ cres 4756 –1-1-onto→wf1o 5356 2^nd c2nd 6346 ≈ cen 6986 Fincfn 6988

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 619 ax-in2 620 ax-io 717 ax-5 1496 ax-7 1497 ax-gen 1498 ax-ie1 1542 ax-ie2 1543 ax-8 1553 ax-10 1554 ax-11 1555 ax-i12 1556 ax-bndl 1558 ax-4 1559 ax-17 1575 ax-i9 1579 ax-ial 1583 ax-i5r 1584 ax-13 2207 ax-14 2208 ax-ext 2216 ax-coll 4230 ax-sep 4233 ax-nul 4241 ax-pow 4292 ax-pr 4327 ax-un 4559 ax-setind 4664 ax-iinf 4715

This theorem depends on definitions: df-bi 117 df-dc 843 df-3or 1006 df-3an 1007 df-tru 1401 df-fal 1404 df-nf 1510 df-sb 1812 df-eu 2085 df-mo 2086 df-clab 2221 df-cleq 2227 df-clel 2230 df-nfc 2375 df-ne 2415 df-ral 2527 df-rex 2528 df-reu 2529 df-rab 2531 df-v 2817 df-sbc 3046 df-csb 3142 df-dif 3216 df-un 3218 df-in 3220 df-ss 3227 df-nul 3513 df-if 3625 df-pw 3676 df-sn 3700 df-pr 3701 df-op 3703 df-uni 3920 df-int 3955 df-iun 3998 df-br 4115 df-opab 4177 df-mpt 4178 df-tr 4214 df-id 4419 df-iord 4492 df-on 4494 df-suc 4497 df-iom 4718 df-xp 4760 df-rel 4761 df-cnv 4762 df-co 4763 df-dm 4764 df-rn 4765 df-res 4766 df-ima 4767 df-iota 5317 df-fun 5359 df-fn 5360 df-f 5361 df-f1 5362 df-fo 5363 df-f1o 5364 df-fv 5365 df-1st 6347 df-2nd 6348 df-1o 6660 df-er 6780 df-en 6989 df-fin 6991

This theorem is referenced by: 3xpfi 7207 opabfi 7213 mapfi 7227 fsuppxpfi 7262 hashxp 11216 hashmap 11217 fsum2dlemstep 12145 fisumcom2 12149 fprod2dlemstep 12333 fprodcom2fi 12337 crth 12946 phimullem 12947 fsumdvdsmul 15985 lgsquadlem2 16077

W3C validator