MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ttukeylem7 Structured version   Visualization version   GIF version
Theorem ttukeylem7 10512
Description: Lemma for ttukey 10515. (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 6903 . . . 4 (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ V
21sucid 6445 . . 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 10511 . . 3 ((πœ‘ ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ suc (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∈ 𝐴)
82, 7mpan2 687 . 2 (πœ‘ β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∈ 𝐴)
93, 4, 5, 6ttukeylem4 10509 . . 3 (πœ‘ β†’ (πΊβ€˜βˆ…) = 𝐡)
10 0elon 6417 . . . . 5 βˆ… ∈ On
11 cardon 9941 . . . . 5 (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On
12 0ss 4395 . . . . 5 βˆ… βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))
1310, 11, 123pm3.2i 1337 . . . 4 (βˆ… ∈ On ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ βˆ… βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
143, 4, 5, 6ttukeylem5 10510 . . . 4 ((πœ‘ ∧ (βˆ… ∈ On ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ βˆ… βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))) β†’ (πΊβ€˜βˆ…) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
1513, 14mpan2 687 . . 3 (πœ‘ β†’ (πΊβ€˜βˆ…) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
169, 15eqsstrrd 4020 . 2 (πœ‘ β†’ 𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
17 simprr 769 . . . . . 6 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)
18 ssun1 4171 . . . . . . . 8 𝑦 βŠ† (𝑦 βˆͺ 𝐡)
19 undif1 4474 . . . . . . . 8 ((𝑦 βˆ– 𝐡) βˆͺ 𝐡) = (𝑦 βˆͺ 𝐡)
2018, 19sseqtrri 4018 . . . . . . 7 𝑦 βŠ† ((𝑦 βˆ– 𝐡) βˆͺ 𝐡)
21 simpl 481 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ πœ‘)
22 f1ocnv 6844 . . . . . . . . . . . . . . . . 17 (𝐹:(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))–1-1-ontoβ†’(βˆͺ 𝐴 βˆ– 𝐡) β†’ ◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)–1-1-ontoβ†’(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
23 f1of 6832 . . . . . . . . . . . . . . . . 17 (◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)–1-1-ontoβ†’(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) β†’ ◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)⟢(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
243, 22, 233syl 18 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)⟢(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
2524adantr 479 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ ◑𝐹:(βˆͺ 𝐴 βˆ– 𝐡)⟢(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
26 eldifi 4125 . . . . . . . . . . . . . . . . . 18 (π‘Ž ∈ (𝑦 βˆ– 𝐡) β†’ π‘Ž ∈ 𝑦)
2726ad2antll 725 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ 𝑦)
28 simprll 775 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ 𝑦 ∈ 𝐴)
29 elunii 4912 . . . . . . . . . . . . . . . . 17 ((π‘Ž ∈ 𝑦 ∧ 𝑦 ∈ 𝐴) β†’ π‘Ž ∈ βˆͺ 𝐴)
3027, 28, 29syl2anc 582 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ βˆͺ 𝐴)
31 eldifn 4126 . . . . . . . . . . . . . . . . 17 (π‘Ž ∈ (𝑦 βˆ– 𝐡) β†’ Β¬ π‘Ž ∈ 𝐡)
3231ad2antll 725 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ Β¬ π‘Ž ∈ 𝐡)
3330, 32eldifd 3958 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ (βˆͺ 𝐴 βˆ– 𝐡))
3425, 33ffvelcdmd 7086 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
35 onelon 6388 . . . . . . . . . . . . . 14 (((cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ (β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) ∈ On)
3611, 34, 35sylancr 585 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) ∈ On)
37 onsuc 7801 . . . . . . . . . . . . 13 ((β—‘πΉβ€˜π‘Ž) ∈ On β†’ suc (β—‘πΉβ€˜π‘Ž) ∈ On)
3836, 37syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ suc (β—‘πΉβ€˜π‘Ž) ∈ On)
3911a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On)
4011onordi 6474 . . . . . . . . . . . . 13 Ord (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))
41 ordsucss 7808 . . . . . . . . . . . . 13 (Ord (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) β†’ ((β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) β†’ suc (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
4240, 34, 41mpsyl 68 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ suc (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
433, 4, 5, 6ttukeylem5 10510 . . . . . . . . . . . 12 ((πœ‘ ∧ (suc (β—‘πΉβ€˜π‘Ž) ∈ On ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ suc (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
4421, 38, 39, 42, 43syl13anc 1370 . . . . . . . . . . 11 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
45 ssun2 4172 . . . . . . . . . . . . 13 if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…) βŠ† ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))
46 eloni 6373 . . . . . . . . . . . . . . . . . 18 ((β—‘πΉβ€˜π‘Ž) ∈ On β†’ Ord (β—‘πΉβ€˜π‘Ž))
47 ordunisuc 7822 . . . . . . . . . . . . . . . . . 18 (Ord (β—‘πΉβ€˜π‘Ž) β†’ βˆͺ suc (β—‘πΉβ€˜π‘Ž) = (β—‘πΉβ€˜π‘Ž))
4836, 46, 473syl 18 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ βˆͺ suc (β—‘πΉβ€˜π‘Ž) = (β—‘πΉβ€˜π‘Ž))
4948fveq2d 6894 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) = (πΉβ€˜(β—‘πΉβ€˜π‘Ž)))
503adantr 479 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ 𝐹:(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))–1-1-ontoβ†’(βˆͺ 𝐴 βˆ– 𝐡))
51 f1ocnvfv2 7277 . . . . . . . . . . . . . . . . 17 ((𝐹:(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))–1-1-ontoβ†’(βˆͺ 𝐴 βˆ– 𝐡) ∧ π‘Ž ∈ (βˆͺ 𝐴 βˆ– 𝐡)) β†’ (πΉβ€˜(β—‘πΉβ€˜π‘Ž)) = π‘Ž)
5250, 33, 51syl2anc 582 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΉβ€˜(β—‘πΉβ€˜π‘Ž)) = π‘Ž)
5349, 52eqtr2d 2771 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž = (πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)))
54 velsn 4643 . . . . . . . . . . . . . . 15 (π‘Ž ∈ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))} ↔ π‘Ž = (πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)))
5553, 54sylibr 233 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))})
5648fveq2d 6894 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) = (πΊβ€˜(β—‘πΉβ€˜π‘Ž)))
57 ordelss 6379 . . . . . . . . . . . . . . . . . . . . 21 ((Ord (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∧ (β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
5840, 34, 57sylancr 585 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))
593, 4, 5, 6ttukeylem5 10510 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ ((β—‘πΉβ€˜π‘Ž) ∈ On ∧ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) ∈ On ∧ (β—‘πΉβ€˜π‘Ž) βŠ† (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))) β†’ (πΊβ€˜(β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
6021, 36, 39, 58, 59syl13anc 1370 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜(β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
6156, 60eqsstrd 4019 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
62 simprlr 776 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)
6361, 62sstrd 3991 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βŠ† 𝑦)
6453, 27eqeltrrd 2832 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) ∈ 𝑦)
6564snssd 4811 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))} βŠ† 𝑦)
6663, 65unssd 4185 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) βŠ† 𝑦)
673, 4, 5ttukeylem2 10507 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) βŠ† 𝑦)) β†’ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴)
6821, 28, 66, 67syl12anc 833 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴)
6968iftrued 4535 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…) = {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))})
7055, 69eleqtrrd 2834 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))
7145, 70sselid 3979 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…)))
723, 4, 5, 6ttukeylem3 10508 . . . . . . . . . . . . . 14 ((πœ‘ ∧ suc (β—‘πΉβ€˜π‘Ž) ∈ On) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) = if(suc (β—‘πΉβ€˜π‘Ž) = βˆͺ suc (β—‘πΉβ€˜π‘Ž), if(suc (β—‘πΉβ€˜π‘Ž) = βˆ…, 𝐡, βˆͺ (𝐺 β€œ suc (β—‘πΉβ€˜π‘Ž))), ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))))
7338, 72syldan 589 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) = if(suc (β—‘πΉβ€˜π‘Ž) = βˆͺ suc (β—‘πΉβ€˜π‘Ž), if(suc (β—‘πΉβ€˜π‘Ž) = βˆ…, 𝐡, βˆͺ (𝐺 β€œ suc (β—‘πΉβ€˜π‘Ž))), ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))))
74 sucidg 6444 . . . . . . . . . . . . . . . . . 18 ((β—‘πΉβ€˜π‘Ž) ∈ (cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)) β†’ (β—‘πΉβ€˜π‘Ž) ∈ suc (β—‘πΉβ€˜π‘Ž))
7534, 74syl 17 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (β—‘πΉβ€˜π‘Ž) ∈ suc (β—‘πΉβ€˜π‘Ž))
76 ordirr 6381 . . . . . . . . . . . . . . . . . 18 (Ord (β—‘πΉβ€˜π‘Ž) β†’ Β¬ (β—‘πΉβ€˜π‘Ž) ∈ (β—‘πΉβ€˜π‘Ž))
7736, 46, 763syl 18 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ Β¬ (β—‘πΉβ€˜π‘Ž) ∈ (β—‘πΉβ€˜π‘Ž))
78 nelne1 3037 . . . . . . . . . . . . . . . . 17 (((β—‘πΉβ€˜π‘Ž) ∈ suc (β—‘πΉβ€˜π‘Ž) ∧ Β¬ (β—‘πΉβ€˜π‘Ž) ∈ (β—‘πΉβ€˜π‘Ž)) β†’ suc (β—‘πΉβ€˜π‘Ž) β‰  (β—‘πΉβ€˜π‘Ž))
7975, 77, 78syl2anc 582 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ suc (β—‘πΉβ€˜π‘Ž) β‰  (β—‘πΉβ€˜π‘Ž))
8079, 48neeqtrrd 3013 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ suc (β—‘πΉβ€˜π‘Ž) β‰  βˆͺ suc (β—‘πΉβ€˜π‘Ž))
8180neneqd 2943 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ Β¬ suc (β—‘πΉβ€˜π‘Ž) = βˆͺ suc (β—‘πΉβ€˜π‘Ž))
8281iffalsed 4538 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ if(suc (β—‘πΉβ€˜π‘Ž) = βˆͺ suc (β—‘πΉβ€˜π‘Ž), if(suc (β—‘πΉβ€˜π‘Ž) = βˆ…, 𝐡, βˆͺ (𝐺 β€œ suc (β—‘πΉβ€˜π‘Ž))), ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…))) = ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…)))
8373, 82eqtrd 2770 . . . . . . . . . . . 12 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)) = ((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ if(((πΊβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž)) βˆͺ {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}) ∈ 𝐴, {(πΉβ€˜βˆͺ suc (β—‘πΉβ€˜π‘Ž))}, βˆ…)))
8471, 83eleqtrrd 2834 . . . . . . . . . . 11 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ (πΊβ€˜suc (β—‘πΉβ€˜π‘Ž)))
8544, 84sseldd 3982 . . . . . . . . . 10 ((πœ‘ ∧ ((𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦) ∧ π‘Ž ∈ (𝑦 βˆ– 𝐡))) β†’ π‘Ž ∈ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
8685expr 455 . . . . . . . . 9 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ (π‘Ž ∈ (𝑦 βˆ– 𝐡) β†’ π‘Ž ∈ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))))
8786ssrdv 3987 . . . . . . . 8 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ (𝑦 βˆ– 𝐡) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
8816adantr 479 . . . . . . . 8 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ 𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
8987, 88unssd 4185 . . . . . . 7 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ ((𝑦 βˆ– 𝐡) βˆͺ 𝐡) βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
9020, 89sstrid 3992 . . . . . 6 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ 𝑦 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))))
9117, 90eqssd 3998 . . . . 5 ((πœ‘ ∧ (𝑦 ∈ 𝐴 ∧ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦)) β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) = 𝑦)
9291expr 455 . . . 4 ((πœ‘ ∧ 𝑦 ∈ 𝐴) β†’ ((πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦 β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) = 𝑦))
93 npss 4109 . . . 4 (Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦 ↔ ((πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) βŠ† 𝑦 β†’ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) = 𝑦))
9492, 93sylibr 233 . . 3 ((πœ‘ ∧ 𝑦 ∈ 𝐴) β†’ Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦)
9594ralrimiva 3144 . 2 (πœ‘ β†’ βˆ€π‘¦ ∈ 𝐴 Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦)
96 sseq2 4007 . . . 4 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (𝐡 βŠ† π‘₯ ↔ 𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡)))))
97 psseq1 4086 . . . . . 6 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (π‘₯ ⊊ 𝑦 ↔ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦))
9897notbid 317 . . . . 5 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (Β¬ π‘₯ ⊊ 𝑦 ↔ Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦))
9998ralbidv 3175 . . . 4 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ (βˆ€π‘¦ ∈ 𝐴 Β¬ π‘₯ ⊊ 𝑦 ↔ βˆ€π‘¦ ∈ 𝐴 Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦))
10096, 99anbi12d 629 . . 3 (π‘₯ = (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) β†’ ((𝐡 βŠ† π‘₯ ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ π‘₯ ⊊ 𝑦) ↔ (𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦)))
101100rspcev 3611 . 2 (((πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∈ 𝐴 ∧ (𝐡 βŠ† (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ (πΊβ€˜(cardβ€˜(βˆͺ 𝐴 βˆ– 𝐡))) ⊊ 𝑦)) β†’ βˆƒπ‘₯ ∈ 𝐴 (𝐡 βŠ† π‘₯ ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ π‘₯ ⊊ 𝑦))
1028, 16, 95, 101syl12anc 833 1 (πœ‘ β†’ βˆƒπ‘₯ ∈ 𝐴 (𝐡 βŠ† π‘₯ ∧ βˆ€π‘¦ ∈ 𝐴 Β¬ π‘₯ ⊊ 𝑦))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1085  βˆ€wal 1537   = wceq 1539   ∈ wcel 2104   β‰  wne 2938  βˆ€wral 3059  βˆƒwrex 3068  Vcvv 3472   βˆ– cdif 3944   βˆͺ cun 3945   ∩ cin 3946   βŠ† wss 3947   ⊊ wpss 3948  βˆ…c0 4321  ifcif 4527  π’« cpw 4601  {csn 4627  βˆͺ cuni 4907   ↦ cmpt 5230  β—‘ccnv 5674  dom cdm 5675  ran crn 5676   β€œ cima 5678  Ord word 6362  Oncon0 6363  suc csuc 6365  βŸΆwf 6538  β€“1-1-ontoβ†’wf1o 6541  β€˜cfv 6542  recscrecs 8372  Fincfn 8941  cardccrd 9932
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7727
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-ral 3060  df-rex 3069  df-reu 3375  df-rab 3431  df-v 3474  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6299  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-ov 7414  df-om 7858  df-2nd 7978  df-frecs 8268  df-wrecs 8299  df-recs 8373  df-1o 8468  df-er 8705  df-en 8942  df-dom 8943  df-fin 8945  df-card 9936
This theorem is referenced by:  ttukey2g  10513
  Copyright terms: Public domain W3C validator