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

Theorem subgint 17896
Description: The intersection of a nonempty collection of subgroups is a subgroup. (Contributed by Mario Carneiro, 7-Dec-2014.)
Assertion
Ref Expression
subgint ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → 𝑆 ∈ (SubGrp‘𝐺))

Proof of Theorem subgint
Dummy variables 𝑥 𝑔 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 intssuni 4657 . . . 4 (𝑆 ≠ ∅ → 𝑆 𝑆)
21adantl 473 . . 3 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → 𝑆 𝑆)
3 ssel2 3758 . . . . . . 7 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑔𝑆) → 𝑔 ∈ (SubGrp‘𝐺))
43adantlr 706 . . . . . 6 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑔𝑆) → 𝑔 ∈ (SubGrp‘𝐺))
5 eqid 2765 . . . . . . 7 (Base‘𝐺) = (Base‘𝐺)
65subgss 17873 . . . . . 6 (𝑔 ∈ (SubGrp‘𝐺) → 𝑔 ⊆ (Base‘𝐺))
74, 6syl 17 . . . . 5 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑔𝑆) → 𝑔 ⊆ (Base‘𝐺))
87ralrimiva 3113 . . . 4 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → ∀𝑔𝑆 𝑔 ⊆ (Base‘𝐺))
9 unissb 4629 . . . 4 ( 𝑆 ⊆ (Base‘𝐺) ↔ ∀𝑔𝑆 𝑔 ⊆ (Base‘𝐺))
108, 9sylibr 225 . . 3 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → 𝑆 ⊆ (Base‘𝐺))
112, 10sstrd 3773 . 2 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → 𝑆 ⊆ (Base‘𝐺))
12 eqid 2765 . . . . . . 7 (0g𝐺) = (0g𝐺)
1312subg0cl 17880 . . . . . 6 (𝑔 ∈ (SubGrp‘𝐺) → (0g𝐺) ∈ 𝑔)
144, 13syl 17 . . . . 5 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑔𝑆) → (0g𝐺) ∈ 𝑔)
1514ralrimiva 3113 . . . 4 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → ∀𝑔𝑆 (0g𝐺) ∈ 𝑔)
16 fvex 6392 . . . . 5 (0g𝐺) ∈ V
1716elint2 4642 . . . 4 ((0g𝐺) ∈ 𝑆 ↔ ∀𝑔𝑆 (0g𝐺) ∈ 𝑔)
1815, 17sylibr 225 . . 3 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → (0g𝐺) ∈ 𝑆)
1918ne0d 4088 . 2 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → 𝑆 ≠ ∅)
204adantlr 706 . . . . . . . . 9 ((((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ (𝑥 𝑆𝑦 𝑆)) ∧ 𝑔𝑆) → 𝑔 ∈ (SubGrp‘𝐺))
21 simprl 787 . . . . . . . . . 10 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ (𝑥 𝑆𝑦 𝑆)) → 𝑥 𝑆)
22 elinti 4644 . . . . . . . . . . 11 (𝑥 𝑆 → (𝑔𝑆𝑥𝑔))
2322imp 395 . . . . . . . . . 10 ((𝑥 𝑆𝑔𝑆) → 𝑥𝑔)
2421, 23sylan 575 . . . . . . . . 9 ((((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ (𝑥 𝑆𝑦 𝑆)) ∧ 𝑔𝑆) → 𝑥𝑔)
25 simprr 789 . . . . . . . . . 10 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ (𝑥 𝑆𝑦 𝑆)) → 𝑦 𝑆)
26 elinti 4644 . . . . . . . . . . 11 (𝑦 𝑆 → (𝑔𝑆𝑦𝑔))
2726imp 395 . . . . . . . . . 10 ((𝑦 𝑆𝑔𝑆) → 𝑦𝑔)
2825, 27sylan 575 . . . . . . . . 9 ((((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ (𝑥 𝑆𝑦 𝑆)) ∧ 𝑔𝑆) → 𝑦𝑔)
29 eqid 2765 . . . . . . . . . 10 (+g𝐺) = (+g𝐺)
3029subgcl 17882 . . . . . . . . 9 ((𝑔 ∈ (SubGrp‘𝐺) ∧ 𝑥𝑔𝑦𝑔) → (𝑥(+g𝐺)𝑦) ∈ 𝑔)
3120, 24, 28, 30syl3anc 1490 . . . . . . . 8 ((((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ (𝑥 𝑆𝑦 𝑆)) ∧ 𝑔𝑆) → (𝑥(+g𝐺)𝑦) ∈ 𝑔)
3231ralrimiva 3113 . . . . . . 7 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ (𝑥 𝑆𝑦 𝑆)) → ∀𝑔𝑆 (𝑥(+g𝐺)𝑦) ∈ 𝑔)
33 ovex 6878 . . . . . . . 8 (𝑥(+g𝐺)𝑦) ∈ V
3433elint2 4642 . . . . . . 7 ((𝑥(+g𝐺)𝑦) ∈ 𝑆 ↔ ∀𝑔𝑆 (𝑥(+g𝐺)𝑦) ∈ 𝑔)
3532, 34sylibr 225 . . . . . 6 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ (𝑥 𝑆𝑦 𝑆)) → (𝑥(+g𝐺)𝑦) ∈ 𝑆)
3635anassrs 459 . . . . 5 ((((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑥 𝑆) ∧ 𝑦 𝑆) → (𝑥(+g𝐺)𝑦) ∈ 𝑆)
3736ralrimiva 3113 . . . 4 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑥 𝑆) → ∀𝑦 𝑆(𝑥(+g𝐺)𝑦) ∈ 𝑆)
384adantlr 706 . . . . . . 7 ((((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑥 𝑆) ∧ 𝑔𝑆) → 𝑔 ∈ (SubGrp‘𝐺))
3923adantll 705 . . . . . . 7 ((((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑥 𝑆) ∧ 𝑔𝑆) → 𝑥𝑔)
40 eqid 2765 . . . . . . . 8 (invg𝐺) = (invg𝐺)
4140subginvcl 17881 . . . . . . 7 ((𝑔 ∈ (SubGrp‘𝐺) ∧ 𝑥𝑔) → ((invg𝐺)‘𝑥) ∈ 𝑔)
4238, 39, 41syl2anc 579 . . . . . 6 ((((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑥 𝑆) ∧ 𝑔𝑆) → ((invg𝐺)‘𝑥) ∈ 𝑔)
4342ralrimiva 3113 . . . . 5 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑥 𝑆) → ∀𝑔𝑆 ((invg𝐺)‘𝑥) ∈ 𝑔)
44 fvex 6392 . . . . . 6 ((invg𝐺)‘𝑥) ∈ V
4544elint2 4642 . . . . 5 (((invg𝐺)‘𝑥) ∈ 𝑆 ↔ ∀𝑔𝑆 ((invg𝐺)‘𝑥) ∈ 𝑔)
4643, 45sylibr 225 . . . 4 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑥 𝑆) → ((invg𝐺)‘𝑥) ∈ 𝑆)
4737, 46jca 507 . . 3 (((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) ∧ 𝑥 𝑆) → (∀𝑦 𝑆(𝑥(+g𝐺)𝑦) ∈ 𝑆 ∧ ((invg𝐺)‘𝑥) ∈ 𝑆))
4847ralrimiva 3113 . 2 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → ∀𝑥 𝑆(∀𝑦 𝑆(𝑥(+g𝐺)𝑦) ∈ 𝑆 ∧ ((invg𝐺)‘𝑥) ∈ 𝑆))
49 ssn0 4140 . . 3 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → (SubGrp‘𝐺) ≠ ∅)
50 n0 4097 . . . 4 ((SubGrp‘𝐺) ≠ ∅ ↔ ∃𝑔 𝑔 ∈ (SubGrp‘𝐺))
51 subgrcl 17877 . . . . 5 (𝑔 ∈ (SubGrp‘𝐺) → 𝐺 ∈ Grp)
5251exlimiv 2025 . . . 4 (∃𝑔 𝑔 ∈ (SubGrp‘𝐺) → 𝐺 ∈ Grp)
5350, 52sylbi 208 . . 3 ((SubGrp‘𝐺) ≠ ∅ → 𝐺 ∈ Grp)
545, 29, 40issubg2 17887 . . 3 (𝐺 ∈ Grp → ( 𝑆 ∈ (SubGrp‘𝐺) ↔ ( 𝑆 ⊆ (Base‘𝐺) ∧ 𝑆 ≠ ∅ ∧ ∀𝑥 𝑆(∀𝑦 𝑆(𝑥(+g𝐺)𝑦) ∈ 𝑆 ∧ ((invg𝐺)‘𝑥) ∈ 𝑆))))
5549, 53, 543syl 18 . 2 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → ( 𝑆 ∈ (SubGrp‘𝐺) ↔ ( 𝑆 ⊆ (Base‘𝐺) ∧ 𝑆 ≠ ∅ ∧ ∀𝑥 𝑆(∀𝑦 𝑆(𝑥(+g𝐺)𝑦) ∈ 𝑆 ∧ ((invg𝐺)‘𝑥) ∈ 𝑆))))
5611, 19, 48, 55mpbir3and 1442 1 ((𝑆 ⊆ (SubGrp‘𝐺) ∧ 𝑆 ≠ ∅) → 𝑆 ∈ (SubGrp‘𝐺))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wa 384  w3a 1107  wex 1874  wcel 2155  wne 2937  wral 3055  wss 3734  c0 4081   cuni 4596   cint 4635  cfv 6070  (class class class)co 6846  Basecbs 16144  +gcplusg 16228  0gc0g 16380  Grpcgrp 17703  invgcminusg 17704  SubGrpcsubg 17866
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4932  ax-sep 4943  ax-nul 4951  ax-pow 5003  ax-pr 5064  ax-un 7151  ax-cnex 10249  ax-resscn 10250  ax-1cn 10251  ax-icn 10252  ax-addcl 10253  ax-addrcl 10254  ax-mulcl 10255  ax-mulrcl 10256  ax-mulcom 10257  ax-addass 10258  ax-mulass 10259  ax-distr 10260  ax-i2m1 10261  ax-1ne0 10262  ax-1rid 10263  ax-rnegex 10264  ax-rrecex 10265  ax-cnre 10266  ax-pre-lttri 10267  ax-pre-lttrn 10268  ax-pre-ltadd 10269  ax-pre-mulgt0 10270
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3599  df-csb 3694  df-dif 3737  df-un 3739  df-in 3741  df-ss 3748  df-pss 3750  df-nul 4082  df-if 4246  df-pw 4319  df-sn 4337  df-pr 4339  df-tp 4341  df-op 4343  df-uni 4597  df-int 4636  df-iun 4680  df-br 4812  df-opab 4874  df-mpt 4891  df-tr 4914  df-id 5187  df-eprel 5192  df-po 5200  df-so 5201  df-fr 5238  df-we 5240  df-xp 5285  df-rel 5286  df-cnv 5287  df-co 5288  df-dm 5289  df-rn 5290  df-res 5291  df-ima 5292  df-pred 5867  df-ord 5913  df-on 5914  df-lim 5915  df-suc 5916  df-iota 6033  df-fun 6072  df-fn 6073  df-f 6074  df-f1 6075  df-fo 6076  df-f1o 6077  df-fv 6078  df-riota 6807  df-ov 6849  df-oprab 6850  df-mpt2 6851  df-om 7268  df-wrecs 7614  df-recs 7676  df-rdg 7714  df-er 7951  df-en 8165  df-dom 8166  df-sdom 8167  df-pnf 10334  df-mnf 10335  df-xr 10336  df-ltxr 10337  df-le 10338  df-sub 10526  df-neg 10527  df-nn 11279  df-2 11339  df-ndx 16147  df-slot 16148  df-base 16150  df-sets 16151  df-ress 16152  df-plusg 16241  df-0g 16382  df-mgm 17522  df-sgrp 17564  df-mnd 17575  df-grp 17706  df-minusg 17707  df-subg 17869
This theorem is referenced by:  subrgint  19085
  Copyright terms: Public domain W3C validator