Metamath Proof Explorer

Theorem resmndismnd

Description: If the base set of a monoid is contained in the base set of another monoid, and the group operation of the monoid is the restriction of the group operation of the other monoid to its base set, and the identity element of the the other monoid is contained in the base set of the monoid, then the other monoid restricted to the base set of the monoid is a monoid. Analogous to resgrpisgrp . (Contributed by AV, 17-Feb-2024)

Ref Expression
Hypotheses mndissubm.b 
|- B = ( Base ` G )
mndissubm.s 
|- S = ( Base ` H )
mndissubm.z 
|- .0. = ( 0g ` G )
Assertion resmndismnd 
|- ( ( G e. Mnd /\ H e. Mnd ) -> ( ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) -> ( G |`s S ) e. Mnd ) )

Proof

Step Hyp Ref Expression
1 mndissubm.b 
 |-  B = ( Base ` G )
2 mndissubm.s 
 |-  S = ( Base ` H )
3 mndissubm.z 
 |-  .0. = ( 0g ` G )
4 1 2 3 mndissubm 
 |-  ( ( G e. Mnd /\ H e. Mnd ) -> ( ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) -> S e. ( SubMnd ` G ) ) )
5 4 imp 
 |-  ( ( ( G e. Mnd /\ H e. Mnd ) /\ ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) ) -> S e. ( SubMnd ` G ) )
6 simpl 
 |-  ( ( G e. Mnd /\ H e. Mnd ) -> G e. Mnd )
7 3simpa 
 |-  ( ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) -> ( S C_ B /\ .0. e. S ) )
8 6 7 anim12i 
 |-  ( ( ( G e. Mnd /\ H e. Mnd ) /\ ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) ) -> ( G e. Mnd /\ ( S C_ B /\ .0. e. S ) ) )
9 8 biantrud 
 |-  ( ( ( G e. Mnd /\ H e. Mnd ) /\ ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) ) -> ( ( G |`s S ) e. Mnd <-> ( ( G |`s S ) e. Mnd /\ ( G e. Mnd /\ ( S C_ B /\ .0. e. S ) ) ) ) )
10 an21 
 |-  ( ( ( G e. Mnd /\ ( G |`s S ) e. Mnd ) /\ ( S C_ B /\ .0. e. S ) ) <-> ( ( G |`s S ) e. Mnd /\ ( G e. Mnd /\ ( S C_ B /\ .0. e. S ) ) ) )
11 9 10 bitr4di 
 |-  ( ( ( G e. Mnd /\ H e. Mnd ) /\ ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) ) -> ( ( G |`s S ) e. Mnd <-> ( ( G e. Mnd /\ ( G |`s S ) e. Mnd ) /\ ( S C_ B /\ .0. e. S ) ) ) )
12 1 3 issubmndb 
 |-  ( S e. ( SubMnd ` G ) <-> ( ( G e. Mnd /\ ( G |`s S ) e. Mnd ) /\ ( S C_ B /\ .0. e. S ) ) )
13 11 12 bitr4di 
 |-  ( ( ( G e. Mnd /\ H e. Mnd ) /\ ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) ) -> ( ( G |`s S ) e. Mnd <-> S e. ( SubMnd ` G ) ) )
14 5 13 mpbird 
 |-  ( ( ( G e. Mnd /\ H e. Mnd ) /\ ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) ) -> ( G |`s S ) e. Mnd )
15 14 ex 
 |-  ( ( G e. Mnd /\ H e. Mnd ) -> ( ( S C_ B /\ .0. e. S /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) -> ( G |`s S ) e. Mnd ) )