Theorem php3 9200

Description: Corollary of Pigeonhole Principle. If 𝐴 is finite and 𝐵 is a proper subset of 𝐴, the 𝐵 is strictly less numerous than 𝐴. Stronger version of Corollary 6C of [Enderton] p. 135. (Contributed by NM, 22-Aug-2008.) Avoid ax-pow 5338. (Revised by BTernaryTau, 26-Nov-2024.)

Assertion

Ref	Expression
php3	⊢ ((𝐴 ∈ Fin ∧ 𝐵 ⊊ 𝐴) → 𝐵 ≺ 𝐴)

Proof of Theorem php3

Dummy variables 𝑓 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		isfi 8978	. . 3 ⊢ (𝐴 ∈ Fin ↔ ∃𝑥 ∈ ω 𝐴 ≈ 𝑥)
2		bren 8959	. . . . . 6 ⊢ (𝐴 ≈ 𝑥 ↔ ∃𝑓 𝑓:𝐴–1-1-onto→𝑥)
3		pssss 4053	. . . . . . . . . . . . . 14 ⊢ (𝐵 ⊊ 𝐴 → 𝐵 ⊆ 𝐴)
4		imass2 6106	. . . . . . . . . . . . . 14 ⊢ (𝐵 ⊆ 𝐴 → (𝑓 “ 𝐵) ⊆ (𝑓 “ 𝐴))
5	3, 4	syl 18	. . . . . . . . . . . . 13 ⊢ (𝐵 ⊊ 𝐴 → (𝑓 “ 𝐵) ⊆ (𝑓 “ 𝐴))
6	5	adantl 487	. . . . . . . . . . . 12 ⊢ ((𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴) → (𝑓 “ 𝐵) ⊆ (𝑓 “ 𝐴))
7		pssnel 4431	. . . . . . . . . . . . . 14 ⊢ (𝐵 ⊊ 𝐴 → ∃𝑦(𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ 𝐵))
8		eldif 3916	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ (𝐴 ∖ 𝐵) ↔ (𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ 𝐵))
9		f1ofn 6825	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → 𝑓 Fn 𝐴)
10		difss 4090	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∖ 𝐵) ⊆ 𝐴
11		fnfvima 7238	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑓 Fn 𝐴 ∧ (𝐴 ∖ 𝐵) ⊆ 𝐴 ∧ 𝑦 ∈ (𝐴 ∖ 𝐵)) → (𝑓‘𝑦) ∈ (𝑓 “ (𝐴 ∖ 𝐵)))
12	11	3expia 1139	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑓 Fn 𝐴 ∧ (𝐴 ∖ 𝐵) ⊆ 𝐴) → (𝑦 ∈ (𝐴 ∖ 𝐵) → (𝑓‘𝑦) ∈ (𝑓 “ (𝐴 ∖ 𝐵))))
13	9, 10, 12	sylancl 598	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → (𝑦 ∈ (𝐴 ∖ 𝐵) → (𝑓‘𝑦) ∈ (𝑓 “ (𝐴 ∖ 𝐵))))
14		dff1o3 6831	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑓:𝐴–1-1-onto→𝑥 ↔ (𝑓:𝐴–onto→𝑥 ∧ Fun ◡𝑓))
15		imadif 6624	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (Fun ◡𝑓 → (𝑓 “ (𝐴 ∖ 𝐵)) = ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)))
16	14, 15	simplbiim 514	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → (𝑓 “ (𝐴 ∖ 𝐵)) = ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)))
17	16	eleq2d 2851	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → ((𝑓‘𝑦) ∈ (𝑓 “ (𝐴 ∖ 𝐵)) ↔ (𝑓‘𝑦) ∈ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵))))
18	13, 17	sylibd 242	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → (𝑦 ∈ (𝐴 ∖ 𝐵) → (𝑓‘𝑦) ∈ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵))))
19		n0i 4293	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑓‘𝑦) ∈ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)) → ¬ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)) = ∅)
20	18, 19	syl6 36	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → (𝑦 ∈ (𝐴 ∖ 𝐵) → ¬ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)) = ∅))
21	8, 20	biimtrrid 246	. . . . . . . . . . . . . . . 16 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → ((𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ 𝐵) → ¬ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)) = ∅))
22	21	exlimdv 1966	. . . . . . . . . . . . . . 15 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → (∃𝑦(𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ 𝐵) → ¬ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)) = ∅))
23	22	imp 412	. . . . . . . . . . . . . 14 ⊢ ((𝑓:𝐴–1-1-onto→𝑥 ∧ ∃𝑦(𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ 𝐵)) → ¬ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)) = ∅)
24	7, 23	sylan2 605	. . . . . . . . . . . . 13 ⊢ ((𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴) → ¬ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)) = ∅)
25		ssdif0 4321	. . . . . . . . . . . . 13 ⊢ ((𝑓 “ 𝐴) ⊆ (𝑓 “ 𝐵) ↔ ((𝑓 “ 𝐴) ∖ (𝑓 “ 𝐵)) = ∅)
26	24, 25	sylnibr 332	. . . . . . . . . . . 12 ⊢ ((𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴) → ¬ (𝑓 “ 𝐴) ⊆ (𝑓 “ 𝐵))
27		dfpss3 4044	. . . . . . . . . . . 12 ⊢ ((𝑓 “ 𝐵) ⊊ (𝑓 “ 𝐴) ↔ ((𝑓 “ 𝐵) ⊆ (𝑓 “ 𝐴) ∧ ¬ (𝑓 “ 𝐴) ⊆ (𝑓 “ 𝐵)))
28	6, 26, 27	sylanbrc 595	. . . . . . . . . . 11 ⊢ ((𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴) → (𝑓 “ 𝐵) ⊊ (𝑓 “ 𝐴))
29		imadmrn 6074	. . . . . . . . . . . . . 14 ⊢ (𝑓 “ dom 𝑓) = ran 𝑓
30		f1odm 6828	. . . . . . . . . . . . . . 15 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → dom 𝑓 = 𝐴)
31	30	imaeq2d 6064	. . . . . . . . . . . . . 14 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → (𝑓 “ dom 𝑓) = (𝑓 “ 𝐴))
32		f1ofo 6832	. . . . . . . . . . . . . . 15 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → 𝑓:𝐴–onto→𝑥)
33		forn 6799	. . . . . . . . . . . . . . 15 ⊢ (𝑓:𝐴–onto→𝑥 → ran 𝑓 = 𝑥)
34	32, 33	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → ran 𝑓 = 𝑥)
35	29, 31, 34	3eqtr3a 2824	. . . . . . . . . . . . 13 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → (𝑓 “ 𝐴) = 𝑥)
36	35	psseq2d 4051	. . . . . . . . . . . 12 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → ((𝑓 “ 𝐵) ⊊ (𝑓 “ 𝐴) ↔ (𝑓 “ 𝐵) ⊊ 𝑥))
37	36	adantr 486	. . . . . . . . . . 11 ⊢ ((𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴) → ((𝑓 “ 𝐵) ⊊ (𝑓 “ 𝐴) ↔ (𝑓 “ 𝐵) ⊊ 𝑥))
38	28, 37	mpbid 235	. . . . . . . . . 10 ⊢ ((𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴) → (𝑓 “ 𝐵) ⊊ 𝑥)
39		php2 9199	. . . . . . . . . 10 ⊢ ((𝑥 ∈ ω ∧ (𝑓 “ 𝐵) ⊊ 𝑥) → (𝑓 “ 𝐵) ≺ 𝑥)
40	38, 39	sylan2 605	. . . . . . . . 9 ⊢ ((𝑥 ∈ ω ∧ (𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴)) → (𝑓 “ 𝐵) ≺ 𝑥)
41		nnfi 9159	. . . . . . . . . 10 ⊢ (𝑥 ∈ ω → 𝑥 ∈ Fin)
42		f1of1 6823	. . . . . . . . . . . 12 ⊢ (𝑓:𝐴–1-1-onto→𝑥 → 𝑓:𝐴–1-1→𝑥)
43		f1ores 6839	. . . . . . . . . . . 12 ⊢ ((𝑓:𝐴–1-1→𝑥 ∧ 𝐵 ⊆ 𝐴) → (𝑓 ↾ 𝐵):𝐵–1-1-onto→(𝑓 “ 𝐵))
44	42, 3, 43	syl2an 608	. . . . . . . . . . 11 ⊢ ((𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴) → (𝑓 ↾ 𝐵):𝐵–1-1-onto→(𝑓 “ 𝐵))
45		vex 3461	. . . . . . . . . . . . . 14 ⊢ 𝑓 ∈ V
46	45	resex 6030	. . . . . . . . . . . . 13 ⊢ (𝑓 ↾ 𝐵) ∈ V
47		f1oeq1 6812	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑓 ↾ 𝐵) → (𝑦:𝐵–1-1-onto→(𝑓 “ 𝐵) ↔ (𝑓 ↾ 𝐵):𝐵–1-1-onto→(𝑓 “ 𝐵)))
48	46, 47	spcev 3567	. . . . . . . . . . . 12 ⊢ ((𝑓 ↾ 𝐵):𝐵–1-1-onto→(𝑓 “ 𝐵) → ∃𝑦 𝑦:𝐵–1-1-onto→(𝑓 “ 𝐵))
49		bren 8959	. . . . . . . . . . . 12 ⊢ (𝐵 ≈ (𝑓 “ 𝐵) ↔ ∃𝑦 𝑦:𝐵–1-1-onto→(𝑓 “ 𝐵))
50	48, 49	sylibr 237	. . . . . . . . . . 11 ⊢ ((𝑓 ↾ 𝐵):𝐵–1-1-onto→(𝑓 “ 𝐵) → 𝐵 ≈ (𝑓 “ 𝐵))
51	44, 50	syl 18	. . . . . . . . . 10 ⊢ ((𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴) → 𝐵 ≈ (𝑓 “ 𝐵))
52		endom 8982	. . . . . . . . . . . 12 ⊢ (𝐵 ≈ (𝑓 “ 𝐵) → 𝐵 ≼ (𝑓 “ 𝐵))
53		sdomdom 8983	. . . . . . . . . . . . . . 15 ⊢ ((𝑓 “ 𝐵) ≺ 𝑥 → (𝑓 “ 𝐵) ≼ 𝑥)
54		domfi 9180	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ Fin ∧ (𝑓 “ 𝐵) ≼ 𝑥) → (𝑓 “ 𝐵) ∈ Fin)
55	53, 54	sylan2 605	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ Fin ∧ (𝑓 “ 𝐵) ≺ 𝑥) → (𝑓 “ 𝐵) ∈ Fin)
56	55	3adant2 1149	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≼ (𝑓 “ 𝐵) ∧ (𝑓 “ 𝐵) ≺ 𝑥) → (𝑓 “ 𝐵) ∈ Fin)
57		domfi 9180	. . . . . . . . . . . . . . 15 ⊢ (((𝑓 “ 𝐵) ∈ Fin ∧ 𝐵 ≼ (𝑓 “ 𝐵)) → 𝐵 ∈ Fin)
58	57	3adant3 1150	. . . . . . . . . . . . . 14 ⊢ (((𝑓 “ 𝐵) ∈ Fin ∧ 𝐵 ≼ (𝑓 “ 𝐵) ∧ (𝑓 “ 𝐵) ≺ 𝑥) → 𝐵 ∈ Fin)
59		domsdomtrfi 9193	. . . . . . . . . . . . . 14 ⊢ ((𝐵 ∈ Fin ∧ 𝐵 ≼ (𝑓 “ 𝐵) ∧ (𝑓 “ 𝐵) ≺ 𝑥) → 𝐵 ≺ 𝑥)
60	58, 59	syld3an1 1437	. . . . . . . . . . . . 13 ⊢ (((𝑓 “ 𝐵) ∈ Fin ∧ 𝐵 ≼ (𝑓 “ 𝐵) ∧ (𝑓 “ 𝐵) ≺ 𝑥) → 𝐵 ≺ 𝑥)
61	56, 60	syld3an1 1437	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≼ (𝑓 “ 𝐵) ∧ (𝑓 “ 𝐵) ≺ 𝑥) → 𝐵 ≺ 𝑥)
62	52, 61	syl3an2 1182	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≈ (𝑓 “ 𝐵) ∧ (𝑓 “ 𝐵) ≺ 𝑥) → 𝐵 ≺ 𝑥)
63	62	3expia 1139	. . . . . . . . . 10 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≈ (𝑓 “ 𝐵)) → ((𝑓 “ 𝐵) ≺ 𝑥 → 𝐵 ≺ 𝑥))
64	41, 51, 63	syl2an 608	. . . . . . . . 9 ⊢ ((𝑥 ∈ ω ∧ (𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴)) → ((𝑓 “ 𝐵) ≺ 𝑥 → 𝐵 ≺ 𝑥))
65	40, 64	mpd 16	. . . . . . . 8 ⊢ ((𝑥 ∈ ω ∧ (𝑓:𝐴–1-1-onto→𝑥 ∧ 𝐵 ⊊ 𝐴)) → 𝐵 ≺ 𝑥)
66	65	exp32 426	. . . . . . 7 ⊢ (𝑥 ∈ ω → (𝑓:𝐴–1-1-onto→𝑥 → (𝐵 ⊊ 𝐴 → 𝐵 ≺ 𝑥)))
67	66	exlimdv 1966	. . . . . 6 ⊢ (𝑥 ∈ ω → (∃𝑓 𝑓:𝐴–1-1-onto→𝑥 → (𝐵 ⊊ 𝐴 → 𝐵 ≺ 𝑥)))
68	2, 67	biimtrid 245	. . . . 5 ⊢ (𝑥 ∈ ω → (𝐴 ≈ 𝑥 → (𝐵 ⊊ 𝐴 → 𝐵 ≺ 𝑥)))
69		ensymfib 9175	. . . . . . . . . . 11 ⊢ (𝑥 ∈ Fin → (𝑥 ≈ 𝐴 ↔ 𝐴 ≈ 𝑥))
70	69	adantr 486	. . . . . . . . . 10 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≺ 𝑥) → (𝑥 ≈ 𝐴 ↔ 𝐴 ≈ 𝑥))
71	70	biimp3ar 1499	. . . . . . . . 9 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≺ 𝑥 ∧ 𝐴 ≈ 𝑥) → 𝑥 ≈ 𝐴)
72		endom 8982	. . . . . . . . . 10 ⊢ (𝑥 ≈ 𝐴 → 𝑥 ≼ 𝐴)
73		sdomdom 8983	. . . . . . . . . . . . 13 ⊢ (𝐵 ≺ 𝑥 → 𝐵 ≼ 𝑥)
74		domfi 9180	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≼ 𝑥) → 𝐵 ∈ Fin)
75	73, 74	sylan2 605	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≺ 𝑥) → 𝐵 ∈ Fin)
76	75	3adant3 1150	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≺ 𝑥 ∧ 𝑥 ≼ 𝐴) → 𝐵 ∈ Fin)
77		sdomdomtrfi 9192	. . . . . . . . . . 11 ⊢ ((𝐵 ∈ Fin ∧ 𝐵 ≺ 𝑥 ∧ 𝑥 ≼ 𝐴) → 𝐵 ≺ 𝐴)
78	76, 77	syld3an1 1437	. . . . . . . . . 10 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≺ 𝑥 ∧ 𝑥 ≼ 𝐴) → 𝐵 ≺ 𝐴)
79	72, 78	syl3an3 1183	. . . . . . . . 9 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≺ 𝑥 ∧ 𝑥 ≈ 𝐴) → 𝐵 ≺ 𝐴)
80	71, 79	syld3an3 1436	. . . . . . . 8 ⊢ ((𝑥 ∈ Fin ∧ 𝐵 ≺ 𝑥 ∧ 𝐴 ≈ 𝑥) → 𝐵 ≺ 𝐴)
81	41, 80	syl3an1 1181	. . . . . . 7 ⊢ ((𝑥 ∈ ω ∧ 𝐵 ≺ 𝑥 ∧ 𝐴 ≈ 𝑥) → 𝐵 ≺ 𝐴)
82	81	3com23 1144	. . . . . 6 ⊢ ((𝑥 ∈ ω ∧ 𝐴 ≈ 𝑥 ∧ 𝐵 ≺ 𝑥) → 𝐵 ≺ 𝐴)
83	82	3exp 1137	. . . . 5 ⊢ (𝑥 ∈ ω → (𝐴 ≈ 𝑥 → (𝐵 ≺ 𝑥 → 𝐵 ≺ 𝐴)))
84	68, 83	syldd 73	. . . 4 ⊢ (𝑥 ∈ ω → (𝐴 ≈ 𝑥 → (𝐵 ⊊ 𝐴 → 𝐵 ≺ 𝐴)))
85	84	rexlimiv 3161	. . 3 ⊢ (∃𝑥 ∈ ω 𝐴 ≈ 𝑥 → (𝐵 ⊊ 𝐴 → 𝐵 ≺ 𝐴))
86	1, 85	sylbi 220	. 2 ⊢ (𝐴 ∈ Fin → (𝐵 ⊊ 𝐴 → 𝐵 ≺ 𝐴))
87	86	imp 412	1 ⊢ ((𝐴 ∈ Fin ∧ 𝐵 ⊊ 𝐴) → 𝐵 ≺ 𝐴)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570  ∃wex 1812   ∈ wcel 2146  ∃wrex 3091   ∖ cdif 3903   ⊆ wss 3906   ⊊ wpss 3907  ∅c0 4286   class class class wbr 5111  ^◡ccnv 5662  dom cdm 5663  ran crn 5664   ↾ cres 5665   “ cima 5666  Fun wfun 6534   Fn wfn 6535  –1-1→wf1 6537  –onto→wfo 6538  –1-1-onto→wf1o 6539  ‘cfv 6540  ωcom 7868   ≈ cen 8946   ≼ cdom 8947   ≺ csdm 8948  Fincfn 8949

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 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-sep 5259  ax-nul 5271  ax-pr 5406  ax-un 7742

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3082  df-rex 3092  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-om 7869  df-1o 8459  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953

This theorem is used by:  phpeqd  9203  onomeneq  9205  pssinf  9229  f1finf1o  9240  findcard3  9250  fofinf1o  9296  ackbij1b  10237  fincssdom  10322  fin23lem25  10323  canthp1lem2  10655  pwfseqlem4  10664  uzindi  14038  symggen  19586  pgpssslw  19730  pgpfaclem2  20200  ppiltx  27394  finminlem  36888  lindsenlbs  38325