Metamath Proof Explorer


Theorem dvdsrspss

Description: In a ring, an element X divides Y iff the ideal generated by Y is a subset of the ideal generated by X (Contributed by Thierry Arnoux, 22-Mar-2025)

Ref Expression
Hypotheses dvdsrspss.b B=BaseR
dvdsrspss.k K=RSpanR
dvdsrspss.d ˙=rR
dvdsrspss.x φXB
dvdsrspss.y φYB
dvdsrspss.r φRRing
Assertion dvdsrspss φX˙YKYKX

Proof

Step Hyp Ref Expression
1 dvdsrspss.b B=BaseR
2 dvdsrspss.k K=RSpanR
3 dvdsrspss.d ˙=rR
4 dvdsrspss.x φXB
5 dvdsrspss.y φYB
6 dvdsrspss.r φRRing
7 eqid R=R
8 1 3 7 dvdsr X˙YXBtBtRX=Y
9 4 biantrurd φtBtRX=YXBtBtRX=Y
10 8 9 bitr4id φX˙YtBtRX=Y
11 1 7 2 rspsnel RRingXBYKXtBY=tRX
12 6 4 11 syl2anc φYKXtBY=tRX
13 eqcom tRX=YY=tRX
14 13 rexbii tBtRX=YtBY=tRX
15 12 14 bitr4di φYKXtBtRX=Y
16 6 adantr φYKXRRing
17 4 snssd φXB
18 eqid LIdealR=LIdealR
19 2 1 18 rspcl RRingXBKXLIdealR
20 6 17 19 syl2anc φKXLIdealR
21 20 adantr φYKXKXLIdealR
22 simpr φYKXYKX
23 22 snssd φYKXYKX
24 2 18 rspssp RRingKXLIdealRYKXKYKX
25 16 21 23 24 syl3anc φYKXKYKX
26 simpr φKYKXKYKX
27 5 snssd φYB
28 2 1 rspssid RRingYBYKY
29 6 27 28 syl2anc φYKY
30 snssg YBYKYYKY
31 30 biimpar YBYKYYKY
32 5 29 31 syl2anc φYKY
33 32 adantr φKYKXYKY
34 26 33 sseldd φKYKXYKX
35 25 34 impbida φYKXKYKX
36 10 15 35 3bitr2d φX˙YKYKX