Theorem dprdgrp 20108

Description: Reverse closure for the internal direct product. (Contributed by Mario Carneiro, 25-Apr-2016.)

Assertion

Ref	Expression
dprdgrp	⊢ (𝐺dom DProd 𝑆 → 𝐺 ∈ Grp)

Proof of Theorem dprdgrp

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		reldmdprd 20100	. . . . . 6 ⊢ Rel dom DProd
2	1	brrelex2i 5723	. . . . 5 ⊢ (𝐺dom DProd 𝑆 → 𝑆 ∈ V)
3	2	dmexd 7909	. . . 4 ⊢ (𝐺dom DProd 𝑆 → dom 𝑆 ∈ V)
4		eqid 2766	. . . 4 ⊢ dom 𝑆 = dom 𝑆
5		eqid 2766	. . . . 5 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
6		eqid 2766	. . . . 5 ⊢ (0g‘𝐺) = (0g‘𝐺)
7		eqid 2766	. . . . 5 ⊢ (mrCls‘(SubGrp‘𝐺)) = (mrCls‘(SubGrp‘𝐺))
8	5, 6, 7	dmdprd 20101	. . . 4 ⊢ ((dom 𝑆 ∈ V ∧ dom 𝑆 = dom 𝑆) → (𝐺dom DProd 𝑆 ↔ (𝐺 ∈ Grp ∧ 𝑆:dom 𝑆⟶(SubGrp‘𝐺) ∧ ∀𝑥 ∈ dom 𝑆(∀𝑦 ∈ (dom 𝑆 ∖ {𝑥})(𝑆‘𝑥) ⊆ ((Cntz‘𝐺)‘(𝑆‘𝑦)) ∧ ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ (𝑆 “ (dom 𝑆 ∖ {𝑥})))) = {(0g‘𝐺)}))))
9	3, 4, 8	sylancl 598	. . 3 ⊢ (𝐺dom DProd 𝑆 → (𝐺dom DProd 𝑆 ↔ (𝐺 ∈ Grp ∧ 𝑆:dom 𝑆⟶(SubGrp‘𝐺) ∧ ∀𝑥 ∈ dom 𝑆(∀𝑦 ∈ (dom 𝑆 ∖ {𝑥})(𝑆‘𝑥) ⊆ ((Cntz‘𝐺)‘(𝑆‘𝑦)) ∧ ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ (𝑆 “ (dom 𝑆 ∖ {𝑥})))) = {(0g‘𝐺)}))))
10	9	ibi 270	. 2 ⊢ (𝐺dom DProd 𝑆 → (𝐺 ∈ Grp ∧ 𝑆:dom 𝑆⟶(SubGrp‘𝐺) ∧ ∀𝑥 ∈ dom 𝑆(∀𝑦 ∈ (dom 𝑆 ∖ {𝑥})(𝑆‘𝑥) ⊆ ((Cntz‘𝐺)‘(𝑆‘𝑦)) ∧ ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ (𝑆 “ (dom 𝑆 ∖ {𝑥})))) = {(0g‘𝐺)})))
11	10	simp1d 1160	1 ⊢ (𝐺dom DProd 𝑆 → 𝐺 ∈ Grp)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2146  ∀wral 3082  Vcvv 3458   ∖ cdif 3905   ∩ cin 3907   ⊆ wss 3908  {csn 4594  ∪ cuni 4877   class class class wbr 5114  dom cdm 5666   “ cima 5669  ⟶wf 6539  ‘cfv 6543  0_gc0g 17517  mrClscmrc 17660  Grpcgrp 19031  SubGrpcsubg 19217  Cntzccntz 19416   DProd cdprd 20096

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5561  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-oprab 7427  df-mpo 7428  df-1st 7995  df-2nd 7996  df-ixp 8905  df-dprd 20098

This theorem is used by:  dprdssv  20119  dprdfid  20120  dprdfinv  20122  dprdfadd  20123  dprdfsub  20124  dprdfeq0  20125  dprdf11  20126  dprdsubg  20127  dprdlub  20129  dprdspan  20130  dprdres  20131  dprdss  20132  dprdf1o  20135  dmdprdsplitlem  20140  dprdcntz2  20141  dprddisj2  20142  dprd2dlem1  20144  dprd2da  20145  dmdprdsplit2lem  20148  dmdprdsplit2  20149  dpjfval  20158  dpjidcl  20161