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

Theorem dmdprdpr 19149
Description: A singleton family is an internal direct product, the product of which is the given subgroup. (Contributed by Mario Carneiro, 25-Apr-2016.)
Hypotheses
Ref Expression
dmdprdpr.z 𝑍 = (Cntz‘𝐺)
dmdprdpr.0 0 = (0g𝐺)
dmdprdpr.s (𝜑𝑆 ∈ (SubGrp‘𝐺))
dmdprdpr.t (𝜑𝑇 ∈ (SubGrp‘𝐺))
Assertion
Ref Expression
dmdprdpr (𝜑 → (𝐺dom DProd {⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↔ (𝑆 ⊆ (𝑍𝑇) ∧ (𝑆𝑇) = { 0 })))

Proof of Theorem dmdprdpr
StepHypRef Expression
1 0ex 5184 . . . . . 6 ∅ ∈ V
2 dmdprdpr.s . . . . . 6 (𝜑𝑆 ∈ (SubGrp‘𝐺))
3 dprdsn 19136 . . . . . 6 ((∅ ∈ V ∧ 𝑆 ∈ (SubGrp‘𝐺)) → (𝐺dom DProd {⟨∅, 𝑆⟩} ∧ (𝐺 DProd {⟨∅, 𝑆⟩}) = 𝑆))
41, 2, 3sylancr 590 . . . . 5 (𝜑 → (𝐺dom DProd {⟨∅, 𝑆⟩} ∧ (𝐺 DProd {⟨∅, 𝑆⟩}) = 𝑆))
54simpld 498 . . . 4 (𝜑𝐺dom DProd {⟨∅, 𝑆⟩})
6 dmdprdpr.t . . . . . . . 8 (𝜑𝑇 ∈ (SubGrp‘𝐺))
7 xpscf 16816 . . . . . . . 8 ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}:2o⟶(SubGrp‘𝐺) ↔ (𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑇 ∈ (SubGrp‘𝐺)))
82, 6, 7sylanbrc 586 . . . . . . 7 (𝜑 → {⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}:2o⟶(SubGrp‘𝐺))
98ffnd 6488 . . . . . 6 (𝜑 → {⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} Fn 2o)
101prid1 4671 . . . . . . 7 ∅ ∈ {∅, 1o}
11 df2o3 8092 . . . . . . 7 2o = {∅, 1o}
1210, 11eleqtrri 2911 . . . . . 6 ∅ ∈ 2o
13 fnressn 6893 . . . . . 6 (({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} Fn 2o ∧ ∅ ∈ 2o) → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}) = {⟨∅, ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘∅)⟩})
149, 12, 13sylancl 589 . . . . 5 (𝜑 → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}) = {⟨∅, ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘∅)⟩})
15 fvpr0o 16810 . . . . . . . 8 (𝑆 ∈ (SubGrp‘𝐺) → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘∅) = 𝑆)
162, 15syl 17 . . . . . . 7 (𝜑 → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘∅) = 𝑆)
1716opeq2d 4783 . . . . . 6 (𝜑 → ⟨∅, ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘∅)⟩ = ⟨∅, 𝑆⟩)
1817sneqd 4552 . . . . 5 (𝜑 → {⟨∅, ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘∅)⟩} = {⟨∅, 𝑆⟩})
1914, 18eqtrd 2856 . . . 4 (𝜑 → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}) = {⟨∅, 𝑆⟩})
205, 19breqtrrd 5067 . . 3 (𝜑𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}))
21 1on 8084 . . . . . 6 1o ∈ On
22 dprdsn 19136 . . . . . 6 ((1o ∈ On ∧ 𝑇 ∈ (SubGrp‘𝐺)) → (𝐺dom DProd {⟨1o, 𝑇⟩} ∧ (𝐺 DProd {⟨1o, 𝑇⟩}) = 𝑇))
2321, 6, 22sylancr 590 . . . . 5 (𝜑 → (𝐺dom DProd {⟨1o, 𝑇⟩} ∧ (𝐺 DProd {⟨1o, 𝑇⟩}) = 𝑇))
2423simpld 498 . . . 4 (𝜑𝐺dom DProd {⟨1o, 𝑇⟩})
25 1oex 8085 . . . . . . . 8 1o ∈ V
2625prid2 4672 . . . . . . 7 1o ∈ {∅, 1o}
2726, 11eleqtrri 2911 . . . . . 6 1o ∈ 2o
28 fnressn 6893 . . . . . 6 (({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} Fn 2o ∧ 1o ∈ 2o) → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}) = {⟨1o, ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘1o)⟩})
299, 27, 28sylancl 589 . . . . 5 (𝜑 → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}) = {⟨1o, ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘1o)⟩})
30 fvpr1o 16811 . . . . . . . 8 (𝑇 ∈ (SubGrp‘𝐺) → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘1o) = 𝑇)
316, 30syl 17 . . . . . . 7 (𝜑 → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘1o) = 𝑇)
3231opeq2d 4783 . . . . . 6 (𝜑 → ⟨1o, ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘1o)⟩ = ⟨1o, 𝑇⟩)
3332sneqd 4552 . . . . 5 (𝜑 → {⟨1o, ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩}‘1o)⟩} = {⟨1o, 𝑇⟩})
3429, 33eqtrd 2856 . . . 4 (𝜑 → ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}) = {⟨1o, 𝑇⟩})
3524, 34breqtrrd 5067 . . 3 (𝜑𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))
36 1n0 8094 . . . . . . . . 9 1o ≠ ∅
3736necomi 3061 . . . . . . . 8 ∅ ≠ 1o
38 disjsn2 4621 . . . . . . . 8 (∅ ≠ 1o → ({∅} ∩ {1o}) = ∅)
3937, 38mp1i 13 . . . . . . 7 (𝜑 → ({∅} ∩ {1o}) = ∅)
40 df-pr 4543 . . . . . . . . 9 {∅, 1o} = ({∅} ∪ {1o})
4111, 40eqtri 2844 . . . . . . . 8 2o = ({∅} ∪ {1o})
4241a1i 11 . . . . . . 7 (𝜑 → 2o = ({∅} ∪ {1o}))
43 dmdprdpr.z . . . . . . 7 𝑍 = (Cntz‘𝐺)
44 dmdprdpr.0 . . . . . . 7 0 = (0g𝐺)
458, 39, 42, 43, 44dmdprdsplit 19147 . . . . . 6 (𝜑 → (𝐺dom DProd {⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↔ ((𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}) ∧ 𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o})) ∧ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ⊆ (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = { 0 })))
46 3anass 1092 . . . . . 6 (((𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}) ∧ 𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o})) ∧ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ⊆ (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = { 0 }) ↔ ((𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}) ∧ 𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o})) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ⊆ (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = { 0 })))
4745, 46syl6bb 290 . . . . 5 (𝜑 → (𝐺dom DProd {⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↔ ((𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}) ∧ 𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o})) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ⊆ (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = { 0 }))))
4847baibd 543 . . . 4 ((𝜑 ∧ (𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}) ∧ 𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) → (𝐺dom DProd {⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↔ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ⊆ (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = { 0 })))
4948ex 416 . . 3 (𝜑 → ((𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅}) ∧ 𝐺dom DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o})) → (𝐺dom DProd {⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↔ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ⊆ (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = { 0 }))))
5020, 35, 49mp2and 698 . 2 (𝜑 → (𝐺dom DProd {⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↔ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ⊆ (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = { 0 })))
5119oveq2d 7146 . . . . 5 (𝜑 → (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) = (𝐺 DProd {⟨∅, 𝑆⟩}))
524simprd 499 . . . . 5 (𝜑 → (𝐺 DProd {⟨∅, 𝑆⟩}) = 𝑆)
5351, 52eqtrd 2856 . . . 4 (𝜑 → (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) = 𝑆)
5434oveq2d 7146 . . . . . 6 (𝜑 → (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o})) = (𝐺 DProd {⟨1o, 𝑇⟩}))
5523simprd 499 . . . . . 6 (𝜑 → (𝐺 DProd {⟨1o, 𝑇⟩}) = 𝑇)
5654, 55eqtrd 2856 . . . . 5 (𝜑 → (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o})) = 𝑇)
5756fveq2d 6647 . . . 4 (𝜑 → (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = (𝑍𝑇))
5853, 57sseq12d 3976 . . 3 (𝜑 → ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ⊆ (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) ↔ 𝑆 ⊆ (𝑍𝑇)))
5953, 56ineq12d 4165 . . . 4 (𝜑 → ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = (𝑆𝑇))
6059eqeq1d 2823 . . 3 (𝜑 → (((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = { 0 } ↔ (𝑆𝑇) = { 0 }))
6158, 60anbi12d 633 . 2 (𝜑 → (((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ⊆ (𝑍‘(𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) ∧ ((𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {∅})) ∩ (𝐺 DProd ({⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↾ {1o}))) = { 0 }) ↔ (𝑆 ⊆ (𝑍𝑇) ∧ (𝑆𝑇) = { 0 })))
6250, 61bitrd 282 1 (𝜑 → (𝐺dom DProd {⟨∅, 𝑆⟩, ⟨1o, 𝑇⟩} ↔ (𝑆 ⊆ (𝑍𝑇) ∧ (𝑆𝑇) = { 0 })))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  w3a 1084   = wceq 1538  wcel 2115  wne 3007  Vcvv 3471  cun 3908  cin 3909  wss 3910  c0 4266  {csn 4540  {cpr 4542  cop 4546   class class class wbr 5039  dom cdm 5528  cres 5530  Oncon0 6164   Fn wfn 6323  wf 6324  cfv 6328  (class class class)co 7130  1oc1o 8070  2oc2o 8071  0gc0g 16691  SubGrpcsubg 18251  Cntzccntz 18423   DProd cdprd 19093
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1971  ax-7 2016  ax-8 2117  ax-9 2125  ax-10 2146  ax-11 2162  ax-12 2178  ax-ext 2793  ax-rep 5163  ax-sep 5176  ax-nul 5183  ax-pow 5239  ax-pr 5303  ax-un 7436  ax-cnex 10570  ax-resscn 10571  ax-1cn 10572  ax-icn 10573  ax-addcl 10574  ax-addrcl 10575  ax-mulcl 10576  ax-mulrcl 10577  ax-mulcom 10578  ax-addass 10579  ax-mulass 10580  ax-distr 10581  ax-i2m1 10582  ax-1ne0 10583  ax-1rid 10584  ax-rnegex 10585  ax-rrecex 10586  ax-cnre 10587  ax-pre-lttri 10588  ax-pre-lttrn 10589  ax-pre-ltadd 10590  ax-pre-mulgt0 10591
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2071  df-mo 2623  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2892  df-nfc 2960  df-ne 3008  df-nel 3112  df-ral 3131  df-rex 3132  df-reu 3133  df-rmo 3134  df-rab 3135  df-v 3473  df-sbc 3750  df-csb 3858  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4267  df-if 4441  df-pw 4514  df-sn 4541  df-pr 4543  df-tp 4545  df-op 4547  df-uni 4812  df-int 4850  df-iun 4894  df-iin 4895  df-br 5040  df-opab 5102  df-mpt 5120  df-tr 5146  df-id 5433  df-eprel 5438  df-po 5447  df-so 5448  df-fr 5487  df-se 5488  df-we 5489  df-xp 5534  df-rel 5535  df-cnv 5536  df-co 5537  df-dm 5538  df-rn 5539  df-res 5540  df-ima 5541  df-pred 6121  df-ord 6167  df-on 6168  df-lim 6169  df-suc 6170  df-iota 6287  df-fun 6330  df-fn 6331  df-f 6332  df-f1 6333  df-fo 6334  df-f1o 6335  df-fv 6336  df-isom 6337  df-riota 7088  df-ov 7133  df-oprab 7134  df-mpo 7135  df-of 7384  df-om 7556  df-1st 7664  df-2nd 7665  df-supp 7806  df-tpos 7867  df-wrecs 7922  df-recs 7983  df-rdg 8021  df-1o 8077  df-2o 8078  df-oadd 8081  df-er 8264  df-map 8383  df-ixp 8437  df-en 8485  df-dom 8486  df-sdom 8487  df-fin 8488  df-fsupp 8810  df-oi 8950  df-card 9344  df-pnf 10654  df-mnf 10655  df-xr 10656  df-ltxr 10657  df-le 10658  df-sub 10849  df-neg 10850  df-nn 11616  df-2 11678  df-n0 11876  df-z 11960  df-uz 12222  df-fz 12876  df-fzo 13017  df-seq 13353  df-hash 13675  df-ndx 16464  df-slot 16465  df-base 16467  df-sets 16468  df-ress 16469  df-plusg 16556  df-0g 16693  df-gsum 16694  df-mre 16835  df-mrc 16836  df-acs 16838  df-mgm 17830  df-sgrp 17879  df-mnd 17890  df-mhm 17934  df-submnd 17935  df-grp 18084  df-minusg 18085  df-sbg 18086  df-mulg 18203  df-subg 18254  df-ghm 18334  df-gim 18377  df-cntz 18425  df-oppg 18452  df-lsm 18739  df-cmn 18886  df-dprd 19095
This theorem is referenced by:  dprdpr  19150
  Copyright terms: Public domain W3C validator