Theorem mgmsscl 18561

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 19067. (Contributed by AV, 17-Feb-2024.)

Hypotheses

Ref	Expression
mgmsscl.b	⊢ 𝐵 = (Base‘𝐺)
mgmsscl.s	⊢ 𝑆 = (Base‘𝐻)

Assertion

Ref	Expression
mgmsscl	⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋(+g‘𝐺)𝑌) ∈ 𝑆)

Proof of Theorem mgmsscl

Step	Hyp	Ref	Expression
1		ovres 7521	. . 3 ⊢ ((𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) = (𝑋(+g‘𝐺)𝑌))
2	1	3ad2ant3 1135	. 2 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) = (𝑋(+g‘𝐺)𝑌))
3		simp1r 1199	. . . . 5 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → 𝐻 ∈ Mgm)
4		simp3 1138	. . . . 5 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆))
5		3anass 1094	. . . . 5 ⊢ ((𝐻 ∈ Mgm ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) ↔ (𝐻 ∈ Mgm ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)))
6	3, 4, 5	sylanbrc 583	. . . 4 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝐻 ∈ Mgm ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆))
7		mgmsscl.s	. . . . 5 ⊢ 𝑆 = (Base‘𝐻)
8		eqid 2733	. . . . 5 ⊢ (+g‘𝐻) = (+g‘𝐻)
9	7, 8	mgmcl 18559	. . . 4 ⊢ ((𝐻 ∈ Mgm ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (𝑋(+g‘𝐻)𝑌) ∈ 𝑆)
10	6, 9	syl 17	. . 3 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋(+g‘𝐻)𝑌) ∈ 𝑆)
11		oveq 7361	. . . . . . 7 ⊢ (((+g‘𝐺) ↾ (𝑆 × 𝑆)) = (+g‘𝐻) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) = (𝑋(+g‘𝐻)𝑌))
12	11	eleq1d 2818	. . . . . 6 ⊢ (((+g‘𝐺) ↾ (𝑆 × 𝑆)) = (+g‘𝐻) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
13	12	eqcoms 2741	. . . . 5 ⊢ ((+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆)) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
14	13	adantl 481	. . . 4 ⊢ ((𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
15	14	3ad2ant2 1134	. . 3 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
16	10, 15	mpbird 257	. 2 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆)
17	2, 16	eqeltrrd 2834	1 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋(+g‘𝐺)𝑌) ∈ 𝑆)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2113   ⊆ wss 3898   × cxp 5619   ↾ cres 5623  ‘cfv 6489  (class class class)co 7355  Basecbs 17127  +_gcplusg 17168  Mgmcmgm 18554

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-ext 2705  ax-sep 5238  ax-nul 5248  ax-pr 5374

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-sb 2068  df-clab 2712  df-cleq 2725  df-clel 2808  df-ne 2930  df-ral 3049  df-rex 3058  df-rab 3397  df-v 3439  df-sbc 3738  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4283  df-if 4477  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4861  df-br 5096  df-opab 5158  df-xp 5627  df-res 5633  df-iota 6445  df-fv 6497  df-ov 7358  df-mgm 18556

This theorem is referenced by:  mndissubm  18723  grpissubg  19067