MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ttukeylem7 Structured version   Visualization version   GIF version
Theorem ttukeylem7 10507
Description: Lemma for ttukey 10510. (Contributed by Mario Carneiro, 15-May-2015.)
Hypotheses
Ref Expression
ttukeylem.1 (πœ‘ β†’ 𝐹:(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))–1-1-ontoβ†’(βˆͺ 𝐴 βˆ– 𝐡))
ttukeylem.2 (πœ‘ β†’ 𝐡 ∈ 𝐴)
ttukeylem.3 (πœ‘ β†’ βˆ€π‘₯(π‘₯ ∈ 𝐴 ↔ (𝒫 π‘₯ ∩ Fin) βŠ† 𝐴))
ttukeylem.4 𝐺 = recs((𝑧 ∈ V ↦ if(dom 𝑧 = βˆͺ dom 𝑧, if(dom 𝑧 = βˆ…, 𝐡, βˆͺ ran 𝑧), ((π‘§β€˜βˆͺ dom 𝑧) βˆͺ if(((π‘§β€˜βˆͺ dom 𝑧) βˆͺ {(πΉβ€˜βˆͺ dom 𝑧)}) ∈ 𝐴, {(πΉβ€˜βˆͺ dom 𝑧)}, βˆ…)))))
Assertion
Ref Expression
ttukeylem7 (πœ‘ β†’ βˆƒπ‘₯ ∈ 𝐴 (𝐡 βŠ† π‘₯ ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ π‘₯ ⊊ 𝑦))
Distinct variable groups:   π‘₯,𝑦,𝑧,𝐺   πœ‘,𝑦,𝑧   π‘₯,𝐴,𝑦,𝑧   π‘₯,𝐡,𝑦,𝑧   π‘₯,𝐹,𝑧
Allowed substitution hints:   πœ‘(π‘₯)   𝐹(𝑦)
Proof of Theorem ttukeylem7
Dummy variable π‘Ž is distinct from all other variables.
StepHypRef Expression
1 fvex 6902 . . . 4 (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ V
21sucid 6444 . . 3 (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ suc (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))
3 ttukeylem.1 . . . 4 (πœ‘ β†’ 𝐹:(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))–1-1-ontoβ†’(βˆͺ 𝐴 βˆ– 𝐡))
4 ttukeylem.2 . . . 4 (πœ‘ β†’ 𝐡 ∈ 𝐴)
5 ttukeylem.3 . . . 4 (πœ‘ β†’ βˆ€π‘₯(π‘₯ ∈ 𝐴 ↔ (𝒫 π‘₯ ∩ Fin) βŠ† 𝐴))
6 ttukeylem.4 . . . 4 𝐺 = recs((𝑧 ∈ V ↦ if(dom 𝑧 = βˆͺ dom 𝑧, if(dom 𝑧 = βˆ…, 𝐡, βˆͺ ran 𝑧), ((π‘§β€˜βˆͺ dom 𝑧) βˆͺ if(((π‘§β€˜βˆͺ dom 𝑧) βˆͺ {(πΉβ€˜βˆͺ dom 𝑧)}) ∈ 𝐴, {(πΉβ€˜βˆͺ dom 𝑧)}, βˆ…)))))
73, 4, 5, 6ttukeylem6 10506 . . 3 ((πœ‘ ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ suc (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∈ 𝐴)
82, 7mpan2 690 . 2 (πœ‘ β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∈ 𝐴)
93, 4, 5, 6ttukeylem4 10504 . . 3 (πœ‘ β†’ (πΊβ€˜βˆ…) = 𝐡)
10 0elon 6416 . . . . 5 βˆ… ∈ On
11 cardon 9936 . . . . 5 (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On
12 0ss 4396 . . . . 5 βˆ… βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))
1310, 11, 123pm3.2i 1340 . . . 4 (βˆ… ∈ On ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ βˆ… βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
143, 4, 5, 6ttukeylem5 10505 . . . 4 ((πœ‘ ∧ (βˆ… ∈ On ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ βˆ… βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))) β†’ (πΊβ€˜βˆ…) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
1513, 14mpan2 690 . . 3 (πœ‘ β†’ (πΊβ€˜βˆ…) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
169, 15eqsstrrd 4021 . 2 (πœ‘ β†’ 𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
17 simprr 772 . . . . . 6 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)
18 ssun1 4172 . . . . . . . 8 𝑦 βŠ† (𝑦 βˆͺ 𝐡)
19 undif1 4475 . . . . . . . 8 ((𝑦 βˆ– 𝐡) βˆͺ 𝐡) = (𝑦 βˆͺ 𝐡)
2018, 19sseqtrri 4019 . . . . . . 7 𝑦 βŠ† ((𝑦 βˆ– 𝐡) βˆͺ 𝐡)
21 simpl 484 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ πœ‘)
22 f1ocnv 6843 . . . . . . . . . . . . . . . . 17 (𝐹:(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))–1-1-ontoβ†’(βˆͺ 𝐴 βˆ– 𝐡) β†’ ◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)–1-1-ontoβ†’(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
23 f1of 6831 . . . . . . . . . . . . . . . . 17 (◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)–1-1-ontoβ†’(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) β†’ ◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)⟢(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
243, 22, 233syl 18 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)⟢(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
2524adantr 482 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ ◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)⟢(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
26 eldifi 4126 . . . . . . . . . . . . . . . . . 18 (π‘Ž ∈ (𝑦 βˆ– 𝐡) β†’ π‘Ž ∈ 𝑦)
2726ad2antll 728 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ 𝑦)
28 simprll 778 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ 𝑦 ∈ 𝐴)
29 elunii 4913 . . . . . . . . . . . . . . . . 17 ((π‘Ž ∈ 𝑦 ∧ 𝑦 ∈ 𝐴) β†’ π‘Ž ∈ βˆͺ 𝐴)
3027, 28, 29syl2anc 585 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ βˆͺ 𝐴)
31 eldifn 4127 . . . . . . . . . . . . . . . . 17 (π‘Ž ∈ (𝑦 βˆ– 𝐡) β†’ Β¬ π‘Ž ∈ 𝐡)
3231ad2antll 728 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ Β¬ π‘Ž ∈ 𝐡)
3330, 32eldifd 3959 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ (βˆͺ 𝐴 βˆ– 𝐡))
3425, 33ffvelcdmd 7085 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
35 onelon 6387 . . . . . . . . . . . . . 14 (((cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ (β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) ∈ On)
3611, 34, 35sylancr 588 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) ∈ On)
37 onsuc 7796 . . . . . . . . . . . . 13 ((β—‘πΉβ€˜π‘Ž) ∈ On β†’ suc (β—‘πΉβ€˜π‘Ž) ∈ On)
3836, 37syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ suc (β—‘πΉβ€˜π‘Ž) ∈ On)
3911a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On)
4011onordi 6473 . . . . . . . . . . . . 13 Ord (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))
41 ordsucss 7803 . . . . . . . . . . . . 13 (Ord (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) β†’ ((β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) β†’ suc (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
4240, 34, 41mpsyl 68 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ suc (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
433, 4, 5, 6ttukeylem5 10505 . . . . . . . . . . . 12 ((πœ‘ ∧ (suc (β—‘πΉβ€˜π‘Ž) ∈ On ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ suc (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
4421, 38, 39, 42, 43syl13anc 1373 . . . . . . . . . . 11 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
45 ssun2 4173 . . . . . . . . . . . . 13 if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…) βŠ† ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))
46 eloni 6372 . . . . . . . . . . . . . . . . . 18 ((β—‘πΉβ€˜π‘Ž) ∈ On β†’ Ord (β—‘πΉβ€˜π‘Ž))
47 ordunisuc 7817 . . . . . . . . . . . . . . . . . 18 (Ord (β—‘πΉβ€˜π‘Ž) β†’ βˆͺ suc (β—‘πΉβ€˜π‘Ž) = (β—‘πΉβ€˜π‘Ž))
4836, 46, 473syl 18 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ βˆͺ suc (β—‘πΉβ€˜π‘Ž) = (β—‘πΉβ€˜π‘Ž))
4948fveq2d 6893 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) = (πΉβ€˜(β—‘πΉβ€˜π‘Ž)))
503adantr 482 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ 𝐹:(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))–1-1-ontoβ†’(βˆͺ 𝐴 βˆ– 𝐡))
51 f1ocnvfv2 7272 . . . . . . . . . . . . . . . . 17 ((𝐹:(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))–1-1-ontoβ†’(βˆͺ 𝐴 βˆ– 𝐡) ∧ π‘Ž ∈ (βˆͺ 𝐴 βˆ– 𝐡)) β†’ (πΉβ€˜(β—‘πΉβ€˜π‘Ž)) = π‘Ž)
5250, 33, 51syl2anc 585 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΉβ€˜(β—‘πΉβ€˜π‘Ž)) = π‘Ž)
5349, 52eqtr2d 2774 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž = (πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)))
54 velsn 4644 . . . . . . . . . . . . . . 15 (π‘Ž ∈ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))} ↔ π‘Ž = (πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)))
5553, 54sylibr 233 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))})
5648fveq2d 6893 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) = (πΊβ€˜(β—‘πΉβ€˜π‘Ž)))
57 ordelss 6378 . . . . . . . . . . . . . . . . . . . . 21 ((Ord (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∧ (β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
5840, 34, 57sylancr 588 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
593, 4, 5, 6ttukeylem5 10505 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ ((β—‘πΉβ€˜π‘Ž) ∈ On ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))) β†’ (πΊβ€˜(β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
6021, 36, 39, 58, 59syl13anc 1373 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜(β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
6156, 60eqsstrd 4020 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
62 simprlr 779 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)
6361, 62sstrd 3992 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βŠ† 𝑦)
6453, 27eqeltrrd 2835 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) ∈ 𝑦)
6564snssd 4812 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))} βŠ† 𝑦)
6663, 65unssd 4186 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) βŠ† 𝑦)
673, 4, 5ttukeylem2 10502 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) βŠ† 𝑦)) β†’ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴)
6821, 28, 66, 67syl12anc 836 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴)
6968iftrued 4536 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…) = {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))})
7055, 69eleqtrrd 2837 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))
7145, 70sselid 3980 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…)))
723, 4, 5, 6ttukeylem3 10503 . . . . . . . . . . . . . 14 ((πœ‘ ∧ suc (β—‘πΉβ€˜π‘Ž) ∈ On) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) = if(suc (β—‘πΉβ€˜π‘Ž) = βˆͺ suc (β—‘πΉβ€˜π‘Ž), if(suc (β—‘πΉβ€˜π‘Ž) = βˆ…, 𝐡, βˆͺ (𝐺 β€œ suc (β—‘πΉβ€˜π‘Ž))), ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))))
7338, 72syldan 592 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) = if(suc (β—‘πΉβ€˜π‘Ž) = βˆͺ suc (β—‘πΉβ€˜π‘Ž), if(suc (β—‘πΉβ€˜π‘Ž) = βˆ…, 𝐡, βˆͺ (𝐺 β€œ suc (β—‘πΉβ€˜π‘Ž))), ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))))
74 sucidg 6443 . . . . . . . . . . . . . . . . . 18 ((β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) β†’ (β—‘πΉβ€˜π‘Ž) ∈ suc (β—‘πΉβ€˜π‘Ž))
7534, 74syl 17 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) ∈ suc (β—‘πΉβ€˜π‘Ž))
76 ordirr 6380 . . . . . . . . . . . . . . . . . 18 (Ord (β—‘πΉβ€˜π‘Ž) β†’ Β¬ (β—‘πΉβ€˜π‘Ž) ∈ (β—‘πΉβ€˜π‘Ž))
7736, 46, 763syl 18 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ Β¬ (β—‘πΉβ€˜π‘Ž) ∈ (β—‘πΉβ€˜π‘Ž))
78 nelne1 3040 . . . . . . . . . . . . . . . . 17 (((β—‘πΉβ€˜π‘Ž) ∈ suc (β—‘πΉβ€˜π‘Ž) ∧ Β¬ (β—‘πΉβ€˜π‘Ž) ∈ (β—‘πΉβ€˜π‘Ž)) β†’ suc (β—‘πΉβ€˜π‘Ž) β‰  (β—‘πΉβ€˜π‘Ž))
7975, 77, 78syl2anc 585 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ suc (β—‘πΉβ€˜π‘Ž) β‰  (β—‘πΉβ€˜π‘Ž))
8079, 48neeqtrrd 3016 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ suc (β—‘πΉβ€˜π‘Ž) β‰  βˆͺ suc (β—‘πΉβ€˜π‘Ž))
8180neneqd 2946 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ Β¬ suc (β—‘πΉβ€˜π‘Ž) = βˆͺ suc (β—‘πΉβ€˜π‘Ž))
8281iffalsed 4539 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ if(suc (β—‘πΉβ€˜π‘Ž) = βˆͺ suc (β—‘πΉβ€˜π‘Ž), if(suc (β—‘πΉβ€˜π‘Ž) = βˆ…, 𝐡, βˆͺ (𝐺 β€œ suc (β—‘πΉβ€˜π‘Ž))), ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))) = ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…)))
8373, 82eqtrd 2773 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) = ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…)))
8471, 83eleqtrrd 2837 . . . . . . . . . . 11 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)))
8544, 84sseldd 3983 . . . . . . . . . 10 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
8685expr 458 . . . . . . . . 9 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ (π‘Ž ∈ (𝑦 βˆ– 𝐡) β†’ π‘Ž ∈ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))))
8786ssrdv 3988 . . . . . . . 8 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ (𝑦 βˆ– 𝐡) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
8816adantr 482 . . . . . . . 8 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ 𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
8987, 88unssd 4186 . . . . . . 7 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ ((𝑦 βˆ– 𝐡) βˆͺ 𝐡) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
9020, 89sstrid 3993 . . . . . 6 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ 𝑦 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
9117, 90eqssd 3999 . . . . 5 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) = 𝑦)
9291expr 458 . . . 4 ((πœ‘ ∧ 𝑦 ∈ 𝐴) β†’ ((πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦 β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) = 𝑦))
93 npss 4110 . . . 4 (Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦 ↔ ((πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦 β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) = 𝑦))
9492, 93sylibr 233 . . 3 ((πœ‘ ∧ 𝑦 ∈ 𝐴) β†’ Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦)
9594ralrimiva 3147 . 2 (πœ‘ β†’ βˆ€π‘¦ ∈ 𝐴 Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦)
96 sseq2 4008 . . . 4 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (𝐡 βŠ† π‘₯ ↔ 𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))))
97 psseq1 4087 . . . . . 6 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (π‘₯ ⊊ 𝑦 ↔ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦))
9897notbid 318 . . . . 5 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (Β¬ π‘₯ ⊊ 𝑦 ↔ Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦))
9998ralbidv 3178 . . . 4 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (βˆ€π‘¦ ∈ 𝐴 Β¬ π‘₯ ⊊ 𝑦 ↔ βˆ€π‘¦ ∈ 𝐴 Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦))
10096, 99anbi12d 632 . . 3 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ ((𝐡 βŠ† π‘₯ ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ π‘₯ ⊊ 𝑦) ↔ (𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦)))
101100rspcev 3613 . 2 (((πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∈ 𝐴 ∧ (𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦)) β†’ βˆƒπ‘₯ ∈ 𝐴 (𝐡 βŠ† π‘₯ ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ π‘₯ ⊊ 𝑦))
1028, 16, 95, 101syl12anc 836 1 (πœ‘ β†’ βˆƒπ‘₯ ∈ 𝐴 (𝐡 βŠ† π‘₯ ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ π‘₯ ⊊ 𝑦))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088  βˆ€wal 1540   = wceq 1542   ∈ wcel 2107   β‰  wne 2941  βˆ€wral 3062  βˆƒwrex 3071  Vcvv 3475   βˆ– cdif 3945   βˆͺ cun 3946   ∩ cin 3947   βŠ† wss 3948   ⊊ wpss 3949  βˆ…c0 4322  ifcif 4528  π’« cpw 4602  {csn 4628  βˆͺ cuni 4908   ↦ cmpt 5231  β—‘ccnv 5675  dom cdm 5676  ran crn 5677   β€œ cima 5679  Ord word 6361  Oncon0 6362  suc csuc 6364  βŸΆwf 6537  β€“1-1-ontoβ†’wf1o 6540  β€˜cfv 6541  recscrecs 8367  Fincfn 8936  cardccrd 9927
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-ov 7409  df-om 7853  df-2nd 7973  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-1o 8463  df-er 8700  df-en 8937  df-dom 8938  df-fin 8940  df-card 9931
This theorem is referenced by:  ttukey2g  10508
  Copyright terms: Public domain W3C validator