Metamath Proof Explorer

Theorem mgmsscl

Description: If the base set of a magma is contained in the base set of another magma, and the group operation of the magma is the restriction of the group operation of the other magma to its base set, then the base set of the magma is closed under the group operation of the other magma. Formerly part of proof of grpissubg . (Contributed by AV, 17-Feb-2024)

Ref Expression
Hypotheses mgmsscl.b 
|- B = ( Base ` G )
mgmsscl.s 
|- S = ( Base ` H )
Assertion mgmsscl 
|- ( ( ( G e. Mgm /\ H e. Mgm ) /\ ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) /\ ( X e. S /\ Y e. S ) ) -> ( X ( +g ` G ) Y ) e. S )

Proof

Step Hyp Ref Expression
1 mgmsscl.b 
 |-  B = ( Base ` G )
2 mgmsscl.s 
 |-  S = ( Base ` H )
3 ovres 
 |-  ( ( X e. S /\ Y e. S ) -> ( X ( ( +g ` G ) |` ( S X. S ) ) Y ) = ( X ( +g ` G ) Y ) )
4 3 3ad2ant3 
 |-  ( ( ( G e. Mgm /\ H e. Mgm ) /\ ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) /\ ( X e. S /\ Y e. S ) ) -> ( X ( ( +g ` G ) |` ( S X. S ) ) Y ) = ( X ( +g ` G ) Y ) )
5 simp1r 
 |-  ( ( ( G e. Mgm /\ H e. Mgm ) /\ ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) /\ ( X e. S /\ Y e. S ) ) -> H e. Mgm )
6 simp3 
 |-  ( ( ( G e. Mgm /\ H e. Mgm ) /\ ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) /\ ( X e. S /\ Y e. S ) ) -> ( X e. S /\ Y e. S ) )
7 3anass 
 |-  ( ( H e. Mgm /\ X e. S /\ Y e. S ) <-> ( H e. Mgm /\ ( X e. S /\ Y e. S ) ) )
8 5 6 7 sylanbrc 
 |-  ( ( ( G e. Mgm /\ H e. Mgm ) /\ ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) /\ ( X e. S /\ Y e. S ) ) -> ( H e. Mgm /\ X e. S /\ Y e. S ) )
9 eqid 
 |-  ( +g ` H ) = ( +g ` H )
10 2 9 mgmcl 
 |-  ( ( H e. Mgm /\ X e. S /\ Y e. S ) -> ( X ( +g ` H ) Y ) e. S )
11 8 10 syl 
 |-  ( ( ( G e. Mgm /\ H e. Mgm ) /\ ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) /\ ( X e. S /\ Y e. S ) ) -> ( X ( +g ` H ) Y ) e. S )
12 oveq 
 |-  ( ( ( +g ` G ) |` ( S X. S ) ) = ( +g ` H ) -> ( X ( ( +g ` G ) |` ( S X. S ) ) Y ) = ( X ( +g ` H ) Y ) )
13 12 eleq1d 
 |-  ( ( ( +g ` G ) |` ( S X. S ) ) = ( +g ` H ) -> ( ( X ( ( +g ` G ) |` ( S X. S ) ) Y ) e. S <-> ( X ( +g ` H ) Y ) e. S ) )
14 13 eqcoms 
 |-  ( ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) -> ( ( X ( ( +g ` G ) |` ( S X. S ) ) Y ) e. S <-> ( X ( +g ` H ) Y ) e. S ) )
15 14 adantl 
 |-  ( ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) -> ( ( X ( ( +g ` G ) |` ( S X. S ) ) Y ) e. S <-> ( X ( +g ` H ) Y ) e. S ) )
16 15 3ad2ant2 
 |-  ( ( ( G e. Mgm /\ H e. Mgm ) /\ ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) /\ ( X e. S /\ Y e. S ) ) -> ( ( X ( ( +g ` G ) |` ( S X. S ) ) Y ) e. S <-> ( X ( +g ` H ) Y ) e. S ) )
17 11 16 mpbird 
 |-  ( ( ( G e. Mgm /\ H e. Mgm ) /\ ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) /\ ( X e. S /\ Y e. S ) ) -> ( X ( ( +g ` G ) |` ( S X. S ) ) Y ) e. S )
18 4 17 eqeltrrd 
 |-  ( ( ( G e. Mgm /\ H e. Mgm ) /\ ( S C_ B /\ ( +g ` H ) = ( ( +g ` G ) |` ( S X. S ) ) ) /\ ( X e. S /\ Y e. S ) ) -> ( X ( +g ` G ) Y ) e. S )