Metamath Proof Explorer


Theorem fneval

Description: Two covers are finer than each other iff they are both bases for the same topology. (Contributed by Mario Carneiro, 11-Sep-2015)

Ref Expression
Hypothesis fneval.1 ˙=FneFne-1
Assertion fneval AVBWA˙BtopGenA=topGenB

Proof

Step Hyp Ref Expression
1 fneval.1 ˙=FneFne-1
2 1 breqi A˙BAFneFne-1B
3 brin AFneFne-1BAFneBAFne-1B
4 fnerel RelFne
5 4 relbrcnv AFne-1BBFneA
6 5 anbi2i AFneBAFne-1BAFneBBFneA
7 3 6 bitri AFneFne-1BAFneBBFneA
8 2 7 bitri A˙BAFneBBFneA
9 eqid A=A
10 eqid B=B
11 9 10 isfne4b BWAFneBA=BtopGenAtopGenB
12 10 9 isfne4b AVBFneAB=AtopGenBtopGenA
13 eqcom B=AA=B
14 13 anbi1i B=AtopGenBtopGenAA=BtopGenBtopGenA
15 12 14 bitrdi AVBFneAA=BtopGenBtopGenA
16 11 15 bi2anan9r AVBWAFneBBFneAA=BtopGenAtopGenBA=BtopGenBtopGenA
17 eqss topGenA=topGenBtopGenAtopGenBtopGenBtopGenA
18 17 anbi2i A=BtopGenA=topGenBA=BtopGenAtopGenBtopGenBtopGenA
19 anandi A=BtopGenAtopGenBtopGenBtopGenAA=BtopGenAtopGenBA=BtopGenBtopGenA
20 18 19 bitri A=BtopGenA=topGenBA=BtopGenAtopGenBA=BtopGenBtopGenA
21 16 20 bitr4di AVBWAFneBBFneAA=BtopGenA=topGenB
22 unieq topGenA=topGenBtopGenA=topGenB
23 unitg AVtopGenA=A
24 unitg BWtopGenB=B
25 23 24 eqeqan12d AVBWtopGenA=topGenBA=B
26 22 25 imbitrid AVBWtopGenA=topGenBA=B
27 26 pm4.71rd AVBWtopGenA=topGenBA=BtopGenA=topGenB
28 21 27 bitr4d AVBWAFneBBFneAtopGenA=topGenB
29 8 28 bitrid AVBWA˙BtopGenA=topGenB