Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mgmhmeql Structured version   Visualization version   GIF version

Theorem mgmhmeql 43902
Description: The equalizer of two magma homomorphisms is a submagma. (Contributed by AV, 27-Feb-2020.)
Assertion
Ref Expression
mgmhmeql ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → dom (𝐹𝐺) ∈ (SubMgm‘𝑆))

Proof of Theorem mgmhmeql
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2826 . . . . . 6 (Base‘𝑆) = (Base‘𝑆)
2 eqid 2826 . . . . . 6 (Base‘𝑇) = (Base‘𝑇)
31, 2mgmhmf 43883 . . . . 5 (𝐹 ∈ (𝑆 MgmHom 𝑇) → 𝐹:(Base‘𝑆)⟶(Base‘𝑇))
43adantr 481 . . . 4 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → 𝐹:(Base‘𝑆)⟶(Base‘𝑇))
54ffnd 6512 . . 3 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → 𝐹 Fn (Base‘𝑆))
61, 2mgmhmf 43883 . . . . 5 (𝐺 ∈ (𝑆 MgmHom 𝑇) → 𝐺:(Base‘𝑆)⟶(Base‘𝑇))
76adantl 482 . . . 4 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → 𝐺:(Base‘𝑆)⟶(Base‘𝑇))
87ffnd 6512 . . 3 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → 𝐺 Fn (Base‘𝑆))
9 fndmin 6811 . . 3 ((𝐹 Fn (Base‘𝑆) ∧ 𝐺 Fn (Base‘𝑆)) → dom (𝐹𝐺) = {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)})
105, 8, 9syl2anc 584 . 2 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → dom (𝐹𝐺) = {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)})
11 ssrab2 4060 . . . 4 {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ⊆ (Base‘𝑆)
1211a1i 11 . . 3 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ⊆ (Base‘𝑆))
13 mgmhmrcl 43880 . . . . . . . . . . . . . 14 (𝐹 ∈ (𝑆 MgmHom 𝑇) → (𝑆 ∈ Mgm ∧ 𝑇 ∈ Mgm))
1413simpld 495 . . . . . . . . . . . . 13 (𝐹 ∈ (𝑆 MgmHom 𝑇) → 𝑆 ∈ Mgm)
1514adantr 481 . . . . . . . . . . . 12 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → 𝑆 ∈ Mgm)
1615ad2antrr 722 . . . . . . . . . . 11 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → 𝑆 ∈ Mgm)
17 simplrl 773 . . . . . . . . . . 11 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → 𝑥 ∈ (Base‘𝑆))
18 simprl 767 . . . . . . . . . . 11 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → 𝑦 ∈ (Base‘𝑆))
19 eqid 2826 . . . . . . . . . . . 12 (+g𝑆) = (+g𝑆)
201, 19mgmcl 17845 . . . . . . . . . . 11 ((𝑆 ∈ Mgm ∧ 𝑥 ∈ (Base‘𝑆) ∧ 𝑦 ∈ (Base‘𝑆)) → (𝑥(+g𝑆)𝑦) ∈ (Base‘𝑆))
2116, 17, 18, 20syl3anc 1365 . . . . . . . . . 10 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → (𝑥(+g𝑆)𝑦) ∈ (Base‘𝑆))
22 simplrr 774 . . . . . . . . . . . 12 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → (𝐹𝑥) = (𝐺𝑥))
23 simprr 769 . . . . . . . . . . . 12 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → (𝐹𝑦) = (𝐺𝑦))
2422, 23oveq12d 7166 . . . . . . . . . . 11 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → ((𝐹𝑥)(+g𝑇)(𝐹𝑦)) = ((𝐺𝑥)(+g𝑇)(𝐺𝑦)))
25 simplll 771 . . . . . . . . . . . 12 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → 𝐹 ∈ (𝑆 MgmHom 𝑇))
26 eqid 2826 . . . . . . . . . . . . 13 (+g𝑇) = (+g𝑇)
271, 19, 26mgmhmlin 43885 . . . . . . . . . . . 12 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝑥 ∈ (Base‘𝑆) ∧ 𝑦 ∈ (Base‘𝑆)) → (𝐹‘(𝑥(+g𝑆)𝑦)) = ((𝐹𝑥)(+g𝑇)(𝐹𝑦)))
2825, 17, 18, 27syl3anc 1365 . . . . . . . . . . 11 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → (𝐹‘(𝑥(+g𝑆)𝑦)) = ((𝐹𝑥)(+g𝑇)(𝐹𝑦)))
29 simpllr 772 . . . . . . . . . . . 12 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → 𝐺 ∈ (𝑆 MgmHom 𝑇))
301, 19, 26mgmhmlin 43885 . . . . . . . . . . . 12 ((𝐺 ∈ (𝑆 MgmHom 𝑇) ∧ 𝑥 ∈ (Base‘𝑆) ∧ 𝑦 ∈ (Base‘𝑆)) → (𝐺‘(𝑥(+g𝑆)𝑦)) = ((𝐺𝑥)(+g𝑇)(𝐺𝑦)))
3129, 17, 18, 30syl3anc 1365 . . . . . . . . . . 11 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → (𝐺‘(𝑥(+g𝑆)𝑦)) = ((𝐺𝑥)(+g𝑇)(𝐺𝑦)))
3224, 28, 313eqtr4d 2871 . . . . . . . . . 10 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → (𝐹‘(𝑥(+g𝑆)𝑦)) = (𝐺‘(𝑥(+g𝑆)𝑦)))
33 fveq2 6667 . . . . . . . . . . . 12 (𝑧 = (𝑥(+g𝑆)𝑦) → (𝐹𝑧) = (𝐹‘(𝑥(+g𝑆)𝑦)))
34 fveq2 6667 . . . . . . . . . . . 12 (𝑧 = (𝑥(+g𝑆)𝑦) → (𝐺𝑧) = (𝐺‘(𝑥(+g𝑆)𝑦)))
3533, 34eqeq12d 2842 . . . . . . . . . . 11 (𝑧 = (𝑥(+g𝑆)𝑦) → ((𝐹𝑧) = (𝐺𝑧) ↔ (𝐹‘(𝑥(+g𝑆)𝑦)) = (𝐺‘(𝑥(+g𝑆)𝑦))))
3635elrab 3684 . . . . . . . . . 10 ((𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ↔ ((𝑥(+g𝑆)𝑦) ∈ (Base‘𝑆) ∧ (𝐹‘(𝑥(+g𝑆)𝑦)) = (𝐺‘(𝑥(+g𝑆)𝑦))))
3721, 32, 36sylanbrc 583 . . . . . . . . 9 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ (𝑦 ∈ (Base‘𝑆) ∧ (𝐹𝑦) = (𝐺𝑦))) → (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)})
3837expr 457 . . . . . . . 8 ((((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) ∧ 𝑦 ∈ (Base‘𝑆)) → ((𝐹𝑦) = (𝐺𝑦) → (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}))
3938ralrimiva 3187 . . . . . . 7 (((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) → ∀𝑦 ∈ (Base‘𝑆)((𝐹𝑦) = (𝐺𝑦) → (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}))
40 fveq2 6667 . . . . . . . . 9 (𝑧 = 𝑦 → (𝐹𝑧) = (𝐹𝑦))
41 fveq2 6667 . . . . . . . . 9 (𝑧 = 𝑦 → (𝐺𝑧) = (𝐺𝑦))
4240, 41eqeq12d 2842 . . . . . . . 8 (𝑧 = 𝑦 → ((𝐹𝑧) = (𝐺𝑧) ↔ (𝐹𝑦) = (𝐺𝑦)))
4342ralrab 3689 . . . . . . 7 (∀𝑦 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ↔ ∀𝑦 ∈ (Base‘𝑆)((𝐹𝑦) = (𝐺𝑦) → (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}))
4439, 43sylibr 235 . . . . . 6 (((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ (𝑥 ∈ (Base‘𝑆) ∧ (𝐹𝑥) = (𝐺𝑥))) → ∀𝑦 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)})
4544expr 457 . . . . 5 (((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) ∧ 𝑥 ∈ (Base‘𝑆)) → ((𝐹𝑥) = (𝐺𝑥) → ∀𝑦 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}))
4645ralrimiva 3187 . . . 4 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → ∀𝑥 ∈ (Base‘𝑆)((𝐹𝑥) = (𝐺𝑥) → ∀𝑦 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}))
47 fveq2 6667 . . . . . 6 (𝑧 = 𝑥 → (𝐹𝑧) = (𝐹𝑥))
48 fveq2 6667 . . . . . 6 (𝑧 = 𝑥 → (𝐺𝑧) = (𝐺𝑥))
4947, 48eqeq12d 2842 . . . . 5 (𝑧 = 𝑥 → ((𝐹𝑧) = (𝐺𝑧) ↔ (𝐹𝑥) = (𝐺𝑥)))
5049ralrab 3689 . . . 4 (∀𝑥 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}∀𝑦 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ↔ ∀𝑥 ∈ (Base‘𝑆)((𝐹𝑥) = (𝐺𝑥) → ∀𝑦 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}))
5146, 50sylibr 235 . . 3 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → ∀𝑥 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}∀𝑦 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)})
521, 19issubmgm 43888 . . . 4 (𝑆 ∈ Mgm → ({𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ∈ (SubMgm‘𝑆) ↔ ({𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ⊆ (Base‘𝑆) ∧ ∀𝑥 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}∀𝑦 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)})))
5315, 52syl 17 . . 3 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → ({𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ∈ (SubMgm‘𝑆) ↔ ({𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ⊆ (Base‘𝑆) ∧ ∀𝑥 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)}∀𝑦 ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} (𝑥(+g𝑆)𝑦) ∈ {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)})))
5412, 51, 53mpbir2and 709 . 2 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → {𝑧 ∈ (Base‘𝑆) ∣ (𝐹𝑧) = (𝐺𝑧)} ∈ (SubMgm‘𝑆))
5510, 54eqeltrd 2918 1 ((𝐹 ∈ (𝑆 MgmHom 𝑇) ∧ 𝐺 ∈ (𝑆 MgmHom 𝑇)) → dom (𝐹𝐺) ∈ (SubMgm‘𝑆))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396   = wceq 1530  wcel 2107  wral 3143  {crab 3147  cin 3939  wss 3940  dom cdm 5554   Fn wfn 6347  wf 6348  cfv 6352  (class class class)co 7148  Basecbs 16473  +gcplusg 16555  Mgmcmgm 17840   MgmHom cmgmhm 43876  SubMgmcsubmgm 43877
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-ext 2798  ax-sep 5200  ax-nul 5207  ax-pow 5263  ax-pr 5326  ax-un 7451
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 844  df-3an 1083  df-tru 1533  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2620  df-eu 2652  df-clab 2805  df-cleq 2819  df-clel 2898  df-nfc 2968  df-ral 3148  df-rex 3149  df-rab 3152  df-v 3502  df-sbc 3777  df-dif 3943  df-un 3945  df-in 3947  df-ss 3956  df-nul 4296  df-if 4471  df-pw 4544  df-sn 4565  df-pr 4567  df-op 4571  df-uni 4838  df-br 5064  df-opab 5126  df-mpt 5144  df-id 5459  df-xp 5560  df-rel 5561  df-cnv 5562  df-co 5563  df-dm 5564  df-rn 5565  df-iota 6312  df-fun 6354  df-fn 6355  df-f 6356  df-fv 6360  df-ov 7151  df-oprab 7152  df-mpo 7153  df-map 8398  df-mgm 17842  df-mgmhm 43878  df-submgm 43879
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator