Users' Mathboxes Mathbox for Jeff Madsen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  isgrpda Structured version   Visualization version   GIF version

Theorem isgrpda 37498
Description: Properties that determine a group operation. (Contributed by Jeff Madsen, 1-Dec-2009.) (New usage is discouraged.)
Hypotheses
Ref Expression
isgrpda.1 (πœ‘ β†’ 𝑋 ∈ V)
isgrpda.2 (πœ‘ β†’ 𝐺:(𝑋 Γ— 𝑋)βŸΆπ‘‹)
isgrpda.3 ((πœ‘ ∧ (π‘₯ ∈ 𝑋 ∧ 𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋)) β†’ ((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)))
isgrpda.4 (πœ‘ β†’ π‘ˆ ∈ 𝑋)
isgrpda.5 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ (π‘ˆπΊπ‘₯) = π‘₯)
isgrpda.6 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ βˆƒπ‘› ∈ 𝑋 (𝑛𝐺π‘₯) = π‘ˆ)
Assertion
Ref Expression
isgrpda (πœ‘ β†’ 𝐺 ∈ GrpOp)
Distinct variable groups:   πœ‘,π‘₯,𝑦,𝑧   𝑛,𝐺,π‘₯,𝑦,𝑧   𝑛,𝑋,π‘₯,𝑦,𝑧   π‘ˆ,𝑛,π‘₯,𝑦,𝑧
Allowed substitution hint:   πœ‘(𝑛)

