Metamath Proof Explorer


Theorem tuslemOLD

Description: Obsolete proof of tuslem as of 28-Oct-2024. Lemma for tusbas , tusunif , and tustopn . (Contributed by Thierry Arnoux, 5-Dec-2017) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Hypothesis tuslem.k K=toUnifSpU
Assertion tuslemOLD UUnifOnXX=BaseKU=UnifSetKunifTopU=TopOpenK

Proof

Step Hyp Ref Expression
1 tuslem.k K=toUnifSpU
2 baseid Base=SlotBasendx
3 1re 1
4 1lt9 1<9
5 3 4 ltneii 19
6 basendx Basendx=1
7 tsetndx TopSetndx=9
8 6 7 neeq12i BasendxTopSetndx19
9 5 8 mpbir BasendxTopSetndx
10 2 9 setsnid BaseBasendxdomUUnifSetndxU=BaseBasendxdomUUnifSetndxUsSetTopSetndxunifTopU
11 ustbas2 UUnifOnXX=domU
12 uniexg UUnifOnXUV
13 dmexg UVdomUV
14 eqid BasendxdomUUnifSetndxU=BasendxdomUUnifSetndxU
15 df-unif UnifSet=Slot13
16 1nn 1
17 3nn0 30
18 1nn0 10
19 1lt10 1<10
20 16 17 18 19 declti 1<13
21 3nn 3
22 18 21 decnncl 13
23 14 15 20 22 2strbas domUVdomU=BaseBasendxdomUUnifSetndxU
24 12 13 23 3syl UUnifOnXdomU=BaseBasendxdomUUnifSetndxU
25 11 24 eqtrd UUnifOnXX=BaseBasendxdomUUnifSetndxU
26 tusval UUnifOnXtoUnifSpU=BasendxdomUUnifSetndxUsSetTopSetndxunifTopU
27 1 26 eqtrid UUnifOnXK=BasendxdomUUnifSetndxUsSetTopSetndxunifTopU
28 27 fveq2d UUnifOnXBaseK=BaseBasendxdomUUnifSetndxUsSetTopSetndxunifTopU
29 10 25 28 3eqtr4a UUnifOnXX=BaseK
30 unifid UnifSet=SlotUnifSetndx
31 9re 9
32 9nn0 90
33 9lt10 9<10
34 16 17 32 33 declti 9<13
35 31 34 gtneii 139
36 unifndx UnifSetndx=13
37 36 7 neeq12i UnifSetndxTopSetndx139
38 35 37 mpbir UnifSetndxTopSetndx
39 30 38 setsnid UnifSetBasendxdomUUnifSetndxU=UnifSetBasendxdomUUnifSetndxUsSetTopSetndxunifTopU
40 14 15 20 22 2strop UUnifOnXU=UnifSetBasendxdomUUnifSetndxU
41 27 fveq2d UUnifOnXUnifSetK=UnifSetBasendxdomUUnifSetndxUsSetTopSetndxunifTopU
42 39 40 41 3eqtr4a UUnifOnXU=UnifSetK
43 prex BasendxdomUUnifSetndxUV
44 fvex unifTopUV
45 tsetid TopSet=SlotTopSetndx
46 45 setsid BasendxdomUUnifSetndxUVunifTopUVunifTopU=TopSetBasendxdomUUnifSetndxUsSetTopSetndxunifTopU
47 43 44 46 mp2an unifTopU=TopSetBasendxdomUUnifSetndxUsSetTopSetndxunifTopU
48 27 fveq2d UUnifOnXTopSetK=TopSetBasendxdomUUnifSetndxUsSetTopSetndxunifTopU
49 47 48 eqtr4id UUnifOnXunifTopU=TopSetK
50 utopbas UUnifOnXX=unifTopU
51 49 unieqd UUnifOnXunifTopU=TopSetK
52 50 29 51 3eqtr3rd UUnifOnXTopSetK=BaseK
53 52 oveq2d UUnifOnXTopSetK𝑡TopSetK=TopSetK𝑡BaseK
54 fvex TopSetKV
55 eqid TopSetK=TopSetK
56 55 restid TopSetKVTopSetK𝑡TopSetK=TopSetK
57 54 56 ax-mp TopSetK𝑡TopSetK=TopSetK
58 eqid BaseK=BaseK
59 eqid TopSetK=TopSetK
60 58 59 topnval TopSetK𝑡BaseK=TopOpenK
61 53 57 60 3eqtr3g UUnifOnXTopSetK=TopOpenK
62 49 61 eqtrd UUnifOnXunifTopU=TopOpenK
63 29 42 62 3jca UUnifOnXX=BaseKU=UnifSetKunifTopU=TopOpenK