Metamath Proof Explorer


Theorem dfon2lem6

Description: Lemma for dfon2 . A transitive class of sets satisfying the new definition satisfies the new definition. (Contributed by Scott Fenton, 25-Feb-2011)

Ref Expression
Assertion dfon2lem6 TrSxSzzxTrzzxyySTryyS

Proof

Step Hyp Ref Expression
1 pssss ySyS
2 ssralv ySxSzzxTrzzxxyzzxTrzzx
3 1 2 syl ySxSzzxTrzzxxyzzxTrzzx
4 3 impcom xSzzxTrzzxySxyzzxTrzzx
5 4 adantrr xSzzxTrzzxySTryxyzzxTrzzx
6 5 ad2ant2lr TrSxSzzxTrzzxySTrysSyxyzzxTrzzx
7 psseq2 x=wzxzw
8 7 anbi1d x=wzxTrzzwTrz
9 elequ2 x=wzxzw
10 8 9 imbi12d x=wzxTrzzxzwTrzzw
11 10 albidv x=wzzxTrzzxzzwTrzzw
12 11 rspccv xyzzxTrzzxwyzzwTrzzw
13 6 12 syl TrSxSzzxTrzzxySTrysSywyzzwTrzzw
14 13 imp TrSxSzzxTrzzxySTrysSywyzzwTrzzw
15 eldifi sSysS
16 psseq2 x=szxzs
17 16 anbi1d x=szxTrzzsTrz
18 elequ2 x=szxzs
19 17 18 imbi12d x=szxTrzzxzsTrzzs
20 19 albidv x=szzxTrzzxzzsTrzzs
21 20 rspcv sSxSzzxTrzzxzzsTrzzs
22 15 21 syl sSyxSzzxTrzzxzzsTrzzs
23 psseq1 z=tzsts
24 treq z=tTrzTrt
25 23 24 anbi12d z=tzsTrztsTrt
26 elequ1 z=tzsts
27 25 26 imbi12d z=tzsTrzzstsTrtts
28 27 cbvalvw zzsTrzzsttsTrtts
29 22 28 imbitrdi sSyxSzzxTrzzxttsTrtts
30 29 impcom xSzzxTrzzxsSyttsTrtts
31 30 ad2ant2l TrSxSzzxTrzzxySTrysSyttsTrtts
32 31 adantr TrSxSzzxTrzzxySTrysSywyttsTrtts
33 vex wV
34 vex sV
35 33 34 dfon2lem5 zzwTrzzwttsTrttswsw=ssw
36 3orrot wsw=ssww=sswws
37 3orass w=sswwsw=sswws
38 36 37 bitri wsw=ssww=sswws
39 eleq1a sSyw=swSy
40 elndif wy¬wSy
41 39 40 nsyli sSywy¬w=s
42 41 imp sSywy¬w=s
43 42 adantll ySTrysSywy¬w=s
44 43 adantll TrSxSzzxTrzzxySTrysSywy¬w=s
45 orel1 ¬w=sw=sswwsswws
46 trss Trywywy
47 eldifn sSy¬sy
48 ssel wyswsy
49 48 con3d wy¬sy¬sw
50 47 49 syl5com sSywy¬sw
51 46 50 syl9 TrysSywy¬sw
52 51 adantl ySTrysSywy¬sw
53 52 imp31 ySTrysSywy¬sw
54 53 adantll TrSxSzzxTrzzxySTrysSywy¬sw
55 orel1 ¬swswwsws
56 54 55 syl TrSxSzzxTrzzxySTrysSywyswwsws
57 45 56 syl9r TrSxSzzxTrzzxySTrysSywy¬w=sw=sswwsws
58 44 57 mpd TrSxSzzxTrzzxySTrysSywyw=sswwsws
59 38 58 biimtrid TrSxSzzxTrzzxySTrysSywywsw=sswws
60 35 59 syl5 TrSxSzzxTrzzxySTrysSywyzzwTrzzwttsTrttsws
61 14 32 60 mp2and TrSxSzzxTrzzxySTrysSywyws
62 61 ex TrSxSzzxTrzzxySTrysSywyws
63 62 ssrdv TrSxSzzxTrzzxySTrysSyys
64 dfpss2 ysys¬y=s
65 psseq1 z=yzsys
66 treq z=yTrzTry
67 65 66 anbi12d z=yzsTrzysTry
68 elequ1 z=yzsys
69 67 68 imbi12d z=yzsTrzzsysTryys
70 69 spvv zzsTrzzsysTryys
71 70 expd zzsTrzzsysTryys
72 71 com23 zzsTrzzsTryysys
73 22 72 syl6 sSyxSzzxTrzzxTryysys
74 73 com3l xSzzxTrzzxTrysSyysys
75 74 adantld xSzzxTrzzxySTrysSyysys
76 75 adantl TrSxSzzxTrzzxySTrysSyysys
77 76 imp32 TrSxSzzxTrzzxySTrysSyysys
78 64 77 biimtrrid TrSxSzzxTrzzxySTrysSyys¬y=sys
79 63 78 mpand TrSxSzzxTrzzxySTrysSy¬y=sys
80 79 orrd TrSxSzzxTrzzxySTrysSyy=sys
81 80 anassrs TrSxSzzxTrzzxySTrysSyy=sys
82 81 ralrimiva TrSxSzzxTrzzxySTrysSyy=sys
83 pssdif ySSy
84 r19.2z SysSyy=syssSyy=sys
85 84 ex SysSyy=syssSyy=sys
86 83 85 syl ySsSyy=syssSyy=sys
87 86 ad2antrl TrSxSzzxTrzzxySTrysSyy=syssSyy=sys
88 eleq1w y=sySsS
89 15 88 imbitrrid y=ssSyyS
90 89 a1i TrSxSzzxTrzzxySTryy=ssSyyS
91 trel TrSyssSyS
92 91 expd TrSyssSyS
93 15 92 syl7 TrSyssSyyS
94 93 ad2antrr TrSxSzzxTrzzxySTryyssSyyS
95 90 94 jaod TrSxSzzxTrzzxySTryy=syssSyyS
96 95 com23 TrSxSzzxTrzzxySTrysSyy=sysyS
97 96 rexlimdv TrSxSzzxTrzzxySTrysSyy=sysyS
98 87 97 syld TrSxSzzxTrzzxySTrysSyy=sysyS
99 82 98 mpd TrSxSzzxTrzzxySTryyS
100 99 ex TrSxSzzxTrzzxySTryyS
101 100 alrimiv TrSxSzzxTrzzxyySTryyS