Metamath Proof Explorer


Theorem lidldvgen

Description: An element generates an ideal iff it is contained in the ideal and all elements are right-divided by it. (Contributed by Stefan O'Rear, 3-Jan-2015)

Ref Expression
Hypotheses lidldvgen.b B=BaseR
lidldvgen.u U=LIdealR
lidldvgen.k K=RSpanR
lidldvgen.d ˙=rR
Assertion lidldvgen RRingIUGBI=KGGIxIG˙x

Proof

Step Hyp Ref Expression
1 lidldvgen.b B=BaseR
2 lidldvgen.u U=LIdealR
3 lidldvgen.k K=RSpanR
4 lidldvgen.d ˙=rR
5 simp1 RRingIUGBRRing
6 simp3 RRingIUGBGB
7 6 snssd RRingIUGBGB
8 3 1 rspssid RRingGBGKG
9 5 7 8 syl2anc RRingIUGBGKG
10 snssg GBGKGGKG
11 10 3ad2ant3 RRingIUGBGKGGKG
12 9 11 mpbird RRingIUGBGKG
13 1 3 4 rspsn RRingGBKG=y|G˙y
14 13 3adant2 RRingIUGBKG=y|G˙y
15 14 eleq2d RRingIUGBxKGxy|G˙y
16 vex xV
17 breq2 y=xG˙yG˙x
18 16 17 elab xy|G˙yG˙x
19 15 18 bitrdi RRingIUGBxKGG˙x
20 19 biimpd RRingIUGBxKGG˙x
21 20 ralrimiv RRingIUGBxKGG˙x
22 12 21 jca RRingIUGBGKGxKGG˙x
23 eleq2 I=KGGIGKG
24 raleq I=KGxIG˙xxKGG˙x
25 23 24 anbi12d I=KGGIxIG˙xGKGxKGG˙x
26 22 25 syl5ibrcom RRingIUGBI=KGGIxIG˙x
27 df-ral xIG˙xxxIG˙x
28 ssab Ix|G˙xxxIG˙x
29 27 28 sylbb2 xIG˙xIx|G˙x
30 29 ad2antll RRingIUGBGIxIG˙xIx|G˙x
31 1 3 4 rspsn RRingGBKG=x|G˙x
32 31 3adant2 RRingIUGBKG=x|G˙x
33 32 adantr RRingIUGBGIxIG˙xKG=x|G˙x
34 30 33 sseqtrrd RRingIUGBGIxIG˙xIKG
35 simpl1 RRingIUGBGIRRing
36 simpl2 RRingIUGBGIIU
37 snssi GIGI
38 37 adantl RRingIUGBGIGI
39 3 2 rspssp RRingIUGIKGI
40 35 36 38 39 syl3anc RRingIUGBGIKGI
41 40 adantrr RRingIUGBGIxIG˙xKGI
42 34 41 eqssd RRingIUGBGIxIG˙xI=KG
43 42 ex RRingIUGBGIxIG˙xI=KG
44 26 43 impbid RRingIUGBI=KGGIxIG˙x