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 34746
Description: Lemma for dfon2 34753. 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 34666 . . . . 5 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
2 eluni2 4912 . . . . . 6 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ ∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥)
3 vex 3479 . . . . . . . . . 10 𝑥 ∈ V
4 sseq1 4007 . . . . . . . . . . 11 (𝑤 = 𝑥 → (𝑤𝐴𝑥𝐴))
5 treq 5273 . . . . . . . . . . 11 (𝑤 = 𝑥 → (Tr 𝑤 ↔ Tr 𝑥))
6 raleq 3323 . . . . . . . . . . 11 (𝑤 = 𝑥 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑥 ¬ 𝑡𝑡))
74, 5, 63anbi123d 1437 . . . . . . . . . 10 (𝑤 = 𝑥 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡)))
83, 7elab 3668 . . . . . . . . 9 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡))
9 elequ1 2114 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑡))
10 elequ2 2122 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑧𝑡𝑧𝑧))
119, 10bitrd 279 . . . . . . . . . . . . 13 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑧))
1211notbid 318 . . . . . . . . . . . 12 (𝑡 = 𝑧 → (¬ 𝑡𝑡 ↔ ¬ 𝑧𝑧))
1312cbvralvw 3235 . . . . . . . . . . 11 (∀𝑡𝑥 ¬ 𝑡𝑡 ↔ ∀𝑧𝑥 ¬ 𝑧𝑧)
1413biimpi 215 . . . . . . . . . 10 (∀𝑡𝑥 ¬ 𝑡𝑡 → ∀𝑧𝑥 ¬ 𝑧𝑧)
15143ad2ant3 1136 . . . . . . . . 9 ((𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡) → ∀𝑧𝑥 ¬ 𝑧𝑧)
168, 15sylbi 216 . . . . . . . 8 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ∀𝑧𝑥 ¬ 𝑧𝑧)
17 rsp 3245 . . . . . . . 8 (∀𝑧𝑥 ¬ 𝑧𝑧 → (𝑧𝑥 → ¬ 𝑧𝑧))
1816, 17syl 17 . . . . . . 7 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝑥 → ¬ 𝑧𝑧))
1918rexlimiv 3149 . . . . . 6 (∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥 → ¬ 𝑧𝑧)
202, 19sylbi 216 . . . . 5 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ¬ 𝑧𝑧)
211, 20mprg 3068 . . . 4 ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
22 dfon2lem2 34745 . . . . 5 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴
23 dfpss2 4085 . . . . . 6 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴))
24 dfon2lem1 34744 . . . . . . 7 Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
25 ssexg 5323 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴𝐴𝑉) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
2622, 25mpan 689 . . . . . . . . 9 (𝐴𝑉 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
27 psseq1 4087 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴))
28 treq 5273 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑥 ↔ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
2927, 28anbi12d 632 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑥𝐴 ∧ Tr 𝑥) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})))
30 eleq1 2822 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3129, 30imbi12d 345 . . . . . . . . . . 11 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) ↔ (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3231spcgv 3587 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3332imp 408 . . . . . . . . 9 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3426, 33sylan 581 . . . . . . . 8 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
35 snssi 4811 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴)
36 unss 4184 . . . . . . . . . . 11 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
37 df-suc 6368 . . . . . . . . . . . 12 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}})
3837sseq1i 4010 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
3936, 38sylbb2 237 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
4022, 35, 39sylancr 588 . . . . . . . . 9 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
41 suctr 6448 . . . . . . . . . . . . 13 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
4224, 41ax-mp 5 . . . . . . . . . . . 12 Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
43 untuni 34667 . . . . . . . . . . . . . 14 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}∀𝑧𝑥 ¬ 𝑧𝑧)
4443, 16mprgbir 3069 . . . . . . . . . . . . 13 𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧
45 nfv 1918 . . . . . . . . . . . . . . . . 17 𝑡 𝑤𝐴
46 nfv 1918 . . . . . . . . . . . . . . . . 17 𝑡Tr 𝑤
47 nfra1 3282 . . . . . . . . . . . . . . . . 17 𝑡𝑡𝑤 ¬ 𝑡𝑡
4845, 46, 47nf3an 1905 . . . . . . . . . . . . . . . 16 𝑡(𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)
4948nfab 2910 . . . . . . . . . . . . . . 15 𝑡{𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5049nfuni 4915 . . . . . . . . . . . . . 14 𝑡 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5150untsucf 34668 . . . . . . . . . . . . 13 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)
5244, 51ax-mp 5 . . . . . . . . . . . 12 𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡
53 sseq1 4007 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝐴 ↔ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴))
54 treq 5273 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑧 ↔ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
55 nfcv 2904 . . . . . . . . . . . . . . . . 17 𝑡𝑧
5650nfsuc 6434 . . . . . . . . . . . . . . . . 17 𝑡 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5755, 56raleqf 3350 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (∀𝑡𝑧 ¬ 𝑡𝑡 ↔ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡))
5853, 54, 573anbi123d 1437 . . . . . . . . . . . . . . 15 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡) ↔ (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)))
59 sseq1 4007 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (𝑤𝐴𝑧𝐴))
60 treq 5273 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (Tr 𝑤 ↔ Tr 𝑧))
61 raleq 3323 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑧 ¬ 𝑡𝑡))
6259, 60, 613anbi123d 1437 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑧 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)))
6362cbvabv 2806 . . . . . . . . . . . . . . 15 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = {𝑧 ∣ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)}
6458, 63elab2g 3670 . . . . . . . . . . . . . 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 7790 . . . . . . . . . . . . 13 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
6765, 66syl11 33 . . . . . . . . . . . 12 ((suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡) → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
6842, 52, 67mp3an23 1454 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
6968com12 32 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
70 elssuni 4941 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
71 sucssel 6457 . . . . . . . . . . 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 696 . . . . . 6 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7723, 76biimtrrid 242 . . . . 5 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7822, 77mpani 695 . . . 4 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7921, 78mt3i 149 . . 3 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴)
8024, 44pm3.2i 472 . . . 4 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧)
81 treq 5273 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ Tr 𝐴))
82 raleq 3323 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑧𝐴 ¬ 𝑧𝑧))
8381, 82anbi12d 632 . . . 4 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → ((Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧) ↔ (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
8480, 83mpbii 232 . . 3 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧))
8579, 84syl 17 . 2 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧))
8685ex 414 1 (𝐴𝑉 → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 397  w3a 1088  wal 1540   = wceq 1542  wcel 2107  {cab 2710  wral 3062  wrex 3071  Vcvv 3475  cun 3946  wss 3948  wpss 3949  {csn 4628   cuni 4908  Tr wtr 5265  suc csuc 6364
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-sep 5299  ax-nul 5306  ax-pr 5427  ax-un 7722
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-rab 3434  df-v 3477  df-sbc 3778  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-pw 4604  df-sn 4629  df-pr 4631  df-uni 4909  df-iun 4999  df-tr 5266  df-suc 6368
This theorem is referenced by:  dfon2lem4  34747  dfon2lem5  34748  dfon2lem7  34750  dfon2lem8  34751  dfon2lem9  34752  dfon2  34753
  Copyright terms: Public domain W3C validator