MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  insubm Structured version   Visualization version   GIF version

Theorem insubm 18634
Description: The intersection of two submonoids is a submonoid. (Contributed by AV, 25-Feb-2024.)
Assertion
Ref Expression
insubm ((𝐴 ∈ (SubMndβ€˜π‘€) ∧ 𝐡 ∈ (SubMndβ€˜π‘€)) β†’ (𝐴 ∩ 𝐡) ∈ (SubMndβ€˜π‘€))

Proof of Theorem insubm
Dummy variables π‘Ž 𝑏 π‘₯ 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 submrcl 18618 . . 3 (𝐴 ∈ (SubMndβ€˜π‘€) β†’ 𝑀 ∈ Mnd)
2 ssinss1 4198 . . . . . . . . 9 (𝐴 βŠ† (Baseβ€˜π‘€) β†’ (𝐴 ∩ 𝐡) βŠ† (Baseβ€˜π‘€))
323ad2ant1 1134 . . . . . . . 8 ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) β†’ (𝐴 ∩ 𝐡) βŠ† (Baseβ€˜π‘€))
43ad2antrl 727 . . . . . . 7 ((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) β†’ (𝐴 ∩ 𝐡) βŠ† (Baseβ€˜π‘€))
5 elin 3927 . . . . . . . . . . . . 13 ((0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡) ↔ ((0gβ€˜π‘€) ∈ 𝐴 ∧ (0gβ€˜π‘€) ∈ 𝐡))
65simplbi2com 504 . . . . . . . . . . . 12 ((0gβ€˜π‘€) ∈ 𝐡 β†’ ((0gβ€˜π‘€) ∈ 𝐴 β†’ (0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡)))
763ad2ant2 1135 . . . . . . . . . . 11 ((𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡) β†’ ((0gβ€˜π‘€) ∈ 𝐴 β†’ (0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡)))
87com12 32 . . . . . . . . . 10 ((0gβ€˜π‘€) ∈ 𝐴 β†’ ((𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡) β†’ (0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡)))
983ad2ant2 1135 . . . . . . . . 9 ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) β†’ ((𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡) β†’ (0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡)))
109imp 408 . . . . . . . 8 (((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡)) β†’ (0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡))
1110adantl 483 . . . . . . 7 ((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) β†’ (0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡))
12 elin 3927 . . . . . . . . . 10 (π‘₯ ∈ (𝐴 ∩ 𝐡) ↔ (π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡))
13 elin 3927 . . . . . . . . . 10 (𝑦 ∈ (𝐴 ∩ 𝐡) ↔ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡))
1412, 13anbi12i 628 . . . . . . . . 9 ((π‘₯ ∈ (𝐴 ∩ 𝐡) ∧ 𝑦 ∈ (𝐴 ∩ 𝐡)) ↔ ((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)))
15 oveq1 7365 . . . . . . . . . . . . . . . . 17 (π‘Ž = π‘₯ β†’ (π‘Ž(+gβ€˜π‘€)𝑏) = (π‘₯(+gβ€˜π‘€)𝑏))
1615eleq1d 2819 . . . . . . . . . . . . . . . 16 (π‘Ž = π‘₯ β†’ ((π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴 ↔ (π‘₯(+gβ€˜π‘€)𝑏) ∈ 𝐴))
17 oveq2 7366 . . . . . . . . . . . . . . . . 17 (𝑏 = 𝑦 β†’ (π‘₯(+gβ€˜π‘€)𝑏) = (π‘₯(+gβ€˜π‘€)𝑦))
1817eleq1d 2819 . . . . . . . . . . . . . . . 16 (𝑏 = 𝑦 β†’ ((π‘₯(+gβ€˜π‘€)𝑏) ∈ 𝐴 ↔ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐴))
19 simpl 484 . . . . . . . . . . . . . . . . 17 ((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) β†’ π‘₯ ∈ 𝐴)
2019adantr 482 . . . . . . . . . . . . . . . 16 (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ π‘₯ ∈ 𝐴)
21 eqidd 2734 . . . . . . . . . . . . . . . 16 ((((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) ∧ π‘Ž = π‘₯) β†’ 𝐴 = 𝐴)
22 simpl 484 . . . . . . . . . . . . . . . . 17 ((𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ 𝐴)
2322adantl 483 . . . . . . . . . . . . . . . 16 (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ 𝑦 ∈ 𝐴)
2416, 18, 20, 21, 23rspc2vd 3907 . . . . . . . . . . . . . . 15 (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴 β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐴))
2524com12 32 . . . . . . . . . . . . . 14 (βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴 β†’ (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐴))
26253ad2ant3 1136 . . . . . . . . . . . . 13 ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) β†’ (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐴))
2726ad2antrl 727 . . . . . . . . . . . 12 ((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) β†’ (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐴))
2827imp 408 . . . . . . . . . . 11 (((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) ∧ ((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡))) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐴)
2915eleq1d 2819 . . . . . . . . . . . . . . . . 17 (π‘Ž = π‘₯ β†’ ((π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡 ↔ (π‘₯(+gβ€˜π‘€)𝑏) ∈ 𝐡))
3017eleq1d 2819 . . . . . . . . . . . . . . . . 17 (𝑏 = 𝑦 β†’ ((π‘₯(+gβ€˜π‘€)𝑏) ∈ 𝐡 ↔ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐡))
31 simpr 486 . . . . . . . . . . . . . . . . . 18 ((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) β†’ π‘₯ ∈ 𝐡)
3231adantr 482 . . . . . . . . . . . . . . . . 17 (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ π‘₯ ∈ 𝐡)
33 eqidd 2734 . . . . . . . . . . . . . . . . 17 ((((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) ∧ π‘Ž = π‘₯) β†’ 𝐡 = 𝐡)
34 simpr 486 . . . . . . . . . . . . . . . . . 18 ((𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ 𝐡)
3534adantl 483 . . . . . . . . . . . . . . . . 17 (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ 𝑦 ∈ 𝐡)
3629, 30, 32, 33, 35rspc2vd 3907 . . . . . . . . . . . . . . . 16 (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡 β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐡))
3736com12 32 . . . . . . . . . . . . . . 15 (βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡 β†’ (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐡))
38373ad2ant3 1136 . . . . . . . . . . . . . 14 ((𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡) β†’ (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐡))
3938adantl 483 . . . . . . . . . . . . 13 (((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡)) β†’ (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐡))
4039adantl 483 . . . . . . . . . . . 12 ((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) β†’ (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐡))
4140imp 408 . . . . . . . . . . 11 (((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) ∧ ((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡))) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ 𝐡)
4228, 41elind 4155 . . . . . . . . . 10 (((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) ∧ ((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡))) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ (𝐴 ∩ 𝐡))
4342ex 414 . . . . . . . . 9 ((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) β†’ (((π‘₯ ∈ 𝐴 ∧ π‘₯ ∈ 𝐡) ∧ (𝑦 ∈ 𝐴 ∧ 𝑦 ∈ 𝐡)) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ (𝐴 ∩ 𝐡)))
4414, 43biimtrid 241 . . . . . . . 8 ((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) β†’ ((π‘₯ ∈ (𝐴 ∩ 𝐡) ∧ 𝑦 ∈ (𝐴 ∩ 𝐡)) β†’ (π‘₯(+gβ€˜π‘€)𝑦) ∈ (𝐴 ∩ 𝐡)))
4544ralrimivv 3192 . . . . . . 7 ((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) β†’ βˆ€π‘₯ ∈ (𝐴 ∩ 𝐡)βˆ€π‘¦ ∈ (𝐴 ∩ 𝐡)(π‘₯(+gβ€˜π‘€)𝑦) ∈ (𝐴 ∩ 𝐡))
464, 11, 453jca 1129 . . . . . 6 ((𝑀 ∈ Mnd ∧ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))) β†’ ((𝐴 ∩ 𝐡) βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡) ∧ βˆ€π‘₯ ∈ (𝐴 ∩ 𝐡)βˆ€π‘¦ ∈ (𝐴 ∩ 𝐡)(π‘₯(+gβ€˜π‘€)𝑦) ∈ (𝐴 ∩ 𝐡)))
4746ex 414 . . . . 5 (𝑀 ∈ Mnd β†’ (((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡)) β†’ ((𝐴 ∩ 𝐡) βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡) ∧ βˆ€π‘₯ ∈ (𝐴 ∩ 𝐡)βˆ€π‘¦ ∈ (𝐴 ∩ 𝐡)(π‘₯(+gβ€˜π‘€)𝑦) ∈ (𝐴 ∩ 𝐡))))
48 eqid 2733 . . . . . . 7 (Baseβ€˜π‘€) = (Baseβ€˜π‘€)
49 eqid 2733 . . . . . . 7 (0gβ€˜π‘€) = (0gβ€˜π‘€)
50 eqid 2733 . . . . . . 7 (+gβ€˜π‘€) = (+gβ€˜π‘€)
5148, 49, 50issubm 18619 . . . . . 6 (𝑀 ∈ Mnd β†’ (𝐴 ∈ (SubMndβ€˜π‘€) ↔ (𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴)))
5248, 49, 50issubm 18619 . . . . . 6 (𝑀 ∈ Mnd β†’ (𝐡 ∈ (SubMndβ€˜π‘€) ↔ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡)))
5351, 52anbi12d 632 . . . . 5 (𝑀 ∈ Mnd β†’ ((𝐴 ∈ (SubMndβ€˜π‘€) ∧ 𝐡 ∈ (SubMndβ€˜π‘€)) ↔ ((𝐴 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐴 ∧ βˆ€π‘Ž ∈ 𝐴 βˆ€π‘ ∈ 𝐴 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐴) ∧ (𝐡 βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ 𝐡 ∧ βˆ€π‘Ž ∈ 𝐡 βˆ€π‘ ∈ 𝐡 (π‘Ž(+gβ€˜π‘€)𝑏) ∈ 𝐡))))
5448, 49, 50issubm 18619 . . . . 5 (𝑀 ∈ Mnd β†’ ((𝐴 ∩ 𝐡) ∈ (SubMndβ€˜π‘€) ↔ ((𝐴 ∩ 𝐡) βŠ† (Baseβ€˜π‘€) ∧ (0gβ€˜π‘€) ∈ (𝐴 ∩ 𝐡) ∧ βˆ€π‘₯ ∈ (𝐴 ∩ 𝐡)βˆ€π‘¦ ∈ (𝐴 ∩ 𝐡)(π‘₯(+gβ€˜π‘€)𝑦) ∈ (𝐴 ∩ 𝐡))))
5547, 53, 543imtr4d 294 . . . 4 (𝑀 ∈ Mnd β†’ ((𝐴 ∈ (SubMndβ€˜π‘€) ∧ 𝐡 ∈ (SubMndβ€˜π‘€)) β†’ (𝐴 ∩ 𝐡) ∈ (SubMndβ€˜π‘€)))
5655expd 417 . . 3 (𝑀 ∈ Mnd β†’ (𝐴 ∈ (SubMndβ€˜π‘€) β†’ (𝐡 ∈ (SubMndβ€˜π‘€) β†’ (𝐴 ∩ 𝐡) ∈ (SubMndβ€˜π‘€))))
571, 56mpcom 38 . 2 (𝐴 ∈ (SubMndβ€˜π‘€) β†’ (𝐡 ∈ (SubMndβ€˜π‘€) β†’ (𝐴 ∩ 𝐡) ∈ (SubMndβ€˜π‘€)))
5857imp 408 1 ((𝐴 ∈ (SubMndβ€˜π‘€) ∧ 𝐡 ∈ (SubMndβ€˜π‘€)) β†’ (𝐴 ∩ 𝐡) ∈ (SubMndβ€˜π‘€))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ∧ wa 397   ∧ w3a 1088   ∈ wcel 2107  βˆ€wral 3061   ∩ cin 3910   βŠ† wss 3911  β€˜cfv 6497  (class class class)co 7358  Basecbs 17088  +gcplusg 17138  0gc0g 17326  Mndcmnd 18561  SubMndcsubmnd 18605
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5257  ax-nul 5264  ax-pow 5321  ax-pr 5385
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-rab 3407  df-v 3446  df-sbc 3741  df-csb 3857  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-nul 4284  df-if 4488  df-pw 4563  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4867  df-br 5107  df-opab 5169  df-mpt 5190  df-id 5532  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-iota 6449  df-fun 6499  df-fv 6505  df-ov 7361  df-submnd 18607
This theorem is referenced by:  symgsubmefmnd  19185
  Copyright terms: Public domain W3C validator