Step |
Hyp |
Ref |
Expression |
1 |
|
lidlcl.u |
|- U = ( LIdeal ` R ) |
2 |
|
lidlsubcl.m |
|- .- = ( -g ` R ) |
3 |
1
|
lidlsubg |
|- ( ( R e. Ring /\ I e. U ) -> I e. ( SubGrp ` R ) ) |
4 |
3
|
3adant3 |
|- ( ( R e. Ring /\ I e. U /\ ( X e. I /\ Y e. I ) ) -> I e. ( SubGrp ` R ) ) |
5 |
|
simp3l |
|- ( ( R e. Ring /\ I e. U /\ ( X e. I /\ Y e. I ) ) -> X e. I ) |
6 |
|
simp3r |
|- ( ( R e. Ring /\ I e. U /\ ( X e. I /\ Y e. I ) ) -> Y e. I ) |
7 |
2
|
subgsubcl |
|- ( ( I e. ( SubGrp ` R ) /\ X e. I /\ Y e. I ) -> ( X .- Y ) e. I ) |
8 |
4 5 6 7
|
syl3anc |
|- ( ( R e. Ring /\ I e. U /\ ( X e. I /\ Y e. I ) ) -> ( X .- Y ) e. I ) |
9 |
8
|
3expa |
|- ( ( ( R e. Ring /\ I e. U ) /\ ( X e. I /\ Y e. I ) ) -> ( X .- Y ) e. I ) |