Proof of Theorem isgrpda
Dummy variable 𝑒 is distinct from all other variables.
StepHypRef Expression
1 isgrpda.2 . . 3 (πœ‘ β†’ 𝐺:(𝑋 Γ— 𝑋)βŸΆπ‘‹)
2 isgrpda.3 . . . 4 ((πœ‘ ∧ (π‘₯ ∈ 𝑋 ∧ 𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋)) β†’ ((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)))
32ralrimivvva 3194 . . 3 (πœ‘ β†’ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 βˆ€π‘§ ∈ 𝑋 ((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)))
4 isgrpda.4 . . . 4 (πœ‘ β†’ π‘ˆ ∈ 𝑋)
5 isgrpda.5 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ (π‘ˆπΊπ‘₯) = π‘₯)
6 isgrpda.6 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ βˆƒπ‘› ∈ 𝑋 (𝑛𝐺π‘₯) = π‘ˆ)
7 oveq1 7424 . . . . . . . . 9 (𝑦 = 𝑛 β†’ (𝑦𝐺π‘₯) = (𝑛𝐺π‘₯))
87eqeq1d 2727 . . . . . . . 8 (𝑦 = 𝑛 β†’ ((𝑦𝐺π‘₯) = π‘ˆ ↔ (𝑛𝐺π‘₯) = π‘ˆ))
98cbvrexvw 3226 . . . . . . 7 (βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = π‘ˆ ↔ βˆƒπ‘› ∈ 𝑋 (𝑛𝐺π‘₯) = π‘ˆ)
106, 9sylibr 233 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = π‘ˆ)
115, 10jca 510 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ ((π‘ˆπΊπ‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = π‘ˆ))
1211ralrimiva 3136 . . . 4 (πœ‘ β†’ βˆ€π‘₯ ∈ 𝑋 ((π‘ˆπΊπ‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = π‘ˆ))
13 oveq1 7424 . . . . . . . 8 (𝑒 = π‘ˆ β†’ (𝑒𝐺π‘₯) = (π‘ˆπΊπ‘₯))
1413eqeq1d 2727 . . . . . . 7 (𝑒 = π‘ˆ β†’ ((𝑒𝐺π‘₯) = π‘₯ ↔ (π‘ˆπΊπ‘₯) = π‘₯))
15 eqeq2 2737 . . . . . . . 8 (𝑒 = π‘ˆ β†’ ((𝑦𝐺π‘₯) = 𝑒 ↔ (𝑦𝐺π‘₯) = π‘ˆ))
1615rexbidv 3169 . . . . . . 7 (𝑒 = π‘ˆ β†’ (βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒 ↔ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = π‘ˆ))
1714, 16anbi12d 630 . . . . . 6 (𝑒 = π‘ˆ β†’ (((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒) ↔ ((π‘ˆπΊπ‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = π‘ˆ)))
1817ralbidv 3168 . . . . 5 (𝑒 = π‘ˆ β†’ (βˆ€π‘₯ ∈ 𝑋 ((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒) ↔ βˆ€π‘₯ ∈ 𝑋 ((π‘ˆπΊπ‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = π‘ˆ)))
1918rspcev 3607 . . . 4 ((π‘ˆ ∈ 𝑋 ∧ βˆ€π‘₯ ∈ 𝑋 ((π‘ˆπΊπ‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = π‘ˆ)) β†’ βˆƒπ‘’ ∈ 𝑋 βˆ€π‘₯ ∈ 𝑋 ((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒))
204, 12, 19syl2anc 582 . . 3 (πœ‘ β†’ βˆƒπ‘’ ∈ 𝑋 βˆ€π‘₯ ∈ 𝑋 ((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒))
214adantr 479 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ π‘ˆ ∈ 𝑋)
22 simpr 483 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ π‘₯ ∈ 𝑋)
235eqcomd 2731 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ π‘₯ = (π‘ˆπΊπ‘₯))
24 rspceov 7465 . . . . . . . . . 10 ((π‘ˆ ∈ 𝑋 ∧ π‘₯ ∈ 𝑋 ∧ π‘₯ = (π‘ˆπΊπ‘₯)) β†’ βˆƒπ‘¦ ∈ 𝑋 βˆƒπ‘§ ∈ 𝑋 π‘₯ = (𝑦𝐺𝑧))
2521, 22, 23, 24syl3anc 1368 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ 𝑋) β†’ βˆƒπ‘¦ ∈ 𝑋 βˆƒπ‘§ ∈ 𝑋 π‘₯ = (𝑦𝐺𝑧))
2625ralrimiva 3136 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘₯ ∈ 𝑋 βˆƒπ‘¦ ∈ 𝑋 βˆƒπ‘§ ∈ 𝑋 π‘₯ = (𝑦𝐺𝑧))
27 foov 7593 . . . . . . . 8 (𝐺:(𝑋 Γ— 𝑋)–onto→𝑋 ↔ (𝐺:(𝑋 Γ— 𝑋)βŸΆπ‘‹ ∧ βˆ€π‘₯ ∈ 𝑋 βˆƒπ‘¦ ∈ 𝑋 βˆƒπ‘§ ∈ 𝑋 π‘₯ = (𝑦𝐺𝑧)))
281, 26, 27sylanbrc 581 . . . . . . 7 (πœ‘ β†’ 𝐺:(𝑋 Γ— 𝑋)–onto→𝑋)
29 forn 6811 . . . . . . 7 (𝐺:(𝑋 Γ— 𝑋)–onto→𝑋 β†’ ran 𝐺 = 𝑋)
3028, 29syl 17 . . . . . 6 (πœ‘ β†’ ran 𝐺 = 𝑋)
3130sqxpeqd 5709 . . . . 5 (πœ‘ β†’ (ran 𝐺 Γ— ran 𝐺) = (𝑋 Γ— 𝑋))
3231, 30feq23d 6716 . . . 4 (πœ‘ β†’ (𝐺:(ran 𝐺 Γ— ran 𝐺)⟢ran 𝐺 ↔ 𝐺:(𝑋 Γ— 𝑋)βŸΆπ‘‹))
3330raleqdv 3315 . . . . . 6 (πœ‘ β†’ (βˆ€π‘§ ∈ ran 𝐺((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)) ↔ βˆ€π‘§ ∈ 𝑋 ((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧))))
3430, 33raleqbidv 3330 . . . . 5 (πœ‘ β†’ (βˆ€π‘¦ ∈ ran πΊβˆ€π‘§ ∈ ran 𝐺((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)) ↔ βˆ€π‘¦ ∈ 𝑋 βˆ€π‘§ ∈ 𝑋 ((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧))))
3530, 34raleqbidv 3330 . . . 4 (πœ‘ β†’ (βˆ€π‘₯ ∈ ran πΊβˆ€π‘¦ ∈ ran πΊβˆ€π‘§ ∈ ran 𝐺((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)) ↔ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 βˆ€π‘§ ∈ 𝑋 ((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧))))
3630rexeqdv 3316 . . . . . . 7 (πœ‘ β†’ (βˆƒπ‘¦ ∈ ran 𝐺(𝑦𝐺π‘₯) = 𝑒 ↔ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒))
3736anbi2d 628 . . . . . 6 (πœ‘ β†’ (((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ ran 𝐺(𝑦𝐺π‘₯) = 𝑒) ↔ ((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒)))
3830, 37raleqbidv 3330 . . . . 5 (πœ‘ β†’ (βˆ€π‘₯ ∈ ran 𝐺((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ ran 𝐺(𝑦𝐺π‘₯) = 𝑒) ↔ βˆ€π‘₯ ∈ 𝑋 ((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒)))
3930, 38rexeqbidv 3331 . . . 4 (πœ‘ β†’ (βˆƒπ‘’ ∈ ran πΊβˆ€π‘₯ ∈ ran 𝐺((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ ran 𝐺(𝑦𝐺π‘₯) = 𝑒) ↔ βˆƒπ‘’ ∈ 𝑋 βˆ€π‘₯ ∈ 𝑋 ((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒)))
4032, 35, 393anbi123d 1432 . . 3 (πœ‘ β†’ ((𝐺:(ran 𝐺 Γ— ran 𝐺)⟢ran 𝐺 ∧ βˆ€π‘₯ ∈ ran πΊβˆ€π‘¦ ∈ ran πΊβˆ€π‘§ ∈ ran 𝐺((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)) ∧ βˆƒπ‘’ ∈ ran πΊβˆ€π‘₯ ∈ ran 𝐺((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ ran 𝐺(𝑦𝐺π‘₯) = 𝑒)) ↔ (𝐺:(𝑋 Γ— 𝑋)βŸΆπ‘‹ ∧ βˆ€π‘₯ ∈ 𝑋 βˆ€π‘¦ ∈ 𝑋 βˆ€π‘§ ∈ 𝑋 ((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)) ∧ βˆƒπ‘’ ∈ 𝑋 βˆ€π‘₯ ∈ 𝑋 ((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ 𝑋 (𝑦𝐺π‘₯) = 𝑒))))
411, 3, 20, 40mpbir3and 1339 . 2 (πœ‘ β†’ (𝐺:(ran 𝐺 Γ— ran 𝐺)⟢ran 𝐺 ∧ βˆ€π‘₯ ∈ ran πΊβˆ€π‘¦ ∈ ran πΊβˆ€π‘§ ∈ ran 𝐺((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)) ∧ βˆƒπ‘’ ∈ ran πΊβˆ€π‘₯ ∈ ran 𝐺((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ ran 𝐺(𝑦𝐺π‘₯) = 𝑒)))
42 isgrpda.1 . . . . 5 (πœ‘ β†’ 𝑋 ∈ V)
4342, 42xpexd 7752 . . . 4 (πœ‘ β†’ (𝑋 Γ— 𝑋) ∈ V)
441, 43fexd 7237 . . 3 (πœ‘ β†’ 𝐺 ∈ V)
45 eqid 2725 . . . 4 ran 𝐺 = ran 𝐺
4645isgrpo 30363 . . 3 (𝐺 ∈ V β†’ (𝐺 ∈ GrpOp ↔ (𝐺:(ran 𝐺 Γ— ran 𝐺)⟢ran 𝐺 ∧ βˆ€π‘₯ ∈ ran πΊβˆ€π‘¦ ∈ ran πΊβˆ€π‘§ ∈ ran 𝐺((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)) ∧ βˆƒπ‘’ ∈ ran πΊβˆ€π‘₯ ∈ ran 𝐺((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ ran 𝐺(𝑦𝐺π‘₯) = 𝑒))))
4744, 46syl 17 . 2 (πœ‘ β†’ (𝐺 ∈ GrpOp ↔ (𝐺:(ran 𝐺 Γ— ran 𝐺)⟢ran 𝐺 ∧ βˆ€π‘₯ ∈ ran πΊβˆ€π‘¦ ∈ ran πΊβˆ€π‘§ ∈ ran 𝐺((π‘₯𝐺𝑦)𝐺𝑧) = (π‘₯𝐺(𝑦𝐺𝑧)) ∧ βˆƒπ‘’ ∈ ran πΊβˆ€π‘₯ ∈ ran 𝐺((𝑒𝐺π‘₯) = π‘₯ ∧ βˆƒπ‘¦ ∈ ran 𝐺(𝑦𝐺π‘₯) = 𝑒))))
4841, 47mpbird 256 1 (πœ‘ β†’ 𝐺 ∈ GrpOp)
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098  βˆ€wral 3051  βˆƒwrex 3060  Vcvv 3463   Γ— cxp 5675  ran crn 5678  βŸΆwf 6543  β€“ontoβ†’wfo 6545  (class class class)co 7417  GrpOpcgr 30355
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 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5364  ax-pr 5428  ax-un 7739
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-ral 3052  df-rex 3061  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3775  df-csb 3891  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4909  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5575  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-res 5689  df-ima 5690  df-iota 6499  df-fun 6549  df-fn 6550  df-f 6551  df-f1 6552  df-fo 6553  df-f1o 6554  df-fv 6555  df-ov 7420  df-grpo 30359
This theorem is referenced by:  isdrngo2  37501
  Copyright terms: Public domain W3C validator