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 33030
Description: Lemma for dfon2 33037. 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 32934 . . . . 5 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
2 eluni2 4841 . . . . . 6 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ ∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥)
3 vex 3497 . . . . . . . . . 10 𝑥 ∈ V
4 sseq1 3991 . . . . . . . . . . 11 (𝑤 = 𝑥 → (𝑤𝐴𝑥𝐴))
5 treq 5177 . . . . . . . . . . 11 (𝑤 = 𝑥 → (Tr 𝑤 ↔ Tr 𝑥))
6 raleq 3405 . . . . . . . . . . 11 (𝑤 = 𝑥 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑥 ¬ 𝑡𝑡))
74, 5, 63anbi123d 1432 . . . . . . . . . 10 (𝑤 = 𝑥 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡)))
83, 7elab 3666 . . . . . . . . 9 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡))
9 elequ1 2117 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑡))
10 elequ2 2125 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑧𝑡𝑧𝑧))
119, 10bitrd 281 . . . . . . . . . . . . 13 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑧))
1211notbid 320 . . . . . . . . . . . 12 (𝑡 = 𝑧 → (¬ 𝑡𝑡 ↔ ¬ 𝑧𝑧))
1312cbvralvw 3449 . . . . . . . . . . 11 (∀𝑡𝑥 ¬ 𝑡𝑡 ↔ ∀𝑧𝑥 ¬ 𝑧𝑧)
1413biimpi 218 . . . . . . . . . 10 (∀𝑡𝑥 ¬ 𝑡𝑡 → ∀𝑧𝑥 ¬ 𝑧𝑧)
15143ad2ant3 1131 . . . . . . . . 9 ((𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡) → ∀𝑧𝑥 ¬ 𝑧𝑧)
168, 15sylbi 219 . . . . . . . 8 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ∀𝑧𝑥 ¬ 𝑧𝑧)
17 rsp 3205 . . . . . . . 8 (∀𝑧𝑥 ¬ 𝑧𝑧 → (𝑧𝑥 → ¬ 𝑧𝑧))
1816, 17syl 17 . . . . . . 7 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝑥 → ¬ 𝑧𝑧))
1918rexlimiv 3280 . . . . . 6 (∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥 → ¬ 𝑧𝑧)
202, 19sylbi 219 . . . . 5 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ¬ 𝑧𝑧)
211, 20mprg 3152 . . . 4 ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
22 dfon2lem2 33029 . . . . 5 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴
23 dfpss2 4061 . . . . . 6 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴))
24 dfon2lem1 33028 . . . . . . 7 Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
25 ssexg 5226 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴𝐴𝑉) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
2622, 25mpan 688 . . . . . . . . 9 (𝐴𝑉 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
27 psseq1 4063 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴))
28 treq 5177 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑥 ↔ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
2927, 28anbi12d 632 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑥𝐴 ∧ Tr 𝑥) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})))
30 eleq1 2900 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3129, 30imbi12d 347 . . . . . . . . . . 11 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) ↔ (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3231spcgv 3594 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3332imp 409 . . . . . . . . 9 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3426, 33sylan 582 . . . . . . . 8 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
35 snssi 4740 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴)
36 unss 4159 . . . . . . . . . . 11 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
37 df-suc 6196 . . . . . . . . . . . 12 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}})
3837sseq1i 3994 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
3936, 38sylbb2 240 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
4022, 35, 39sylancr 589 . . . . . . . . 9 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
41 suctr 6273 . . . . . . . . . . . . 13 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
4224, 41ax-mp 5 . . . . . . . . . . . 12 Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
43 untuni 32935 . . . . . . . . . . . . . 14 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}∀𝑧𝑥 ¬ 𝑧𝑧)
4443, 16mprgbir 3153 . . . . . . . . . . . . 13 𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧
45 nfv 1911 . . . . . . . . . . . . . . . . 17 𝑡 𝑤𝐴
46 nfv 1911 . . . . . . . . . . . . . . . . 17 𝑡Tr 𝑤
47 nfra1 3219 . . . . . . . . . . . . . . . . 17 𝑡𝑡𝑤 ¬ 𝑡𝑡
4845, 46, 47nf3an 1898 . . . . . . . . . . . . . . . 16 𝑡(𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)
4948nfab 2984 . . . . . . . . . . . . . . 15 𝑡{𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5049nfuni 4844 . . . . . . . . . . . . . 14 𝑡 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5150untsucf 32936 . . . . . . . . . . . . 13 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)
5244, 51ax-mp 5 . . . . . . . . . . . 12 𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡
53 sseq1 3991 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝐴 ↔ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴))
54 treq 5177 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑧 ↔ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
55 nfcv 2977 . . . . . . . . . . . . . . . . 17 𝑡𝑧
5650nfsuc 6261 . . . . . . . . . . . . . . . . 17 𝑡 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5755, 56raleqf 3397 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (∀𝑡𝑧 ¬ 𝑡𝑡 ↔ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡))
5853, 54, 573anbi123d 1432 . . . . . . . . . . . . . . 15 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡) ↔ (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)))
59 sseq1 3991 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (𝑤𝐴𝑧𝐴))
60 treq 5177 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (Tr 𝑤 ↔ Tr 𝑧))
61 raleq 3405 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑧 ¬ 𝑡𝑡))
6259, 60, 613anbi123d 1432 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑧 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)))
6362cbvabv 2889 . . . . . . . . . . . . . . 15 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = {𝑧 ∣ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)}
6458, 63elab2g 3667 . . . . . . . . . . . . . 14 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)))
6564biimprd 250 . . . . . . . . . . . . 13 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → ((suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡) → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
66 sucexg 7524 . . . . . . . . . . . . 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 4867 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
71 sucssel 6282 . . . . . . . . . . 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 695 . . . . . 6 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7723, 76syl5bir 245 . . . . 5 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7822, 77mpani 694 . . . 4 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7921, 78mt3i 151 . . 3 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴)
8024, 44pm3.2i 473 . . . 4 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧)
81 treq 5177 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ Tr 𝐴))
82 raleq 3405 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑧𝐴 ¬ 𝑧𝑧))
8381, 82anbi12d 632 . . . 4 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → ((Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧) ↔ (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
8480, 83mpbii 235 . . 3 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧))
8579, 84syl 17 . 2 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧))
8685ex 415 1 (𝐴𝑉 → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 398  w3a 1083  wal 1531   = wceq 1533  wcel 2110  {cab 2799  wral 3138  wrex 3139  Vcvv 3494  cun 3933  wss 3935  wpss 3936  {csn 4566   cuni 4837  Tr wtr 5171  suc csuc 6192
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-sep 5202  ax-nul 5209  ax-pr 5329  ax-un 7460
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-rab 3147  df-v 3496  df-sbc 3772  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-pw 4540  df-sn 4567  df-pr 4569  df-uni 4838  df-iun 4920  df-tr 5172  df-suc 6196
This theorem is referenced by:  dfon2lem4  33031  dfon2lem5  33032  dfon2lem7  33034  dfon2lem8  33035  dfon2lem9  33036  dfon2  33037
  Copyright terms: Public domain W3C validator