Metamath Proof Explorer


Theorem fgcl

Description: A generated filter is a filter. (Contributed by Jeff Hankins, 3-Sep-2009) (Revised by Stefan O'Rear, 2-Aug-2015)

Ref Expression
Assertion fgcl F fBas X X filGen F Fil X

Proof

Step Hyp Ref Expression
1 elfg F fBas X z X filGen F z X y F y z
2 elfvex F fBas X X V
3 fbasne0 F fBas X F
4 n0 F y y F
5 3 4 sylib F fBas X y y F
6 fbelss F fBas X y F y X
7 6 ex F fBas X y F y X
8 7 ancld F fBas X y F y F y X
9 8 eximdv F fBas X y y F y y F y X
10 5 9 mpd F fBas X y y F y X
11 df-rex y F y X y y F y X
12 10 11 sylibr F fBas X y F y X
13 elfvdm F fBas X X dom fBas
14 sseq2 z = X y z y X
15 14 rexbidv z = X y F y z y F y X
16 15 sbcieg X dom fBas [˙X / z]˙ y F y z y F y X
17 13 16 syl F fBas X [˙X / z]˙ y F y z y F y X
18 12 17 mpbird F fBas X [˙X / z]˙ y F y z
19 0nelfb F fBas X ¬ F
20 0ex V
21 sseq2 z = y z y
22 21 rexbidv z = y F y z y F y
23 20 22 sbcie [˙ / z]˙ y F y z y F y
24 ss0 y y =
25 24 eleq1d y y F F
26 25 biimpac y F y F
27 26 rexlimiva y F y F
28 23 27 sylbi [˙ / z]˙ y F y z F
29 19 28 nsyl F fBas X ¬ [˙ / z]˙ y F y z
30 sstr y v v u y u
31 30 expcom v u y v y u
32 31 reximdv v u y F y v y F y u
33 32 3ad2ant3 F fBas X u X v u y F y v y F y u
34 vex v V
35 sseq2 z = v y z y v
36 35 rexbidv z = v y F y z y F y v
37 34 36 sbcie [˙v / z]˙ y F y z y F y v
38 vex u V
39 sseq2 z = u y z y u
40 39 rexbidv z = u y F y z y F y u
41 38 40 sbcie [˙u / z]˙ y F y z y F y u
42 33 37 41 3imtr4g F fBas X u X v u [˙v / z]˙ y F y z [˙u / z]˙ y F y z
43 fbasssin F fBas X z F w F y F y z w
44 43 3expib F fBas X z F w F y F y z w
45 sstr2 y z w z w u v y u v
46 45 com12 z w u v y z w y u v
47 46 reximdv z w u v y F y z w y F y u v
48 ss2in z u w v z w u v
49 47 48 syl11 y F y z w z u w v y F y u v
50 44 49 syl6 F fBas X z F w F z u w v y F y u v
51 50 exp5c F fBas X z F w F z u w v y F y u v
52 51 imp31 F fBas X z F w F z u w v y F y u v
53 52 impancom F fBas X z F z u w F w v y F y u v
54 53 rexlimdv F fBas X z F z u w F w v y F y u v
55 54 rexlimdva2 F fBas X z F z u w F w v y F y u v
56 55 impd F fBas X z F z u w F w v y F y u v
57 56 3ad2ant1 F fBas X u X v X z F z u w F w v y F y u v
58 sseq1 y = z y u z u
59 58 cbvrexvw y F y u z F z u
60 41 59 bitri [˙u / z]˙ y F y z z F z u
61 sseq1 y = w y v w v
62 61 cbvrexvw y F y v w F w v
63 37 62 bitri [˙v / z]˙ y F y z w F w v
64 60 63 anbi12i [˙u / z]˙ y F y z [˙v / z]˙ y F y z z F z u w F w v
65 38 inex1 u v V
66 sseq2 z = u v y z y u v
67 66 rexbidv z = u v y F y z y F y u v
68 65 67 sbcie [˙ u v / z]˙ y F y z y F y u v
69 57 64 68 3imtr4g F fBas X u X v X [˙u / z]˙ y F y z [˙v / z]˙ y F y z [˙ u v / z]˙ y F y z
70 1 2 18 29 42 69 isfild F fBas X X filGen F Fil X