Theorem mgmsscl 18604

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 19113. (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 7522	. . 3 ⊢ ((𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) = (𝑋(+g‘𝐺)𝑌))
2	1	3ad2ant3 1141	. 2 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) = (𝑋(+g‘𝐺)𝑌))
3		simp1r 1205	. . . . 5 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → 𝐻 ∈ Mgm)
4		simp3 1144	. . . . 5 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆))
5		3anass 1100	. . . . 5 ⊢ ((𝐻 ∈ Mgm ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) ↔ (𝐻 ∈ Mgm ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)))
6	3, 4, 5	sylanbrc 589	. . . 4 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝐻 ∈ Mgm ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆))
7		mgmsscl.s	. . . . 5 ⊢ 𝑆 = (Base‘𝐻)
8		eqid 2739	. . . . 5 ⊢ (+g‘𝐻) = (+g‘𝐻)
9	7, 8	mgmcl 18602	. . . 4 ⊢ ((𝐻 ∈ Mgm ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (𝑋(+g‘𝐻)𝑌) ∈ 𝑆)
10	6, 9	syl 17	. . 3 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋(+g‘𝐻)𝑌) ∈ 𝑆)
11		oveq 7362	. . . . . . 7 ⊢ (((+g‘𝐺) ↾ (𝑆 × 𝑆)) = (+g‘𝐻) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) = (𝑋(+g‘𝐻)𝑌))
12	11	eleq1d 2824	. . . . . 6 ⊢ (((+g‘𝐺) ↾ (𝑆 × 𝑆)) = (+g‘𝐻) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
13	12	eqcoms 2747	. . . . 5 ⊢ ((+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆)) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
14	13	adantl 482	. . . 4 ⊢ ((𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
15	14	3ad2ant2 1140	. . 3 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
16	10, 15	mpbird 258	. 2 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆)
17	2, 16	eqeltrrd 2840	1 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋(+g‘𝐺)𝑌) ∈ 𝑆)

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119   ⊆ wss 3883   × cxp 5616   ↾ cres 5620  ‘cfv 6485  (class class class)co 7356  Basecbs 17170  +_gcplusg 17211  Mgmcmgm 18597

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-ext 2711  ax-sep 5218  ax-nul 5228  ax-pr 5362

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-sb 2074  df-clab 2718  df-cleq 2731  df-clel 2814  df-ne 2935  df-ral 3054  df-rex 3064  df-rab 3392  df-v 3433  df-sbc 3724  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4262  df-if 4455  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-br 5073  df-opab 5135  df-xp 5624  df-res 5630  df-iota 6441  df-fv 6493  df-ov 7359  df-mgm 18599

This theorem is referenced by:  mndissubm  18766  grpissubg  19113