Theorem dfgrp3lem 18191

Description: Lemma for dfgrp3 18192. (Contributed by AV, 28-Aug-2021.)

Hypotheses

Ref	Expression
dfgrp3.b	⊢ 𝐵 = (Base‘𝐺)
dfgrp3.p	⊢ + = (+g‘𝐺)

Assertion

Ref	Expression
dfgrp3lem	⊢ ((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → ∃𝑢 ∈ 𝐵 ∀𝑎 ∈ 𝐵 ((𝑢 + 𝑎) = 𝑎 ∧ ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢))

Distinct variable groups:   𝐵,𝑎,𝑖,𝑙,𝑟,𝑢,𝑥,𝑦   𝐺,𝑎,𝑖,𝑙,𝑟,𝑢,𝑥,𝑦   + ,𝑎,𝑖,𝑙,𝑟,𝑢,𝑥,𝑦

Proof of Theorem dfgrp3lem

Dummy variables 𝑤 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simp2 1133	. . 3 ⊢ ((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → 𝐵 ≠ ∅)
2		n0 4309	. . 3 ⊢ (𝐵 ≠ ∅ ↔ ∃𝑤 𝑤 ∈ 𝐵)
3	1, 2	sylib 220	. 2 ⊢ ((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → ∃𝑤 𝑤 ∈ 𝐵)
4		oveq2 7158	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → (𝑙 + 𝑥) = (𝑙 + 𝑤))
5	4	eqeq1d 2823	. . . . . . . . . 10 ⊢ (𝑥 = 𝑤 → ((𝑙 + 𝑥) = 𝑦 ↔ (𝑙 + 𝑤) = 𝑦))
6	5	rexbidv 3297	. . . . . . . . 9 ⊢ (𝑥 = 𝑤 → (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ↔ ∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦))
7		oveq1 7157	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → (𝑥 + 𝑟) = (𝑤 + 𝑟))
8	7	eqeq1d 2823	. . . . . . . . . 10 ⊢ (𝑥 = 𝑤 → ((𝑥 + 𝑟) = 𝑦 ↔ (𝑤 + 𝑟) = 𝑦))
9	8	rexbidv 3297	. . . . . . . . 9 ⊢ (𝑥 = 𝑤 → (∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦 ↔ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦))
10	6, 9	anbi12d 632	. . . . . . . 8 ⊢ (𝑥 = 𝑤 → ((∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦) ↔ (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦)))
11	10	ralbidv 3197	. . . . . . 7 ⊢ (𝑥 = 𝑤 → (∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦) ↔ ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦)))
12	11	rspcv 3617	. . . . . 6 ⊢ (𝑤 ∈ 𝐵 → (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦) → ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦)))
13		eqeq2 2833	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑤 → ((𝑙 + 𝑤) = 𝑦 ↔ (𝑙 + 𝑤) = 𝑤))
14	13	rexbidv 3297	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ↔ ∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑤))
15		eqeq2 2833	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑤 → ((𝑤 + 𝑟) = 𝑦 ↔ (𝑤 + 𝑟) = 𝑤))
16	15	rexbidv 3297	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → (∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦 ↔ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑤))
17	14, 16	anbi12d 632	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → ((∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦) ↔ (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑤 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑤)))
18	17	rspcva 3620	. . . . . . . 8 ⊢ ((𝑤 ∈ 𝐵 ∧ ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦)) → (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑤 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑤))
19		oveq1 7157	. . . . . . . . . . . 12 ⊢ (𝑙 = 𝑢 → (𝑙 + 𝑤) = (𝑢 + 𝑤))
20	19	eqeq1d 2823	. . . . . . . . . . 11 ⊢ (𝑙 = 𝑢 → ((𝑙 + 𝑤) = 𝑤 ↔ (𝑢 + 𝑤) = 𝑤))
21	20	cbvrexvw 3450	. . . . . . . . . 10 ⊢ (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑤 ↔ ∃𝑢 ∈ 𝐵 (𝑢 + 𝑤) = 𝑤)
22	21	biimpi 218	. . . . . . . . 9 ⊢ (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑤 → ∃𝑢 ∈ 𝐵 (𝑢 + 𝑤) = 𝑤)
23	22	adantr 483	. . . . . . . 8 ⊢ ((∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑤 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑤) → ∃𝑢 ∈ 𝐵 (𝑢 + 𝑤) = 𝑤)
24	18, 23	syl 17	. . . . . . 7 ⊢ ((𝑤 ∈ 𝐵 ∧ ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦)) → ∃𝑢 ∈ 𝐵 (𝑢 + 𝑤) = 𝑤)
25	24	ex 415	. . . . . 6 ⊢ (𝑤 ∈ 𝐵 → (∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦) → ∃𝑢 ∈ 𝐵 (𝑢 + 𝑤) = 𝑤))
26	12, 25	syldc 48	. . . . 5 ⊢ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦) → (𝑤 ∈ 𝐵 → ∃𝑢 ∈ 𝐵 (𝑢 + 𝑤) = 𝑤))
27	26	3ad2ant3 1131	. . . 4 ⊢ ((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → (𝑤 ∈ 𝐵 → ∃𝑢 ∈ 𝐵 (𝑢 + 𝑤) = 𝑤))
28	27	imp 409	. . 3 ⊢ (((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) → ∃𝑢 ∈ 𝐵 (𝑢 + 𝑤) = 𝑤)
29		eqeq2 2833	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑎 → ((𝑙 + 𝑤) = 𝑦 ↔ (𝑙 + 𝑤) = 𝑎))
30	29	rexbidv 3297	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑎 → (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ↔ ∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑎))
31		eqeq2 2833	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑎 → ((𝑤 + 𝑟) = 𝑦 ↔ (𝑤 + 𝑟) = 𝑎))
32	31	rexbidv 3297	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑎 → (∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦 ↔ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎))
33	30, 32	anbi12d 632	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑎 → ((∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑦) ↔ (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑎 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎)))
34	10, 33	rspc2va 3633	. . . . . . . . . . . . 13 ⊢ (((𝑤 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → (∃𝑙 ∈ 𝐵 (𝑙 + 𝑤) = 𝑎 ∧ ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎))
35	34	simprd 498	. . . . . . . . . . . 12 ⊢ (((𝑤 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎)
36	35	expcom 416	. . . . . . . . . . 11 ⊢ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦) → ((𝑤 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) → ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎))
37	36	3ad2ant3 1131	. . . . . . . . . 10 ⊢ ((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → ((𝑤 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) → ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎))
38	37	impl 458	. . . . . . . . 9 ⊢ ((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑎 ∈ 𝐵) → ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎)
39	38	ad2ant2r 745	. . . . . . . 8 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ (𝑎 ∈ 𝐵 ∧ (𝑢 + 𝑤) = 𝑤)) → ∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎)
40		oveq2 7158	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑧 → (𝑤 + 𝑟) = (𝑤 + 𝑧))
41	40	eqeq1d 2823	. . . . . . . . . . 11 ⊢ (𝑟 = 𝑧 → ((𝑤 + 𝑟) = 𝑎 ↔ (𝑤 + 𝑧) = 𝑎))
42	41	cbvrexvw 3450	. . . . . . . . . 10 ⊢ (∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎 ↔ ∃𝑧 ∈ 𝐵 (𝑤 + 𝑧) = 𝑎)
43		simpll1 1208	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝐺 ∈ Smgrp)
44	43	adantr 483	. . . . . . . . . . . . . . 15 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ ((𝑢 + 𝑤) = 𝑤 ∧ 𝑧 ∈ 𝐵)) → 𝐺 ∈ Smgrp)
45		simplr 767	. . . . . . . . . . . . . . 15 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ ((𝑢 + 𝑤) = 𝑤 ∧ 𝑧 ∈ 𝐵)) → 𝑢 ∈ 𝐵)
46		simpllr 774	. . . . . . . . . . . . . . 15 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ ((𝑢 + 𝑤) = 𝑤 ∧ 𝑧 ∈ 𝐵)) → 𝑤 ∈ 𝐵)
47		simprr 771	. . . . . . . . . . . . . . 15 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ ((𝑢 + 𝑤) = 𝑤 ∧ 𝑧 ∈ 𝐵)) → 𝑧 ∈ 𝐵)
48		dfgrp3.b	. . . . . . . . . . . . . . . 16 ⊢ 𝐵 = (Base‘𝐺)
49		dfgrp3.p	. . . . . . . . . . . . . . . 16 ⊢ + = (+g‘𝐺)
50	48, 49	sgrpass 17901	. . . . . . . . . . . . . . 15 ⊢ ((𝐺 ∈ Smgrp ∧ (𝑢 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵)) → ((𝑢 + 𝑤) + 𝑧) = (𝑢 + (𝑤 + 𝑧)))
51	44, 45, 46, 47, 50	syl13anc 1368	. . . . . . . . . . . . . 14 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ ((𝑢 + 𝑤) = 𝑤 ∧ 𝑧 ∈ 𝐵)) → ((𝑢 + 𝑤) + 𝑧) = (𝑢 + (𝑤 + 𝑧)))
52		simprl 769	. . . . . . . . . . . . . . 15 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ ((𝑢 + 𝑤) = 𝑤 ∧ 𝑧 ∈ 𝐵)) → (𝑢 + 𝑤) = 𝑤)
53	52	oveq1d 7165	. . . . . . . . . . . . . 14 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ ((𝑢 + 𝑤) = 𝑤 ∧ 𝑧 ∈ 𝐵)) → ((𝑢 + 𝑤) + 𝑧) = (𝑤 + 𝑧))
54	51, 53	eqtr3d 2858	. . . . . . . . . . . . 13 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ ((𝑢 + 𝑤) = 𝑤 ∧ 𝑧 ∈ 𝐵)) → (𝑢 + (𝑤 + 𝑧)) = (𝑤 + 𝑧))
55	54	anassrs 470	. . . . . . . . . . . 12 ⊢ ((((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ (𝑢 + 𝑤) = 𝑤) ∧ 𝑧 ∈ 𝐵) → (𝑢 + (𝑤 + 𝑧)) = (𝑤 + 𝑧))
56		oveq2 7158	. . . . . . . . . . . . 13 ⊢ ((𝑤 + 𝑧) = 𝑎 → (𝑢 + (𝑤 + 𝑧)) = (𝑢 + 𝑎))
57		id 22	. . . . . . . . . . . . 13 ⊢ ((𝑤 + 𝑧) = 𝑎 → (𝑤 + 𝑧) = 𝑎)
58	56, 57	eqeq12d 2837	. . . . . . . . . . . 12 ⊢ ((𝑤 + 𝑧) = 𝑎 → ((𝑢 + (𝑤 + 𝑧)) = (𝑤 + 𝑧) ↔ (𝑢 + 𝑎) = 𝑎))
59	55, 58	syl5ibcom 247	. . . . . . . . . . 11 ⊢ ((((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ (𝑢 + 𝑤) = 𝑤) ∧ 𝑧 ∈ 𝐵) → ((𝑤 + 𝑧) = 𝑎 → (𝑢 + 𝑎) = 𝑎))
60	59	rexlimdva 3284	. . . . . . . . . 10 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ (𝑢 + 𝑤) = 𝑤) → (∃𝑧 ∈ 𝐵 (𝑤 + 𝑧) = 𝑎 → (𝑢 + 𝑎) = 𝑎))
61	42, 60	syl5bi 244	. . . . . . . . 9 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ (𝑢 + 𝑤) = 𝑤) → (∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎 → (𝑢 + 𝑎) = 𝑎))
62	61	adantrl 714	. . . . . . . 8 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ (𝑎 ∈ 𝐵 ∧ (𝑢 + 𝑤) = 𝑤)) → (∃𝑟 ∈ 𝐵 (𝑤 + 𝑟) = 𝑎 → (𝑢 + 𝑎) = 𝑎))
63	39, 62	mpd 15	. . . . . . 7 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ (𝑎 ∈ 𝐵 ∧ (𝑢 + 𝑤) = 𝑤)) → (𝑢 + 𝑎) = 𝑎)
64		oveq2 7158	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑎 → (𝑙 + 𝑥) = (𝑙 + 𝑎))
65	64	eqeq1d 2823	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑙 + 𝑥) = 𝑦 ↔ (𝑙 + 𝑎) = 𝑦))
66	65	rexbidv 3297	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ↔ ∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑦))
67		oveq1 7157	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑎 → (𝑥 + 𝑟) = (𝑎 + 𝑟))
68	67	eqeq1d 2823	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑎 → ((𝑥 + 𝑟) = 𝑦 ↔ (𝑎 + 𝑟) = 𝑦))
69	68	rexbidv 3297	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → (∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦 ↔ ∃𝑟 ∈ 𝐵 (𝑎 + 𝑟) = 𝑦))
70	66, 69	anbi12d 632	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑎 → ((∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦) ↔ (∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑎 + 𝑟) = 𝑦)))
71		eqeq2 2833	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑢 → ((𝑙 + 𝑎) = 𝑦 ↔ (𝑙 + 𝑎) = 𝑢))
72	71	rexbidv 3297	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑢 → (∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑦 ↔ ∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢))
73		eqeq2 2833	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑢 → ((𝑎 + 𝑟) = 𝑦 ↔ (𝑎 + 𝑟) = 𝑢))
74	73	rexbidv 3297	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑢 → (∃𝑟 ∈ 𝐵 (𝑎 + 𝑟) = 𝑦 ↔ ∃𝑟 ∈ 𝐵 (𝑎 + 𝑟) = 𝑢))
75	72, 74	anbi12d 632	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 𝑢 → ((∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑎 + 𝑟) = 𝑦) ↔ (∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢 ∧ ∃𝑟 ∈ 𝐵 (𝑎 + 𝑟) = 𝑢)))
76	70, 75	rspc2va 3633	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑢 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → (∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢 ∧ ∃𝑟 ∈ 𝐵 (𝑎 + 𝑟) = 𝑢))
77	76	simpld 497	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑢 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → ∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢)
78	77	ex 415	. . . . . . . . . . . . . 14 ⊢ ((𝑎 ∈ 𝐵 ∧ 𝑢 ∈ 𝐵) → (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦) → ∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢))
79	78	ancoms 461	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) → (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦) → ∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢))
80	79	com12 32	. . . . . . . . . . . 12 ⊢ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦) → ((𝑢 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) → ∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢))
81	80	3ad2ant3 1131	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → ((𝑢 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) → ∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢))
82	81	impl 458	. . . . . . . . . 10 ⊢ ((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑢 ∈ 𝐵) ∧ 𝑎 ∈ 𝐵) → ∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢)
83		oveq1 7157	. . . . . . . . . . . 12 ⊢ (𝑙 = 𝑖 → (𝑙 + 𝑎) = (𝑖 + 𝑎))
84	83	eqeq1d 2823	. . . . . . . . . . 11 ⊢ (𝑙 = 𝑖 → ((𝑙 + 𝑎) = 𝑢 ↔ (𝑖 + 𝑎) = 𝑢))
85	84	cbvrexvw 3450	. . . . . . . . . 10 ⊢ (∃𝑙 ∈ 𝐵 (𝑙 + 𝑎) = 𝑢 ↔ ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢)
86	82, 85	sylib 220	. . . . . . . . 9 ⊢ ((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑢 ∈ 𝐵) ∧ 𝑎 ∈ 𝐵) → ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢)
87	86	adantllr 717	. . . . . . . 8 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ 𝑎 ∈ 𝐵) → ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢)
88	87	adantrr 715	. . . . . . 7 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ (𝑎 ∈ 𝐵 ∧ (𝑢 + 𝑤) = 𝑤)) → ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢)
89	63, 88	jca 514	. . . . . 6 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ (𝑎 ∈ 𝐵 ∧ (𝑢 + 𝑤) = 𝑤)) → ((𝑢 + 𝑎) = 𝑎 ∧ ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢))
90	89	expr 459	. . . . 5 ⊢ (((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) ∧ 𝑎 ∈ 𝐵) → ((𝑢 + 𝑤) = 𝑤 → ((𝑢 + 𝑎) = 𝑎 ∧ ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢)))
91	90	ralrimdva 3189	. . . 4 ⊢ ((((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → ((𝑢 + 𝑤) = 𝑤 → ∀𝑎 ∈ 𝐵 ((𝑢 + 𝑎) = 𝑎 ∧ ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢)))
92	91	reximdva 3274	. . 3 ⊢ (((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) → (∃𝑢 ∈ 𝐵 (𝑢 + 𝑤) = 𝑤 → ∃𝑢 ∈ 𝐵 ∀𝑎 ∈ 𝐵 ((𝑢 + 𝑎) = 𝑎 ∧ ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢)))
93	28, 92	mpd 15	. 2 ⊢ (((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) ∧ 𝑤 ∈ 𝐵) → ∃𝑢 ∈ 𝐵 ∀𝑎 ∈ 𝐵 ((𝑢 + 𝑎) = 𝑎 ∧ ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢))
94	3, 93	exlimddv 1932	1 ⊢ ((𝐺 ∈ Smgrp ∧ 𝐵 ≠ ∅ ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (∃𝑙 ∈ 𝐵 (𝑙 + 𝑥) = 𝑦 ∧ ∃𝑟 ∈ 𝐵 (𝑥 + 𝑟) = 𝑦)) → ∃𝑢 ∈ 𝐵 ∀𝑎 ∈ 𝐵 ((𝑢 + 𝑎) = 𝑎 ∧ ∃𝑖 ∈ 𝐵 (𝑖 + 𝑎) = 𝑢))

Syntax hints:   → wi 4   ∧ wa 398   ∧ w3a 1083   = wceq 1533  ∃wex 1776   ∈ wcel 2110   ≠ wne 3016  ∀wral 3138  ∃wrex 3139  ∅c0 4290  ‘cfv 6349  (class class class)co 7150  Basecbs 16477  +_gcplusg 16559  Smgrpcsgrp 17894

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-nul 5202

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-rab 3147  df-v 3496  df-sbc 3772  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-nul 4291  df-if 4467  df-sn 4561  df-pr 4563  df-op 4567  df-uni 4832  df-br 5059  df-iota 6308  df-fv 6357  df-ov 7153  df-sgrp 17895

This theorem is referenced by:  dfgrp3  18192