Metamath Proof Explorer


Theorem rhmimasubrng

Description: The homomorphic image of a subring is a subring. (Contributed by AV, 16-Feb-2025)

Ref Expression
Assertion rhmimasubrng Could not format assertion : No typesetting found for |- ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> ( F " X ) e. ( SubRng ` N ) ) with typecode |-

Proof

Step Hyp Ref Expression
1 rhmghm FMRingHomNFMGrpHomN
2 subrngsubg Could not format ( X e. ( SubRng ` M ) -> X e. ( SubGrp ` M ) ) : No typesetting found for |- ( X e. ( SubRng ` M ) -> X e. ( SubGrp ` M ) ) with typecode |-
3 ghmima FMGrpHomNXSubGrpMFXSubGrpN
4 1 2 3 syl2an Could not format ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> ( F " X ) e. ( SubGrp ` N ) ) : No typesetting found for |- ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> ( F " X ) e. ( SubGrp ` N ) ) with typecode |-
5 eqid mulGrpM=mulGrpM
6 eqid mulGrpN=mulGrpN
7 5 6 rhmmhm FMRingHomNFmulGrpMMndHommulGrpN
8 simpl Could not format ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) ) : No typesetting found for |- ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) ) with typecode |-
9 eqid BaseM=BaseM
10 5 9 mgpbas BaseM=BasemulGrpM
11 10 eqcomi BasemulGrpM=BaseM
12 11 subrngss Could not format ( X e. ( SubRng ` M ) -> X C_ ( Base ` ( mulGrp ` M ) ) ) : No typesetting found for |- ( X e. ( SubRng ` M ) -> X C_ ( Base ` ( mulGrp ` M ) ) ) with typecode |-
13 12 adantl Could not format ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> X C_ ( Base ` ( mulGrp ` M ) ) ) : No typesetting found for |- ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> X C_ ( Base ` ( mulGrp ` M ) ) ) with typecode |-
14 eqidd Could not format ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> ( +g ` ( mulGrp ` M ) ) = ( +g ` ( mulGrp ` M ) ) ) : No typesetting found for |- ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> ( +g ` ( mulGrp ` M ) ) = ( +g ` ( mulGrp ` M ) ) ) with typecode |-
15 eqidd Could not format ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> ( +g ` ( mulGrp ` N ) ) = ( +g ` ( mulGrp ` N ) ) ) : No typesetting found for |- ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> ( +g ` ( mulGrp ` N ) ) = ( +g ` ( mulGrp ` N ) ) ) with typecode |-
16 eqid M=M
17 5 16 mgpplusg M=+mulGrpM
18 17 eqcomi +mulGrpM=M
19 18 subrngmcl Could not format ( ( X e. ( SubRng ` M ) /\ z e. X /\ x e. X ) -> ( z ( +g ` ( mulGrp ` M ) ) x ) e. X ) : No typesetting found for |- ( ( X e. ( SubRng ` M ) /\ z e. X /\ x e. X ) -> ( z ( +g ` ( mulGrp ` M ) ) x ) e. X ) with typecode |-
20 19 3adant1l Could not format ( ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) /\ z e. X /\ x e. X ) -> ( z ( +g ` ( mulGrp ` M ) ) x ) e. X ) : No typesetting found for |- ( ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) /\ z e. X /\ x e. X ) -> ( z ( +g ` ( mulGrp ` M ) ) x ) e. X ) with typecode |-
21 8 13 14 15 20 mhmimalem Could not format ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> A. x e. ( F " X ) A. y e. ( F " X ) ( x ( +g ` ( mulGrp ` N ) ) y ) e. ( F " X ) ) : No typesetting found for |- ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> A. x e. ( F " X ) A. y e. ( F " X ) ( x ( +g ` ( mulGrp ` N ) ) y ) e. ( F " X ) ) with typecode |-
22 eqid N=N
23 6 22 mgpplusg N=+mulGrpN
24 23 eqcomi +mulGrpN=N
25 24 oveqi x+mulGrpNy=xNy
26 25 eleq1i x+mulGrpNyFXxNyFX
27 26 2ralbii xFXyFXx+mulGrpNyFXxFXyFXxNyFX
28 21 27 sylib Could not format ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> A. x e. ( F " X ) A. y e. ( F " X ) ( x ( .r ` N ) y ) e. ( F " X ) ) : No typesetting found for |- ( ( F e. ( ( mulGrp ` M ) MndHom ( mulGrp ` N ) ) /\ X e. ( SubRng ` M ) ) -> A. x e. ( F " X ) A. y e. ( F " X ) ( x ( .r ` N ) y ) e. ( F " X ) ) with typecode |-
29 7 28 sylan Could not format ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> A. x e. ( F " X ) A. y e. ( F " X ) ( x ( .r ` N ) y ) e. ( F " X ) ) : No typesetting found for |- ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> A. x e. ( F " X ) A. y e. ( F " X ) ( x ( .r ` N ) y ) e. ( F " X ) ) with typecode |-
30 rhmrcl2 FMRingHomNNRing
31 ringrng NRingNRng
32 30 31 syl FMRingHomNNRng
33 32 adantr Could not format ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> N e. Rng ) : No typesetting found for |- ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> N e. Rng ) with typecode |-
34 eqid BaseN=BaseN
35 34 22 issubrng2 Could not format ( N e. Rng -> ( ( F " X ) e. ( SubRng ` N ) <-> ( ( F " X ) e. ( SubGrp ` N ) /\ A. x e. ( F " X ) A. y e. ( F " X ) ( x ( .r ` N ) y ) e. ( F " X ) ) ) ) : No typesetting found for |- ( N e. Rng -> ( ( F " X ) e. ( SubRng ` N ) <-> ( ( F " X ) e. ( SubGrp ` N ) /\ A. x e. ( F " X ) A. y e. ( F " X ) ( x ( .r ` N ) y ) e. ( F " X ) ) ) ) with typecode |-
36 33 35 syl Could not format ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> ( ( F " X ) e. ( SubRng ` N ) <-> ( ( F " X ) e. ( SubGrp ` N ) /\ A. x e. ( F " X ) A. y e. ( F " X ) ( x ( .r ` N ) y ) e. ( F " X ) ) ) ) : No typesetting found for |- ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> ( ( F " X ) e. ( SubRng ` N ) <-> ( ( F " X ) e. ( SubGrp ` N ) /\ A. x e. ( F " X ) A. y e. ( F " X ) ( x ( .r ` N ) y ) e. ( F " X ) ) ) ) with typecode |-
37 4 29 36 mpbir2and Could not format ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> ( F " X ) e. ( SubRng ` N ) ) : No typesetting found for |- ( ( F e. ( M RingHom N ) /\ X e. ( SubRng ` M ) ) -> ( F " X ) e. ( SubRng ` N ) ) with typecode |-