Metamath Proof Explorer


Theorem zarclsiin

Description: In a Zariski topology, the intersection of the closures of a family of ideals is the closure of the span of their union. (Contributed by Thierry Arnoux, 16-Jun-2024)

Ref Expression
Hypotheses zarclsx.1 No typesetting found for |- V = ( i e. ( LIdeal ` R ) |-> { j e. ( PrmIdeal ` R ) | i C_ j } ) with typecode |-
zarclsiin.1 K=RSpanR
Assertion zarclsiin RRingTLIdealRTlTVl=VKT

Proof

Step Hyp Ref Expression
1 zarclsx.1 Could not format V = ( i e. ( LIdeal ` R ) |-> { j e. ( PrmIdeal ` R ) | i C_ j } ) : No typesetting found for |- V = ( i e. ( LIdeal ` R ) |-> { j e. ( PrmIdeal ` R ) | i C_ j } ) with typecode |-
2 zarclsiin.1 K=RSpanR
3 sseq2 j=pKTjKTp
4 simpl3 RRingTLIdealRTplTVlT
5 1 a1i Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> V = ( i e. ( LIdeal ` R ) |-> { j e. ( PrmIdeal ` R ) | i C_ j } ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> V = ( i e. ( LIdeal ` R ) |-> { j e. ( PrmIdeal ` R ) | i C_ j } ) ) with typecode |-
6 sseq1 i=lijlj
7 6 rabbidv Could not format ( i = l -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | l C_ j } ) : No typesetting found for |- ( i = l -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | l C_ j } ) with typecode |-
8 7 adantl Could not format ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) /\ i = l ) -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | l C_ j } ) : No typesetting found for |- ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) /\ i = l ) -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | l C_ j } ) with typecode |-
9 simp2 RRingTLIdealRTTLIdealR
10 9 sselda RRingTLIdealRTlTlLIdealR
11 fvex Could not format ( PrmIdeal ` R ) e. _V : No typesetting found for |- ( PrmIdeal ` R ) e. _V with typecode |-
12 11 rabex Could not format { j e. ( PrmIdeal ` R ) | l C_ j } e. _V : No typesetting found for |- { j e. ( PrmIdeal ` R ) | l C_ j } e. _V with typecode |-
13 12 a1i Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> { j e. ( PrmIdeal ` R ) | l C_ j } e. _V ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> { j e. ( PrmIdeal ` R ) | l C_ j } e. _V ) with typecode |-
14 5 8 10 13 fvmptd Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> ( V ` l ) = { j e. ( PrmIdeal ` R ) | l C_ j } ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> ( V ` l ) = { j e. ( PrmIdeal ` R ) | l C_ j } ) with typecode |-
15 ssrab2 Could not format { j e. ( PrmIdeal ` R ) | l C_ j } C_ ( PrmIdeal ` R ) : No typesetting found for |- { j e. ( PrmIdeal ` R ) | l C_ j } C_ ( PrmIdeal ` R ) with typecode |-
16 15 a1i Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> { j e. ( PrmIdeal ` R ) | l C_ j } C_ ( PrmIdeal ` R ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> { j e. ( PrmIdeal ` R ) | l C_ j } C_ ( PrmIdeal ` R ) ) with typecode |-
17 14 16 eqsstrd Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> ( V ` l ) C_ ( PrmIdeal ` R ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> ( V ` l ) C_ ( PrmIdeal ` R ) ) with typecode |-
18 17 sseld Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> ( p e. ( V ` l ) -> p e. ( PrmIdeal ` R ) ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. T ) -> ( p e. ( V ` l ) -> p e. ( PrmIdeal ` R ) ) ) with typecode |-
19 18 ralimdva Could not format ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> ( A. l e. T p e. ( V ` l ) -> A. l e. T p e. ( PrmIdeal ` R ) ) ) : No typesetting found for |- ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> ( A. l e. T p e. ( V ` l ) -> A. l e. T p e. ( PrmIdeal ` R ) ) ) with typecode |-
20 eliin pVplTVllTpVl
21 20 elv plTVllTpVl
22 21 biimpi plTVllTpVl
23 19 22 impel Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) -> A. l e. T p e. ( PrmIdeal ` R ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) -> A. l e. T p e. ( PrmIdeal ` R ) ) with typecode |-
24 rspn0 Could not format ( T =/= (/) -> ( A. l e. T p e. ( PrmIdeal ` R ) -> p e. ( PrmIdeal ` R ) ) ) : No typesetting found for |- ( T =/= (/) -> ( A. l e. T p e. ( PrmIdeal ` R ) -> p e. ( PrmIdeal ` R ) ) ) with typecode |-
25 24 imp Could not format ( ( T =/= (/) /\ A. l e. T p e. ( PrmIdeal ` R ) ) -> p e. ( PrmIdeal ` R ) ) : No typesetting found for |- ( ( T =/= (/) /\ A. l e. T p e. ( PrmIdeal ` R ) ) -> p e. ( PrmIdeal ` R ) ) with typecode |-
26 4 23 25 syl2anc Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) -> p e. ( PrmIdeal ` R ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) -> p e. ( PrmIdeal ` R ) ) with typecode |-
27 simp1 RRingTLIdealRTRRing
28 27 adantr RRingTLIdealRTplTVlRRing
29 prmidlidl Could not format ( ( R e. Ring /\ p e. ( PrmIdeal ` R ) ) -> p e. ( LIdeal ` R ) ) : No typesetting found for |- ( ( R e. Ring /\ p e. ( PrmIdeal ` R ) ) -> p e. ( LIdeal ` R ) ) with typecode |-
30 28 26 29 syl2anc RRingTLIdealRTplTVlpLIdealR
31 nfv lRRingTLIdealRT
32 nfcv _lp
33 nfii1 _llTVl
34 32 33 nfel lplTVl
35 31 34 nfan lRRingTLIdealRTplTVl
36 22 a1i RRingTLIdealRTplTVllTpVl
37 36 imp RRingTLIdealRTplTVllTpVl
38 37 adantr RRingTLIdealRTplTVllTlTpVl
39 simpr RRingTLIdealRTplTVllTlT
40 rspa lTpVllTpVl
41 38 39 40 syl2anc RRingTLIdealRTplTVllTpVl
42 14 adantlr Could not format ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) /\ l e. T ) -> ( V ` l ) = { j e. ( PrmIdeal ` R ) | l C_ j } ) : No typesetting found for |- ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) /\ l e. T ) -> ( V ` l ) = { j e. ( PrmIdeal ` R ) | l C_ j } ) with typecode |-
43 41 42 eleqtrd Could not format ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) /\ l e. T ) -> p e. { j e. ( PrmIdeal ` R ) | l C_ j } ) : No typesetting found for |- ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) /\ l e. T ) -> p e. { j e. ( PrmIdeal ` R ) | l C_ j } ) with typecode |-
44 sseq2 j=pljlp
45 44 elrab Could not format ( p e. { j e. ( PrmIdeal ` R ) | l C_ j } <-> ( p e. ( PrmIdeal ` R ) /\ l C_ p ) ) : No typesetting found for |- ( p e. { j e. ( PrmIdeal ` R ) | l C_ j } <-> ( p e. ( PrmIdeal ` R ) /\ l C_ p ) ) with typecode |-
46 43 45 sylib Could not format ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) /\ l e. T ) -> ( p e. ( PrmIdeal ` R ) /\ l C_ p ) ) : No typesetting found for |- ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) /\ l e. T ) -> ( p e. ( PrmIdeal ` R ) /\ l C_ p ) ) with typecode |-
47 46 simprd RRingTLIdealRTplTVllTlp
48 47 ex RRingTLIdealRTplTVllTlp
49 35 48 ralrimi RRingTLIdealRTplTVllTlp
50 unissb TplTlp
51 49 50 sylibr RRingTLIdealRTplTVlTp
52 eqid LIdealR=LIdealR
53 2 52 rspssp RRingpLIdealRTpKTp
54 28 30 51 53 syl3anc RRingTLIdealRTplTVlKTp
55 3 26 54 elrabd Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) -> p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) -> p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) with typecode |-
56 1 a1i Could not format ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> V = ( i e. ( LIdeal ` R ) |-> { j e. ( PrmIdeal ` R ) | i C_ j } ) ) : No typesetting found for |- ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> V = ( i e. ( LIdeal ` R ) |-> { j e. ( PrmIdeal ` R ) | i C_ j } ) ) with typecode |-
57 sseq1 i=KTijKTj
58 57 rabbidv Could not format ( i = ( K ` U. T ) -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) : No typesetting found for |- ( i = ( K ` U. T ) -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) with typecode |-
59 58 adantl Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ i = ( K ` U. T ) ) -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ i = ( K ` U. T ) ) -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) with typecode |-
60 9 sselda RRingTLIdealRTiTiLIdealR
61 eqid BaseR=BaseR
62 61 52 lidlss iLIdealRiBaseR
63 60 62 syl RRingTLIdealRTiTiBaseR
64 63 ralrimiva RRingTLIdealRTiTiBaseR
65 unissb TBaseRiTiBaseR
66 64 65 sylibr RRingTLIdealRTTBaseR
67 2 61 52 rspcl RRingTBaseRKTLIdealR
68 27 66 67 syl2anc RRingTLIdealRTKTLIdealR
69 11 rabex Could not format { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } e. _V : No typesetting found for |- { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } e. _V with typecode |-
70 69 a1i Could not format ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } e. _V ) : No typesetting found for |- ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } e. _V ) with typecode |-
71 56 59 68 70 fvmptd Could not format ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> ( V ` ( K ` U. T ) ) = { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) : No typesetting found for |- ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> ( V ` ( K ` U. T ) ) = { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) with typecode |-
72 71 eleq2d Could not format ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> ( p e. ( V ` ( K ` U. T ) ) <-> p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) ) : No typesetting found for |- ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) -> ( p e. ( V ` ( K ` U. T ) ) <-> p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) ) with typecode |-
73 72 adantr Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) -> ( p e. ( V ` ( K ` U. T ) ) <-> p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. |^|_ l e. T ( V ` l ) ) -> ( p e. ( V ` ( K ` U. T ) ) <-> p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) ) with typecode |-
74 55 73 mpbird RRingTLIdealRTplTVlpVKT
75 72 biimpa Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) -> p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) -> p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } ) with typecode |-
76 3 elrab Could not format ( p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } <-> ( p e. ( PrmIdeal ` R ) /\ ( K ` U. T ) C_ p ) ) : No typesetting found for |- ( p e. { j e. ( PrmIdeal ` R ) | ( K ` U. T ) C_ j } <-> ( p e. ( PrmIdeal ` R ) /\ ( K ` U. T ) C_ p ) ) with typecode |-
77 75 76 sylib Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) -> ( p e. ( PrmIdeal ` R ) /\ ( K ` U. T ) C_ p ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) -> ( p e. ( PrmIdeal ` R ) /\ ( K ` U. T ) C_ p ) ) with typecode |-
78 77 simpld Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) -> p e. ( PrmIdeal ` R ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) -> p e. ( PrmIdeal ` R ) ) with typecode |-
79 78 adantr Could not format ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) /\ l e. T ) -> p e. ( PrmIdeal ` R ) ) : No typesetting found for |- ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) /\ l e. T ) -> p e. ( PrmIdeal ` R ) ) with typecode |-
80 elssuni lTlT
81 80 adantl RRingTLIdealRTpVKTlTlT
82 simpll RRingTLIdealRTpVKTlTRRingTLIdealRT
83 2 61 rspssid RRingTBaseRTKT
84 27 66 83 syl2anc RRingTLIdealRTTKT
85 82 84 syl RRingTLIdealRTpVKTlTTKT
86 81 85 sstrd RRingTLIdealRTpVKTlTlKT
87 77 simprd RRingTLIdealRTpVKTKTp
88 87 adantr RRingTLIdealRTpVKTlTKTp
89 86 88 sstrd RRingTLIdealRTpVKTlTlp
90 44 79 89 elrabd Could not format ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) /\ l e. T ) -> p e. { j e. ( PrmIdeal ` R ) | l C_ j } ) : No typesetting found for |- ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) /\ l e. T ) -> p e. { j e. ( PrmIdeal ` R ) | l C_ j } ) with typecode |-
91 9 adantr RRingTLIdealRTpVKTTLIdealR
92 91 sselda RRingTLIdealRTpVKTlTlLIdealR
93 1 a1i Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. ( LIdeal ` R ) ) -> V = ( i e. ( LIdeal ` R ) |-> { j e. ( PrmIdeal ` R ) | i C_ j } ) ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. ( LIdeal ` R ) ) -> V = ( i e. ( LIdeal ` R ) |-> { j e. ( PrmIdeal ` R ) | i C_ j } ) ) with typecode |-
94 7 adantl Could not format ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. ( LIdeal ` R ) ) /\ i = l ) -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | l C_ j } ) : No typesetting found for |- ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. ( LIdeal ` R ) ) /\ i = l ) -> { j e. ( PrmIdeal ` R ) | i C_ j } = { j e. ( PrmIdeal ` R ) | l C_ j } ) with typecode |-
95 simpr RRingTLIdealRTlLIdealRlLIdealR
96 12 a1i Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. ( LIdeal ` R ) ) -> { j e. ( PrmIdeal ` R ) | l C_ j } e. _V ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. ( LIdeal ` R ) ) -> { j e. ( PrmIdeal ` R ) | l C_ j } e. _V ) with typecode |-
97 93 94 95 96 fvmptd Could not format ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. ( LIdeal ` R ) ) -> ( V ` l ) = { j e. ( PrmIdeal ` R ) | l C_ j } ) : No typesetting found for |- ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ l e. ( LIdeal ` R ) ) -> ( V ` l ) = { j e. ( PrmIdeal ` R ) | l C_ j } ) with typecode |-
98 82 92 97 syl2anc Could not format ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) /\ l e. T ) -> ( V ` l ) = { j e. ( PrmIdeal ` R ) | l C_ j } ) : No typesetting found for |- ( ( ( ( R e. Ring /\ T C_ ( LIdeal ` R ) /\ T =/= (/) ) /\ p e. ( V ` ( K ` U. T ) ) ) /\ l e. T ) -> ( V ` l ) = { j e. ( PrmIdeal ` R ) | l C_ j } ) with typecode |-
99 90 98 eleqtrrd RRingTLIdealRTpVKTlTpVl
100 99 ralrimiva RRingTLIdealRTpVKTlTpVl
101 21 a1i RRingTLIdealRTpVKTplTVllTpVl
102 100 101 mpbird RRingTLIdealRTpVKTplTVl
103 74 102 impbida RRingTLIdealRTplTVlpVKT
104 103 eqrdv RRingTLIdealRTlTVl=VKT