Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  dfon2lem3 Structured version   Visualization version   GIF version

Theorem dfon2lem3 35218
Description: Lemma for dfon2 35225. All sets satisfying the new definition are transitive and untangled. (Contributed by Scott Fenton, 25-Feb-2011.)
Assertion
Ref Expression
dfon2lem3 (𝐴𝑉 → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
Distinct variable group:   𝑥,𝐴,𝑧
Allowed substitution hints:   𝑉(𝑥,𝑧)

Proof of Theorem dfon2lem3
Dummy variables 𝑤 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 untelirr 35138 . . . . 5 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
2 eluni2 4903 . . . . . 6 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ ∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥)
3 vex 3470 . . . . . . . . . 10 𝑥 ∈ V
4 sseq1 3999 . . . . . . . . . . 11 (𝑤 = 𝑥 → (𝑤𝐴𝑥𝐴))
5 treq 5263 . . . . . . . . . . 11 (𝑤 = 𝑥 → (Tr 𝑤 ↔ Tr 𝑥))
6 raleq 3314 . . . . . . . . . . 11 (𝑤 = 𝑥 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑥 ¬ 𝑡𝑡))
74, 5, 63anbi123d 1432 . . . . . . . . . 10 (𝑤 = 𝑥 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡)))
83, 7elab 3660 . . . . . . . . 9 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡))
9 elequ1 2105 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑡))
10 elequ2 2113 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑧𝑡𝑧𝑧))
119, 10bitrd 279 . . . . . . . . . . . . 13 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑧))
1211notbid 318 . . . . . . . . . . . 12 (𝑡 = 𝑧 → (¬ 𝑡𝑡 ↔ ¬ 𝑧𝑧))
1312cbvralvw 3226 . . . . . . . . . . 11 (∀𝑡𝑥 ¬ 𝑡𝑡 ↔ ∀𝑧𝑥 ¬ 𝑧𝑧)
1413biimpi 215 . . . . . . . . . 10 (∀𝑡𝑥 ¬ 𝑡𝑡 → ∀𝑧𝑥 ¬ 𝑧𝑧)
15143ad2ant3 1132 . . . . . . . . 9 ((𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡) → ∀𝑧𝑥 ¬ 𝑧𝑧)
168, 15sylbi 216 . . . . . . . 8 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ∀𝑧𝑥 ¬ 𝑧𝑧)
17 rsp 3236 . . . . . . . 8 (∀𝑧𝑥 ¬ 𝑧𝑧 → (𝑧𝑥 → ¬ 𝑧𝑧))
1816, 17syl 17 . . . . . . 7 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝑥 → ¬ 𝑧𝑧))
1918rexlimiv 3140 . . . . . 6 (∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥 → ¬ 𝑧𝑧)
202, 19sylbi 216 . . . . 5 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ¬ 𝑧𝑧)
211, 20mprg 3059 . . . 4 ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
22 dfon2lem2 35217 . . . . 5 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴
23 dfpss2 4077 . . . . . 6 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴))
24 dfon2lem1 35216 . . . . . . 7 Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
25 ssexg 5313 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴𝐴𝑉) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
2622, 25mpan 687 . . . . . . . . 9 (𝐴𝑉 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
27 psseq1 4079 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴))
28 treq 5263 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑥 ↔ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
2927, 28anbi12d 630 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑥𝐴 ∧ Tr 𝑥) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})))
30 eleq1 2813 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3129, 30imbi12d 344 . . . . . . . . . . 11 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) ↔ (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3231spcgv 3578 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3332imp 406 . . . . . . . . 9 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3426, 33sylan 579 . . . . . . . 8 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
35 snssi 4803 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴)
36 unss 4176 . . . . . . . . . . 11 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
37 df-suc 6360 . . . . . . . . . . . 12 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}})
3837sseq1i 4002 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
3936, 38sylbb2 237 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
4022, 35, 39sylancr 586 . . . . . . . . 9 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
41 suctr 6440 . . . . . . . . . . . . 13 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
4224, 41ax-mp 5 . . . . . . . . . . . 12 Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
43 untuni 35139 . . . . . . . . . . . . . 14 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}∀𝑧𝑥 ¬ 𝑧𝑧)
4443, 16mprgbir 3060 . . . . . . . . . . . . 13 𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧
45 nfv 1909 . . . . . . . . . . . . . . . . 17 𝑡 𝑤𝐴
46 nfv 1909 . . . . . . . . . . . . . . . . 17 𝑡Tr 𝑤
47 nfra1 3273 . . . . . . . . . . . . . . . . 17 𝑡𝑡𝑤 ¬ 𝑡𝑡
4845, 46, 47nf3an 1896 . . . . . . . . . . . . . . . 16 𝑡(𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)
4948nfab 2901 . . . . . . . . . . . . . . 15 𝑡{𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5049nfuni 4906 . . . . . . . . . . . . . 14 𝑡 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5150untsucf 35140 . . . . . . . . . . . . 13 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)
5244, 51ax-mp 5 . . . . . . . . . . . 12 𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡
53 sseq1 3999 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝐴 ↔ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴))
54 treq 5263 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑧 ↔ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
55 nfcv 2895 . . . . . . . . . . . . . . . . 17 𝑡𝑧
5650nfsuc 6426 . . . . . . . . . . . . . . . . 17 𝑡 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5755, 56raleqf 3341 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (∀𝑡𝑧 ¬ 𝑡𝑡 ↔ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡))
5853, 54, 573anbi123d 1432 . . . . . . . . . . . . . . 15 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡) ↔ (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)))
59 sseq1 3999 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (𝑤𝐴𝑧𝐴))
60 treq 5263 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (Tr 𝑤 ↔ Tr 𝑧))
61 raleq 3314 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑧 ¬ 𝑡𝑡))
6259, 60, 613anbi123d 1432 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑧 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)))
6362cbvabv 2797 . . . . . . . . . . . . . . 15 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = {𝑧 ∣ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)}
6458, 63elab2g 3662 . . . . . . . . . . . . . 14 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)))
6564biimprd 247 . . . . . . . . . . . . 13 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → ((suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡) → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
66 sucexg 7786 . . . . . . . . . . . . 13 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
6765, 66syl11 33 . . . . . . . . . . . 12 ((suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡) → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
6842, 52, 67mp3an23 1449 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
6968com12 32 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
70 elssuni 4931 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
71 sucssel 6449 . . . . . . . . . . 11 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7270, 71syl5 34 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7369, 72syld 47 . . . . . . . . 9 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7440, 73mpd 15 . . . . . . . 8 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
7534, 74syl6 35 . . . . . . 7 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7624, 75mpan2i 694 . . . . . 6 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7723, 76biimtrrid 242 . . . . 5 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7822, 77mpani 693 . . . 4 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7921, 78mt3i 149 . . 3 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴)
8024, 44pm3.2i 470 . . . 4 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧)
81 treq 5263 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ Tr 𝐴))
82 raleq 3314 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑧𝐴 ¬ 𝑧𝑧))
8381, 82anbi12d 630 . . . 4 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → ((Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧) ↔ (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
8480, 83mpbii 232 . . 3 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧))
8579, 84syl 17 . 2 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧))
8685ex 412 1 (𝐴𝑉 → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1084  wal 1531   = wceq 1533  wcel 2098  {cab 2701  wral 3053  wrex 3062  Vcvv 3466  cun 3938  wss 3940  wpss 3941  {csn 4620   cuni 4899  Tr wtr 5255  suc csuc 6356
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-sep 5289  ax-nul 5296  ax-pr 5417  ax-un 7718
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-ral 3054  df-rex 3063  df-rab 3425  df-v 3468  df-sbc 3770  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-nul 4315  df-pw 4596  df-sn 4621  df-pr 4623  df-uni 4900  df-iun 4989  df-tr 5256  df-suc 6360
This theorem is referenced by:  dfon2lem4  35219  dfon2lem5  35220  dfon2lem7  35222  dfon2lem8  35223  dfon2lem9  35224  dfon2  35225
  Copyright terms: Public domain W3C validator