Metamath Proof Explorer


Theorem dfon2lem3

Description: Lemma for dfon2 . All sets satisfying the new definition are transitive and untangled. (Contributed by Scott Fenton, 25-Feb-2011)

Ref Expression
Assertion dfon2lem3 AVxxATrxxATrAzA¬zz

Proof

Step Hyp Ref Expression
1 untelirr zw|wATrwtw¬tt¬zz¬w|wATrwtw¬ttw|wATrwtw¬tt
2 eluni2 zw|wATrwtw¬ttxw|wATrwtw¬ttzx
3 vex xV
4 sseq1 w=xwAxA
5 treq w=xTrwTrx
6 raleq w=xtw¬tttx¬tt
7 4 5 6 3anbi123d w=xwATrwtw¬ttxATrxtx¬tt
8 3 7 elab xw|wATrwtw¬ttxATrxtx¬tt
9 elequ1 t=zttzt
10 elequ2 t=zztzz
11 9 10 bitrd t=zttzz
12 11 notbid t=z¬tt¬zz
13 12 cbvralvw tx¬ttzx¬zz
14 13 biimpi tx¬ttzx¬zz
15 14 3ad2ant3 xATrxtx¬ttzx¬zz
16 8 15 sylbi xw|wATrwtw¬ttzx¬zz
17 rsp zx¬zzzx¬zz
18 16 17 syl xw|wATrwtw¬ttzx¬zz
19 18 rexlimiv xw|wATrwtw¬ttzx¬zz
20 2 19 sylbi zw|wATrwtw¬tt¬zz
21 1 20 mprg ¬w|wATrwtw¬ttw|wATrwtw¬tt
22 dfon2lem2 w|wATrwtw¬ttA
23 dfpss2 w|wATrwtw¬ttAw|wATrwtw¬ttA¬w|wATrwtw¬tt=A
24 dfon2lem1 Trw|wATrwtw¬tt
25 ssexg w|wATrwtw¬ttAAVw|wATrwtw¬ttV
26 22 25 mpan AVw|wATrwtw¬ttV
27 psseq1 x=w|wATrwtw¬ttxAw|wATrwtw¬ttA
28 treq x=w|wATrwtw¬ttTrxTrw|wATrwtw¬tt
29 27 28 anbi12d x=w|wATrwtw¬ttxATrxw|wATrwtw¬ttATrw|wATrwtw¬tt
30 eleq1 x=w|wATrwtw¬ttxAw|wATrwtw¬ttA
31 29 30 imbi12d x=w|wATrwtw¬ttxATrxxAw|wATrwtw¬ttATrw|wATrwtw¬ttw|wATrwtw¬ttA
32 31 spcgv w|wATrwtw¬ttVxxATrxxAw|wATrwtw¬ttATrw|wATrwtw¬ttw|wATrwtw¬ttA
33 32 imp w|wATrwtw¬ttVxxATrxxAw|wATrwtw¬ttATrw|wATrwtw¬ttw|wATrwtw¬ttA
34 26 33 sylan AVxxATrxxAw|wATrwtw¬ttATrw|wATrwtw¬ttw|wATrwtw¬ttA
35 snssi w|wATrwtw¬ttAw|wATrwtw¬ttA
36 unss w|wATrwtw¬ttAw|wATrwtw¬ttAw|wATrwtw¬ttw|wATrwtw¬ttA
37 df-suc sucw|wATrwtw¬tt=w|wATrwtw¬ttw|wATrwtw¬tt
38 37 sseq1i sucw|wATrwtw¬ttAw|wATrwtw¬ttw|wATrwtw¬ttA
39 36 38 sylbb2 w|wATrwtw¬ttAw|wATrwtw¬ttAsucw|wATrwtw¬ttA
40 22 35 39 sylancr w|wATrwtw¬ttAsucw|wATrwtw¬ttA
41 suctr Trw|wATrwtw¬ttTrsucw|wATrwtw¬tt
42 24 41 ax-mp Trsucw|wATrwtw¬tt
43 untuni zw|wATrwtw¬tt¬zzxw|wATrwtw¬ttzx¬zz
44 43 16 mprgbir zw|wATrwtw¬tt¬zz
45 nfv twA
46 nfv tTrw
47 nfra1 ttw¬tt
48 45 46 47 nf3an twATrwtw¬tt
49 48 nfab _tw|wATrwtw¬tt
50 49 nfuni _tw|wATrwtw¬tt
51 50 untsucf zw|wATrwtw¬tt¬zztsucw|wATrwtw¬tt¬tt
52 44 51 ax-mp tsucw|wATrwtw¬tt¬tt
53 sseq1 z=sucw|wATrwtw¬ttzAsucw|wATrwtw¬ttA
54 treq z=sucw|wATrwtw¬ttTrzTrsucw|wATrwtw¬tt
55 nfcv _tz
56 50 nfsuc _tsucw|wATrwtw¬tt
57 55 56 raleqf z=sucw|wATrwtw¬tttz¬tttsucw|wATrwtw¬tt¬tt
58 53 54 57 3anbi123d z=sucw|wATrwtw¬ttzATrztz¬ttsucw|wATrwtw¬ttATrsucw|wATrwtw¬tttsucw|wATrwtw¬tt¬tt
59 sseq1 w=zwAzA
60 treq w=zTrwTrz
61 raleq w=ztw¬tttz¬tt
62 59 60 61 3anbi123d w=zwATrwtw¬ttzATrztz¬tt
63 62 cbvabv w|wATrwtw¬tt=z|zATrztz¬tt
64 58 63 elab2g sucw|wATrwtw¬ttVsucw|wATrwtw¬ttw|wATrwtw¬ttsucw|wATrwtw¬ttATrsucw|wATrwtw¬tttsucw|wATrwtw¬tt¬tt
65 64 biimprd sucw|wATrwtw¬ttVsucw|wATrwtw¬ttATrsucw|wATrwtw¬tttsucw|wATrwtw¬tt¬ttsucw|wATrwtw¬ttw|wATrwtw¬tt
66 sucexg w|wATrwtw¬ttAsucw|wATrwtw¬ttV
67 65 66 syl11 sucw|wATrwtw¬ttATrsucw|wATrwtw¬tttsucw|wATrwtw¬tt¬ttw|wATrwtw¬ttAsucw|wATrwtw¬ttw|wATrwtw¬tt
68 42 52 67 mp3an23 sucw|wATrwtw¬ttAw|wATrwtw¬ttAsucw|wATrwtw¬ttw|wATrwtw¬tt
69 68 com12 w|wATrwtw¬ttAsucw|wATrwtw¬ttAsucw|wATrwtw¬ttw|wATrwtw¬tt
70 elssuni sucw|wATrwtw¬ttw|wATrwtw¬ttsucw|wATrwtw¬ttw|wATrwtw¬tt
71 sucssel w|wATrwtw¬ttAsucw|wATrwtw¬ttw|wATrwtw¬ttw|wATrwtw¬ttw|wATrwtw¬tt
72 70 71 syl5 w|wATrwtw¬ttAsucw|wATrwtw¬ttw|wATrwtw¬ttw|wATrwtw¬ttw|wATrwtw¬tt
73 69 72 syld w|wATrwtw¬ttAsucw|wATrwtw¬ttAw|wATrwtw¬ttw|wATrwtw¬tt
74 40 73 mpd w|wATrwtw¬ttAw|wATrwtw¬ttw|wATrwtw¬tt
75 34 74 syl6 AVxxATrxxAw|wATrwtw¬ttATrw|wATrwtw¬ttw|wATrwtw¬ttw|wATrwtw¬tt
76 24 75 mpan2i AVxxATrxxAw|wATrwtw¬ttAw|wATrwtw¬ttw|wATrwtw¬tt
77 23 76 biimtrrid AVxxATrxxAw|wATrwtw¬ttA¬w|wATrwtw¬tt=Aw|wATrwtw¬ttw|wATrwtw¬tt
78 22 77 mpani AVxxATrxxA¬w|wATrwtw¬tt=Aw|wATrwtw¬ttw|wATrwtw¬tt
79 21 78 mt3i AVxxATrxxAw|wATrwtw¬tt=A
80 24 44 pm3.2i Trw|wATrwtw¬ttzw|wATrwtw¬tt¬zz
81 treq w|wATrwtw¬tt=ATrw|wATrwtw¬ttTrA
82 raleq w|wATrwtw¬tt=Azw|wATrwtw¬tt¬zzzA¬zz
83 81 82 anbi12d w|wATrwtw¬tt=ATrw|wATrwtw¬ttzw|wATrwtw¬tt¬zzTrAzA¬zz
84 80 83 mpbii w|wATrwtw¬tt=ATrAzA¬zz
85 79 84 syl AVxxATrxxATrAzA¬zz
86 85 ex AVxxATrxxATrAzA¬zz