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 33761
Description: Lemma for dfon2 33768. 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 33649 . . . . 5 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
2 eluni2 4843 . . . . . 6 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ ∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥)
3 vex 3436 . . . . . . . . . 10 𝑥 ∈ V
4 sseq1 3946 . . . . . . . . . . 11 (𝑤 = 𝑥 → (𝑤𝐴𝑥𝐴))
5 treq 5197 . . . . . . . . . . 11 (𝑤 = 𝑥 → (Tr 𝑤 ↔ Tr 𝑥))
6 raleq 3342 . . . . . . . . . . 11 (𝑤 = 𝑥 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑥 ¬ 𝑡𝑡))
74, 5, 63anbi123d 1435 . . . . . . . . . 10 (𝑤 = 𝑥 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡)))
83, 7elab 3609 . . . . . . . . 9 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡))
9 elequ1 2113 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑡))
10 elequ2 2121 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑧𝑡𝑧𝑧))
119, 10bitrd 278 . . . . . . . . . . . . 13 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑧))
1211notbid 318 . . . . . . . . . . . 12 (𝑡 = 𝑧 → (¬ 𝑡𝑡 ↔ ¬ 𝑧𝑧))
1312cbvralvw 3383 . . . . . . . . . . 11 (∀𝑡𝑥 ¬ 𝑡𝑡 ↔ ∀𝑧𝑥 ¬ 𝑧𝑧)
1413biimpi 215 . . . . . . . . . 10 (∀𝑡𝑥 ¬ 𝑡𝑡 → ∀𝑧𝑥 ¬ 𝑧𝑧)
15143ad2ant3 1134 . . . . . . . . 9 ((𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡) → ∀𝑧𝑥 ¬ 𝑧𝑧)
168, 15sylbi 216 . . . . . . . 8 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ∀𝑧𝑥 ¬ 𝑧𝑧)
17 rsp 3131 . . . . . . . 8 (∀𝑧𝑥 ¬ 𝑧𝑧 → (𝑧𝑥 → ¬ 𝑧𝑧))
1816, 17syl 17 . . . . . . 7 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝑥 → ¬ 𝑧𝑧))
1918rexlimiv 3209 . . . . . 6 (∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥 → ¬ 𝑧𝑧)
202, 19sylbi 216 . . . . 5 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ¬ 𝑧𝑧)
211, 20mprg 3078 . . . 4 ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
22 dfon2lem2 33760 . . . . 5 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴
23 dfpss2 4020 . . . . . 6 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴))
24 dfon2lem1 33759 . . . . . . 7 Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
25 ssexg 5247 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴𝐴𝑉) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
2622, 25mpan 687 . . . . . . . . 9 (𝐴𝑉 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
27 psseq1 4022 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴))
28 treq 5197 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑥 ↔ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
2927, 28anbi12d 631 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑥𝐴 ∧ Tr 𝑥) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})))
30 eleq1 2826 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3129, 30imbi12d 345 . . . . . . . . . . 11 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) ↔ (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3231spcgv 3535 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3332imp 407 . . . . . . . . 9 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3426, 33sylan 580 . . . . . . . 8 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
35 snssi 4741 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴)
36 unss 4118 . . . . . . . . . . 11 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
37 df-suc 6272 . . . . . . . . . . . 12 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}})
3837sseq1i 3949 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
3936, 38sylbb2 237 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
4022, 35, 39sylancr 587 . . . . . . . . 9 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
41 suctr 6349 . . . . . . . . . . . . 13 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
4224, 41ax-mp 5 . . . . . . . . . . . 12 Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
43 untuni 33650 . . . . . . . . . . . . . 14 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}∀𝑧𝑥 ¬ 𝑧𝑧)
4443, 16mprgbir 3079 . . . . . . . . . . . . 13 𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧
45 nfv 1917 . . . . . . . . . . . . . . . . 17 𝑡 𝑤𝐴
46 nfv 1917 . . . . . . . . . . . . . . . . 17 𝑡Tr 𝑤
47 nfra1 3144 . . . . . . . . . . . . . . . . 17 𝑡𝑡𝑤 ¬ 𝑡𝑡
4845, 46, 47nf3an 1904 . . . . . . . . . . . . . . . 16 𝑡(𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)
4948nfab 2913 . . . . . . . . . . . . . . 15 𝑡{𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5049nfuni 4846 . . . . . . . . . . . . . 14 𝑡 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5150untsucf 33651 . . . . . . . . . . . . 13 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)
5244, 51ax-mp 5 . . . . . . . . . . . 12 𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡
53 sseq1 3946 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝐴 ↔ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴))
54 treq 5197 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑧 ↔ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
55 nfcv 2907 . . . . . . . . . . . . . . . . 17 𝑡𝑧
5650nfsuc 6337 . . . . . . . . . . . . . . . . 17 𝑡 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5755, 56raleqf 3332 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (∀𝑡𝑧 ¬ 𝑡𝑡 ↔ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡))
5853, 54, 573anbi123d 1435 . . . . . . . . . . . . . . 15 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡) ↔ (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)))
59 sseq1 3946 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (𝑤𝐴𝑧𝐴))
60 treq 5197 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (Tr 𝑤 ↔ Tr 𝑧))
61 raleq 3342 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑧 ¬ 𝑡𝑡))
6259, 60, 613anbi123d 1435 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑧 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)))
6362cbvabv 2811 . . . . . . . . . . . . . . 15 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = {𝑧 ∣ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)}
6458, 63elab2g 3611 . . . . . . . . . . . . . 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 7655 . . . . . . . . . . . . 13 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
6765, 66syl11 33 . . . . . . . . . . . 12 ((suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡) → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
6842, 52, 67mp3an23 1452 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
6968com12 32 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
70 elssuni 4871 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
71 sucssel 6358 . . . . . . . . . . 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, 76syl5bir 242 . . . . 5 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7822, 77mpani 693 . . . 4 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7921, 78mt3i 149 . . 3 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴)
8024, 44pm3.2i 471 . . . 4 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧)
81 treq 5197 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ Tr 𝐴))
82 raleq 3342 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑧𝐴 ¬ 𝑧𝑧))
8381, 82anbi12d 631 . . . 4 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → ((Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧) ↔ (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
8480, 83mpbii 232 . . 3 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧))
8579, 84syl 17 . 2 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧))
8685ex 413 1 (𝐴𝑉 → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1086  wal 1537   = wceq 1539  wcel 2106  {cab 2715  wral 3064  wrex 3065  Vcvv 3432  cun 3885  wss 3887  wpss 3888  {csn 4561   cuni 4839  Tr wtr 5191  suc csuc 6268
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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-sep 5223  ax-nul 5230  ax-pr 5352  ax-un 7588
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-ral 3069  df-rex 3070  df-rab 3073  df-v 3434  df-sbc 3717  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-pw 4535  df-sn 4562  df-pr 4564  df-uni 4840  df-iun 4926  df-tr 5192  df-suc 6272
This theorem is referenced by:  dfon2lem4  33762  dfon2lem5  33763  dfon2lem7  33765  dfon2lem8  33766  dfon2lem9  33767  dfon2  33768
  Copyright terms: Public domain W3C validator