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 36011
Description: Lemma for dfon2 36018. 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 35936 . . . . 5 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
2 eluni2 4842 . . . . . 6 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ ∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥)
3 vex 3435 . . . . . . . . . 10 𝑥 ∈ V
4 sseq1 3940 . . . . . . . . . . 11 (𝑤 = 𝑥 → (𝑤𝐴𝑥𝐴))
5 treq 5186 . . . . . . . . . . 11 (𝑤 = 𝑥 → (Tr 𝑤 ↔ Tr 𝑥))
6 raleq 3294 . . . . . . . . . . 11 (𝑤 = 𝑥 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑥 ¬ 𝑡𝑡))
74, 5, 63anbi123d 1444 . . . . . . . . . 10 (𝑤 = 𝑥 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡)))
83, 7elab 3617 . . . . . . . . 9 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ (𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡))
9 elequ1 2126 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑡))
10 elequ2 2134 . . . . . . . . . . . . . 14 (𝑡 = 𝑧 → (𝑧𝑡𝑧𝑧))
119, 10bitrd 280 . . . . . . . . . . . . 13 (𝑡 = 𝑧 → (𝑡𝑡𝑧𝑧))
1211notbid 319 . . . . . . . . . . . 12 (𝑡 = 𝑧 → (¬ 𝑡𝑡 ↔ ¬ 𝑧𝑧))
1312cbvralvw 3217 . . . . . . . . . . 11 (∀𝑡𝑥 ¬ 𝑡𝑡 ↔ ∀𝑧𝑥 ¬ 𝑧𝑧)
1413biimpi 217 . . . . . . . . . 10 (∀𝑡𝑥 ¬ 𝑡𝑡 → ∀𝑧𝑥 ¬ 𝑧𝑧)
15143ad2ant3 1141 . . . . . . . . 9 ((𝑥𝐴 ∧ Tr 𝑥 ∧ ∀𝑡𝑥 ¬ 𝑡𝑡) → ∀𝑧𝑥 ¬ 𝑧𝑧)
168, 15sylbi 218 . . . . . . . 8 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ∀𝑧𝑥 ¬ 𝑧𝑧)
17 rsp 3227 . . . . . . . 8 (∀𝑧𝑥 ¬ 𝑧𝑧 → (𝑧𝑥 → ¬ 𝑧𝑧))
1816, 17syl 17 . . . . . . 7 (𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝑥 → ¬ 𝑧𝑧))
1918rexlimiv 3133 . . . . . 6 (∃𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}𝑧𝑥 → ¬ 𝑧𝑧)
202, 19sylbi 218 . . . . 5 (𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ¬ 𝑧𝑧)
211, 20mprg 3059 . . . 4 ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
22 dfon2lem2 36010 . . . . 5 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴
23 dfpss2 4019 . . . . . 6 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴))
24 dfon2lem1 36009 . . . . . . 7 Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
25 ssexg 5251 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴𝐴𝑉) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
2622, 25mpan 696 . . . . . . . . 9 (𝐴𝑉 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
27 psseq1 4021 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴))
28 treq 5186 . . . . . . . . . . . . 13 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑥 ↔ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
2927, 28anbi12d 638 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑥𝐴 ∧ Tr 𝑥) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})))
30 eleq1 2827 . . . . . . . . . . . 12 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑥𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3129, 30imbi12d 345 . . . . . . . . . . 11 (𝑥 = {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) ↔ (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3231spcgv 3534 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → (∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴)))
3332imp 407 . . . . . . . . 9 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
3426, 33sylan 586 . . . . . . . 8 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 ∧ Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴))
35 snssi 4717 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴)
36 unss 4119 . . . . . . . . . . 11 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
37 df-suc 6316 . . . . . . . . . . . 12 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}})
3837sseq1i 3943 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ↔ ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∪ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}}) ⊆ 𝐴)
3936, 38sylbb2 239 . . . . . . . . . 10 (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ { {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}} ⊆ 𝐴) → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
4022, 35, 39sylancr 593 . . . . . . . . 9 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴)
41 suctr 6398 . . . . . . . . . . . . 13 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
4224, 41ax-mp 5 . . . . . . . . . . . 12 Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
43 untuni 35937 . . . . . . . . . . . . . 14 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑥 ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}∀𝑧𝑥 ¬ 𝑧𝑧)
4443, 16mprgbir 3060 . . . . . . . . . . . . 13 𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧
45 nfv 1921 . . . . . . . . . . . . . . . . 17 𝑡 𝑤𝐴
46 nfv 1921 . . . . . . . . . . . . . . . . 17 𝑡Tr 𝑤
47 nfra1 3263 . . . . . . . . . . . . . . . . 17 𝑡𝑡𝑤 ¬ 𝑡𝑡
4845, 46, 47nf3an 1908 . . . . . . . . . . . . . . . 16 𝑡(𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)
4948nfab 2907 . . . . . . . . . . . . . . 15 𝑡{𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5049nfuni 4845 . . . . . . . . . . . . . 14 𝑡 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5150untsucf 35938 . . . . . . . . . . . . 13 (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 → ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)
5244, 51ax-mp 5 . . . . . . . . . . . 12 𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡
53 sseq1 3940 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (𝑧𝐴 ↔ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴))
54 treq 5186 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (Tr 𝑧 ↔ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
55 nfcv 2901 . . . . . . . . . . . . . . . . 17 𝑡𝑧
5650nfsuc 6384 . . . . . . . . . . . . . . . . 17 𝑡 suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}
5755, 56raleqf 3320 . . . . . . . . . . . . . . . 16 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → (∀𝑡𝑧 ¬ 𝑡𝑡 ↔ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡))
5853, 54, 573anbi123d 1444 . . . . . . . . . . . . . . 15 (𝑧 = suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → ((𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡) ↔ (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)))
59 sseq1 3940 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (𝑤𝐴𝑧𝐴))
60 treq 5186 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (Tr 𝑤 ↔ Tr 𝑧))
61 raleq 3294 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑧 → (∀𝑡𝑤 ¬ 𝑡𝑡 ↔ ∀𝑡𝑧 ¬ 𝑡𝑡))
6259, 60, 613anbi123d 1444 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑧 → ((𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡) ↔ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)))
6362cbvabv 2809 . . . . . . . . . . . . . . 15 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = {𝑧 ∣ (𝑧𝐴 ∧ Tr 𝑧 ∧ ∀𝑡𝑧 ¬ 𝑡𝑡)}
6458, 63elab2g 3618 . . . . . . . . . . . . . 14 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡)))
6564biimprd 249 . . . . . . . . . . . . 13 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V → ((suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡) → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
66 sucexg 7748 . . . . . . . . . . . . 13 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ V)
6765, 66syl11 33 . . . . . . . . . . . 12 ((suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ Tr suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑡 ∈ suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑡𝑡) → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
6842, 52, 67mp3an23 1461 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
6968com12 32 . . . . . . . . . 10 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ 𝐴 → (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
70 elssuni 4869 . . . . . . . . . . 11 (suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} → suc {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)})
71 sucssel 6407 . . . . . . . . . . 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 703 . . . . . 6 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊊ 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7723, 76biimtrrid 244 . . . . 5 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ⊆ 𝐴 ∧ ¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7822, 77mpani 702 . . . 4 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → (¬ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∈ {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)}))
7921, 78mt3i 149 . . 3 ((𝐴𝑉 ∧ ∀𝑥((𝑥𝐴 ∧ Tr 𝑥) → 𝑥𝐴)) → {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴)
8024, 44pm3.2i 471 . . . 4 (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧)
81 treq 5186 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ↔ Tr 𝐴))
82 raleq 3294 . . . . 5 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → (∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧 ↔ ∀𝑧𝐴 ¬ 𝑧𝑧))
8381, 82anbi12d 638 . . . 4 ( {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} = 𝐴 → ((Tr {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ∧ ∀𝑧 {𝑤 ∣ (𝑤𝐴 ∧ Tr 𝑤 ∧ ∀𝑡𝑤 ¬ 𝑡𝑡)} ¬ 𝑧𝑧) ↔ (Tr 𝐴 ∧ ∀𝑧𝐴 ¬ 𝑧𝑧)))
8480, 83mpbii 234 . . 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 1092  wal 1545   = wceq 1547  wcel 2119  {cab 2717  wral 3053  wrex 3063  Vcvv 3431  cun 3881  wss 3883  wpss 3884  {csn 4555   cuni 4838  Tr wtr 5179  suc csuc 6312
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-sep 5218  ax-pr 5362  ax-un 7678
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-ex 1787  df-nf 1791  df-sb 2074  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rab 3392  df-v 3433  df-sbc 3724  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-pw 4531  df-sn 4556  df-pr 4558  df-uni 4839  df-iun 4923  df-tr 5180  df-suc 6316
This theorem is referenced by:  dfon2lem4  36012  dfon2lem5  36013  dfon2lem7  36015  dfon2lem8  36016  dfon2lem9  36017  dfon2  36018
  Copyright terms: Public domain W3C validator