Theorem mgmsscl 18830

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 19366. (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 7590	. . 3 ⊢ ((𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) = (𝑋(+g‘𝐺)𝑌))
2	1	3ad2ant3 1153	. 2 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) = (𝑋(+g‘𝐺)𝑌))
3		simp1r 1217	. . . . 5 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → 𝐻 ∈ Mgm)
4		simp3 1156	. . . . 5 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆))
5		3anass 1111	. . . . 5 ⊢ ((𝐻 ∈ Mgm ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) ↔ (𝐻 ∈ Mgm ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)))
6	3, 4, 5	sylanbrc 595	. . . 4 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝐻 ∈ Mgm ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆))
7		mgmsscl.s	. . . . 5 ⊢ 𝑆 = (Base‘𝐻)
8		eqid 2760	. . . . 5 ⊢ (+g‘𝐻) = (+g‘𝐻)
9	7, 8	mgmcl 18828	. . . 4 ⊢ ((𝐻 ∈ Mgm ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (𝑋(+g‘𝐻)𝑌) ∈ 𝑆)
10	6, 9	syl 18	. . 3 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋(+g‘𝐻)𝑌) ∈ 𝑆)
11		oveq 7430	. . . . . . 7 ⊢ (((+g‘𝐺) ↾ (𝑆 × 𝑆)) = (+g‘𝐻) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) = (𝑋(+g‘𝐻)𝑌))
12	11	eleq1d 2845	. . . . . 6 ⊢ (((+g‘𝐺) ↾ (𝑆 × 𝑆)) = (+g‘𝐻) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
13	12	eqcoms 2768	. . . . 5 ⊢ ((+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆)) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
14	13	adantl 487	. . . 4 ⊢ ((𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
15	14	3ad2ant2 1152	. . 3 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → ((𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆 ↔ (𝑋(+g‘𝐻)𝑌) ∈ 𝑆))
16	10, 15	mpbird 260	. 2 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋((+g‘𝐺) ↾ (𝑆 × 𝑆))𝑌) ∈ 𝑆)
17	2, 16	eqeltrrd 2861	1 ⊢ (((𝐺 ∈ Mgm ∧ 𝐻 ∈ Mgm) ∧ (𝑆 ⊆ 𝐵 ∧ (+g‘𝐻) = ((+g‘𝐺) ↾ (𝑆 × 𝑆))) ∧ (𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆)) → (𝑋(+g‘𝐺)𝑌) ∈ 𝑆)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569   ∈ wcel 2144   ⊆ wss 3896   × cxp 5649   ↾ cres 5653  ‘cfv 6543  (class class class)co 7424  Basecbs 17396  +_gcplusg 17437  Mgmcmgm 18823

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-ext 2732  ax-sep 5248  ax-nul 5259  ax-pr 5391

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-sb 2099  df-clab 2739  df-cleq 2752  df-clel 2835  df-ne 2956  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-sbc 3739  df-ss 3897  df-dif 4046  df-in 4090  df-un 4150  df-nul 4278  df-if 4482  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-br 5103  df-opab 5167  df-xp 5657  df-res 5663  df-iota 6497  df-fv 6551  df-ov 7427  df-mgm 18825

This theorem is used by:  mndissubm  19011  grpissubg  19366