| 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 ) |