Metamath Proof Explorer


Theorem rspectopn

Description: The topology component of the spectrum of a ring. (Contributed by Thierry Arnoux, 4-Jun-2024)

Ref Expression
Hypotheses rspecbas.1 No typesetting found for |- S = ( Spec ` R ) with typecode |-
rspectopn.1 I=LIdealR
rspectopn.2 No typesetting found for |- P = ( PrmIdeal ` R ) with typecode |-
rspectopn.3 J=raniIjP|¬ij
Assertion rspectopn RRingJ=TopOpenS

Proof

Step Hyp Ref Expression
1 rspecbas.1 Could not format S = ( Spec ` R ) : No typesetting found for |- S = ( Spec ` R ) with typecode |-
2 rspectopn.1 I=LIdealR
3 rspectopn.2 Could not format P = ( PrmIdeal ` R ) : No typesetting found for |- P = ( PrmIdeal ` R ) with typecode |-
4 rspectopn.3 J=raniIjP|¬ij
5 rspecval Could not format ( R e. Ring -> ( Spec ` R ) = ( ( IDLsrg ` R ) |`s ( PrmIdeal ` R ) ) ) : No typesetting found for |- ( R e. Ring -> ( Spec ` R ) = ( ( IDLsrg ` R ) |`s ( PrmIdeal ` R ) ) ) with typecode |-
6 3 oveq2i Could not format ( ( IDLsrg ` R ) |`s P ) = ( ( IDLsrg ` R ) |`s ( PrmIdeal ` R ) ) : No typesetting found for |- ( ( IDLsrg ` R ) |`s P ) = ( ( IDLsrg ` R ) |`s ( PrmIdeal ` R ) ) with typecode |-
7 5 1 6 3eqtr4g Could not format ( R e. Ring -> S = ( ( IDLsrg ` R ) |`s P ) ) : No typesetting found for |- ( R e. Ring -> S = ( ( IDLsrg ` R ) |`s P ) ) with typecode |-
8 7 fveq2d Could not format ( R e. Ring -> ( TopOpen ` S ) = ( TopOpen ` ( ( IDLsrg ` R ) |`s P ) ) ) : No typesetting found for |- ( R e. Ring -> ( TopOpen ` S ) = ( TopOpen ` ( ( IDLsrg ` R ) |`s P ) ) ) with typecode |-
9 eqid Could not format ( ( IDLsrg ` R ) |`s P ) = ( ( IDLsrg ` R ) |`s P ) : No typesetting found for |- ( ( IDLsrg ` R ) |`s P ) = ( ( IDLsrg ` R ) |`s P ) with typecode |-
10 eqid Could not format ( TopOpen ` ( IDLsrg ` R ) ) = ( TopOpen ` ( IDLsrg ` R ) ) : No typesetting found for |- ( TopOpen ` ( IDLsrg ` R ) ) = ( TopOpen ` ( IDLsrg ` R ) ) with typecode |-
11 9 10 resstopn Could not format ( ( TopOpen ` ( IDLsrg ` R ) ) |`t P ) = ( TopOpen ` ( ( IDLsrg ` R ) |`s P ) ) : No typesetting found for |- ( ( TopOpen ` ( IDLsrg ` R ) ) |`t P ) = ( TopOpen ` ( ( IDLsrg ` R ) |`s P ) ) with typecode |-
12 8 11 eqtr4di Could not format ( R e. Ring -> ( TopOpen ` S ) = ( ( TopOpen ` ( IDLsrg ` R ) ) |`t P ) ) : No typesetting found for |- ( R e. Ring -> ( TopOpen ` S ) = ( ( TopOpen ` ( IDLsrg ` R ) ) |`t P ) ) with typecode |-
13 eqid Could not format ( IDLsrg ` R ) = ( IDLsrg ` R ) : No typesetting found for |- ( IDLsrg ` R ) = ( IDLsrg ` R ) with typecode |-
14 eqid raniIjI|¬ij=raniIjI|¬ij
15 13 2 14 idlsrgtset Could not format ( R e. Ring -> ran ( i e. I |-> { j e. I | -. i C_ j } ) = ( TopSet ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( R e. Ring -> ran ( i e. I |-> { j e. I | -. i C_ j } ) = ( TopSet ` ( IDLsrg ` R ) ) ) with typecode |-
16 2 fvexi IV
17 16 rabex jI|¬ijV
18 17 a1i RRingiIjI|¬ijV
19 simp2 RRingiIjI¬ijjI
20 13 2 idlsrgbas Could not format ( R e. Ring -> I = ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( R e. Ring -> I = ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
21 20 adantr Could not format ( ( R e. Ring /\ i e. I ) -> I = ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( ( R e. Ring /\ i e. I ) -> I = ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
22 21 3ad2ant1 Could not format ( ( ( R e. Ring /\ i e. I ) /\ j e. I /\ -. i C_ j ) -> I = ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( ( ( R e. Ring /\ i e. I ) /\ j e. I /\ -. i C_ j ) -> I = ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
23 19 22 eleqtrd Could not format ( ( ( R e. Ring /\ i e. I ) /\ j e. I /\ -. i C_ j ) -> j e. ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( ( ( R e. Ring /\ i e. I ) /\ j e. I /\ -. i C_ j ) -> j e. ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
24 23 rabssdv Could not format ( ( R e. Ring /\ i e. I ) -> { j e. I | -. i C_ j } C_ ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( ( R e. Ring /\ i e. I ) -> { j e. I | -. i C_ j } C_ ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
25 18 24 elpwd Could not format ( ( R e. Ring /\ i e. I ) -> { j e. I | -. i C_ j } e. ~P ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( ( R e. Ring /\ i e. I ) -> { j e. I | -. i C_ j } e. ~P ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
26 25 ralrimiva Could not format ( R e. Ring -> A. i e. I { j e. I | -. i C_ j } e. ~P ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( R e. Ring -> A. i e. I { j e. I | -. i C_ j } e. ~P ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
27 eqid iIjI|¬ij=iIjI|¬ij
28 27 rnmptss Could not format ( A. i e. I { j e. I | -. i C_ j } e. ~P ( Base ` ( IDLsrg ` R ) ) -> ran ( i e. I |-> { j e. I | -. i C_ j } ) C_ ~P ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( A. i e. I { j e. I | -. i C_ j } e. ~P ( Base ` ( IDLsrg ` R ) ) -> ran ( i e. I |-> { j e. I | -. i C_ j } ) C_ ~P ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
29 26 28 syl Could not format ( R e. Ring -> ran ( i e. I |-> { j e. I | -. i C_ j } ) C_ ~P ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( R e. Ring -> ran ( i e. I |-> { j e. I | -. i C_ j } ) C_ ~P ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
30 15 29 eqsstrrd Could not format ( R e. Ring -> ( TopSet ` ( IDLsrg ` R ) ) C_ ~P ( Base ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( R e. Ring -> ( TopSet ` ( IDLsrg ` R ) ) C_ ~P ( Base ` ( IDLsrg ` R ) ) ) with typecode |-
31 eqid Could not format ( Base ` ( IDLsrg ` R ) ) = ( Base ` ( IDLsrg ` R ) ) : No typesetting found for |- ( Base ` ( IDLsrg ` R ) ) = ( Base ` ( IDLsrg ` R ) ) with typecode |-
32 eqid Could not format ( TopSet ` ( IDLsrg ` R ) ) = ( TopSet ` ( IDLsrg ` R ) ) : No typesetting found for |- ( TopSet ` ( IDLsrg ` R ) ) = ( TopSet ` ( IDLsrg ` R ) ) with typecode |-
33 31 32 topnid Could not format ( ( TopSet ` ( IDLsrg ` R ) ) C_ ~P ( Base ` ( IDLsrg ` R ) ) -> ( TopSet ` ( IDLsrg ` R ) ) = ( TopOpen ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( ( TopSet ` ( IDLsrg ` R ) ) C_ ~P ( Base ` ( IDLsrg ` R ) ) -> ( TopSet ` ( IDLsrg ` R ) ) = ( TopOpen ` ( IDLsrg ` R ) ) ) with typecode |-
34 30 33 syl Could not format ( R e. Ring -> ( TopSet ` ( IDLsrg ` R ) ) = ( TopOpen ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( R e. Ring -> ( TopSet ` ( IDLsrg ` R ) ) = ( TopOpen ` ( IDLsrg ` R ) ) ) with typecode |-
35 15 34 eqtrd Could not format ( R e. Ring -> ran ( i e. I |-> { j e. I | -. i C_ j } ) = ( TopOpen ` ( IDLsrg ` R ) ) ) : No typesetting found for |- ( R e. Ring -> ran ( i e. I |-> { j e. I | -. i C_ j } ) = ( TopOpen ` ( IDLsrg ` R ) ) ) with typecode |-
36 35 oveq1d Could not format ( R e. Ring -> ( ran ( i e. I |-> { j e. I | -. i C_ j } ) |`t P ) = ( ( TopOpen ` ( IDLsrg ` R ) ) |`t P ) ) : No typesetting found for |- ( R e. Ring -> ( ran ( i e. I |-> { j e. I | -. i C_ j } ) |`t P ) = ( ( TopOpen ` ( IDLsrg ` R ) ) |`t P ) ) with typecode |-
37 16 mptex iIjI|¬ijV
38 37 rnex raniIjI|¬ijV
39 3 fvexi PV
40 elrest raniIjI|¬ijVPVxraniIjI|¬ij𝑡PyraniIjI|¬ijx=yP
41 38 39 40 mp2an xraniIjI|¬ij𝑡PyraniIjI|¬ijx=yP
42 17 rgenw iIjI|¬ijV
43 ineq1 y=jI|¬ijyP=jI|¬ijP
44 43 eqeq2d y=jI|¬ijx=yPx=jI|¬ijP
45 27 44 rexrnmptw iIjI|¬ijVyraniIjI|¬ijx=yPiIx=jI|¬ijP
46 42 45 ax-mp yraniIjI|¬ijx=yPiIx=jI|¬ijP
47 inrab2 jI|¬ijP=jIP|¬ij
48 prmidlssidl Could not format ( R e. Ring -> ( PrmIdeal ` R ) C_ ( LIdeal ` R ) ) : No typesetting found for |- ( R e. Ring -> ( PrmIdeal ` R ) C_ ( LIdeal ` R ) ) with typecode |-
49 48 3 2 3sstr4g RRingPI
50 sseqin2 PIIP=P
51 49 50 sylib RRingIP=P
52 51 rabeqdv RRingjIP|¬ij=jP|¬ij
53 47 52 eqtrid RRingjI|¬ijP=jP|¬ij
54 53 eqeq2d RRingx=jI|¬ijPx=jP|¬ij
55 54 rexbidv RRingiIx=jI|¬ijPiIx=jP|¬ij
56 46 55 bitrid RRingyraniIjI|¬ijx=yPiIx=jP|¬ij
57 41 56 bitrid RRingxraniIjI|¬ij𝑡PiIx=jP|¬ij
58 4 eleq2i xJxraniIjP|¬ij
59 eqid iIjP|¬ij=iIjP|¬ij
60 39 rabex jP|¬ijV
61 59 60 elrnmpti xraniIjP|¬ijiIx=jP|¬ij
62 58 61 bitri xJiIx=jP|¬ij
63 57 62 bitr4di RRingxraniIjI|¬ij𝑡PxJ
64 63 eqrdv RRingraniIjI|¬ij𝑡P=J
65 12 36 64 3eqtr2rd RRingJ=TopOpenS