Metamath Proof Explorer


Theorem fgss2

Description: A condition for a filter to be finer than another involving their filter bases. (Contributed by Jeff Hankins, 3-Sep-2009) (Revised by Stefan O'Rear, 2-Aug-2015)

Ref Expression
Assertion fgss2 FfBasXGfBasXXfilGenFXfilGenGxFyGyx

Proof

Step Hyp Ref Expression
1 ssfg FfBasXFXfilGenF
2 1 adantr FfBasXGfBasXFXfilGenF
3 2 sseld FfBasXGfBasXxFxXfilGenF
4 ssel2 XfilGenFXfilGenGxXfilGenFxXfilGenG
5 elfg GfBasXxXfilGenGxXyGyx
6 simpr xXyGyxyGyx
7 5 6 syl6bi GfBasXxXfilGenGyGyx
8 7 adantl FfBasXGfBasXxXfilGenGyGyx
9 4 8 syl5 FfBasXGfBasXXfilGenFXfilGenGxXfilGenFyGyx
10 9 expd FfBasXGfBasXXfilGenFXfilGenGxXfilGenFyGyx
11 3 10 syl5d FfBasXGfBasXXfilGenFXfilGenGxFyGyx
12 11 ralrimdv FfBasXGfBasXXfilGenFXfilGenGxFyGyx
13 sseq2 x=uyxyu
14 13 rexbidv x=uyGyxyGyu
15 14 rspcv uFxFyGyxyGyu
16 15 adantl FfBasXGfBasXuFxFyGyxyGyu
17 sstr yuutyt
18 sseq1 v=yvtyt
19 18 rspcev yGytvGvt
20 19 adantl FfBasXGfBasXuFyGytvGvt
21 20 a1d FfBasXGfBasXuFyGyttXvGvt
22 17 21 sylanr2 FfBasXGfBasXuFyGyuuttXvGvt
23 22 ancld FfBasXGfBasXuFyGyuuttXtXvGvt
24 23 exp45 FfBasXGfBasXuFyGyuuttXtXvGvt
25 24 rexlimdv FfBasXGfBasXuFyGyuuttXtXvGvt
26 16 25 syld FfBasXGfBasXuFxFyGyxuttXtXvGvt
27 26 impancom FfBasXGfBasXxFyGyxuFuttXtXvGvt
28 27 rexlimdv FfBasXGfBasXxFyGyxuFuttXtXvGvt
29 28 impcomd FfBasXGfBasXxFyGyxtXuFuttXvGvt
30 elfg FfBasXtXfilGenFtXuFut
31 30 adantr FfBasXGfBasXtXfilGenFtXuFut
32 31 adantr FfBasXGfBasXxFyGyxtXfilGenFtXuFut
33 elfg GfBasXtXfilGenGtXvGvt
34 33 adantl FfBasXGfBasXtXfilGenGtXvGvt
35 34 adantr FfBasXGfBasXxFyGyxtXfilGenGtXvGvt
36 29 32 35 3imtr4d FfBasXGfBasXxFyGyxtXfilGenFtXfilGenG
37 36 ssrdv FfBasXGfBasXxFyGyxXfilGenFXfilGenG
38 37 ex FfBasXGfBasXxFyGyxXfilGenFXfilGenG
39 12 38 impbid FfBasXGfBasXXfilGenFXfilGenGxFyGyx