Metamath Proof Explorer


Theorem fgabs

Description: Absorption law for filter generation. (Contributed by Mario Carneiro, 15-Oct-2015)

Ref Expression
Assertion fgabs FfBasYYXXfilGenYfilGenF=XfilGenF

Proof

Step Hyp Ref Expression
1 simpll FfBasYYXXVFfBasY
2 fgcl FfBasYYfilGenFFilY
3 filfbas YfilGenFFilYYfilGenFfBasY
4 1 2 3 3syl FfBasYYXXVYfilGenFfBasY
5 fbsspw YfilGenFfBasYYfilGenF𝒫Y
6 4 5 syl FfBasYYXXVYfilGenF𝒫Y
7 simplr FfBasYYXXVYX
8 7 sspwd FfBasYYXXV𝒫Y𝒫X
9 6 8 sstrd FfBasYYXXVYfilGenF𝒫X
10 simpr FfBasYYXXVXV
11 fbasweak YfilGenFfBasYYfilGenF𝒫XXVYfilGenFfBasX
12 4 9 10 11 syl3anc FfBasYYXXVYfilGenFfBasX
13 elfg YfilGenFfBasXxXfilGenYfilGenFxXyYfilGenFyx
14 12 13 syl FfBasYYXXVxXfilGenYfilGenFxXyYfilGenFyx
15 1 adantr FfBasYYXXVxXFfBasY
16 elfg FfBasYyYfilGenFyYzFzy
17 15 16 syl FfBasYYXXVxXyYfilGenFyYzFzy
18 fbsspw FfBasYF𝒫Y
19 1 18 syl FfBasYYXXVF𝒫Y
20 19 8 sstrd FfBasYYXXVF𝒫X
21 fbasweak FfBasYF𝒫XXVFfBasX
22 1 20 10 21 syl3anc FfBasYYXXVFfBasX
23 fgcl FfBasXXfilGenFFilX
24 22 23 syl FfBasYYXXVXfilGenFFilX
25 24 ad2antrr FfBasYYXXVxXyYzFzyyxXfilGenFFilX
26 ssfg FfBasXFXfilGenF
27 22 26 syl FfBasYYXXVFXfilGenF
28 27 adantr FfBasYYXXVxXyYFXfilGenF
29 28 sselda FfBasYYXXVxXyYzFzXfilGenF
30 29 adantrr FfBasYYXXVxXyYzFzyzXfilGenF
31 30 adantrr FfBasYYXXVxXyYzFzyyxzXfilGenF
32 simplrl FfBasYYXXVxXyYzFzyyxxX
33 simprlr FfBasYYXXVxXyYzFzyyxzy
34 simprr FfBasYYXXVxXyYzFzyyxyx
35 33 34 sstrd FfBasYYXXVxXyYzFzyyxzx
36 filss XfilGenFFilXzXfilGenFxXzxxXfilGenF
37 25 31 32 35 36 syl13anc FfBasYYXXVxXyYzFzyyxxXfilGenF
38 37 expr FfBasYYXXVxXyYzFzyyxxXfilGenF
39 38 rexlimdvaa FfBasYYXXVxXyYzFzyyxxXfilGenF
40 39 anassrs FfBasYYXXVxXyYzFzyyxxXfilGenF
41 40 expimpd FfBasYYXXVxXyYzFzyyxxXfilGenF
42 17 41 sylbid FfBasYYXXVxXyYfilGenFyxxXfilGenF
43 42 rexlimdv FfBasYYXXVxXyYfilGenFyxxXfilGenF
44 43 expimpd FfBasYYXXVxXyYfilGenFyxxXfilGenF
45 14 44 sylbid FfBasYYXXVxXfilGenYfilGenFxXfilGenF
46 45 ssrdv FfBasYYXXVXfilGenYfilGenFXfilGenF
47 ssfg FfBasYFYfilGenF
48 47 ad2antrr FfBasYYXXVFYfilGenF
49 fgss FfBasXYfilGenFfBasXFYfilGenFXfilGenFXfilGenYfilGenF
50 22 12 48 49 syl3anc FfBasYYXXVXfilGenFXfilGenYfilGenF
51 46 50 eqssd FfBasYYXXVXfilGenYfilGenF=XfilGenF
52 51 ex FfBasYYXXVXfilGenYfilGenF=XfilGenF
53 df-fg filGen=wV,xfBaswy𝒫w|x𝒫y
54 53 reldmmpo ReldomfilGen
55 54 ovprc1 ¬XVXfilGenYfilGenF=
56 54 ovprc1 ¬XVXfilGenF=
57 55 56 eqtr4d ¬XVXfilGenYfilGenF=XfilGenF
58 52 57 pm2.61d1 FfBasYYXXfilGenYfilGenF=XfilGenF