Theorem archiabl 33283

Description: Archimedean left- and right- ordered groups are Abelian. (Contributed by Thierry Arnoux, 1-May-2018.)

Assertion

Ref	Expression
archiabl	⊢ ((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) → 𝑊 ∈ Abel)

Proof of Theorem archiabl

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

Step	Hyp	Ref	Expression
1		eqid 2741	. . . . 5 ⊢ (Base‘𝑊) = (Base‘𝑊)
2		eqid 2741	. . . . 5 ⊢ (0g‘𝑊) = (0g‘𝑊)
3		eqid 2741	. . . . 5 ⊢ (le‘𝑊) = (le‘𝑊)
4		eqid 2741	. . . . 5 ⊢ (lt‘𝑊) = (lt‘𝑊)
5		eqid 2741	. . . . 5 ⊢ (.g‘𝑊) = (.g‘𝑊)
6		simpll1 1220	. . . . 5 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) → 𝑊 ∈ oGrp)
7		simpll3 1222	. . . . 5 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) → 𝑊 ∈ Archi)
8		simplr 775	. . . . 5 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) → 𝑣 ∈ (Base‘𝑊))
9		simprl 777	. . . . 5 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) → (0g‘𝑊)(lt‘𝑊)𝑣)
10		simp2 1144	. . . . . 6 ⊢ (((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) ∧ 𝑦 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑦) → 𝑦 ∈ (Base‘𝑊))
11		simp1rr 1247	. . . . . 6 ⊢ (((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) ∧ 𝑦 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑦) → ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))
12		simp3 1145	. . . . . 6 ⊢ (((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) ∧ 𝑦 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑦) → (0g‘𝑊)(lt‘𝑊)𝑦)
13		breq2 5079	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → ((0g‘𝑊)(lt‘𝑊)𝑥 ↔ (0g‘𝑊)(lt‘𝑊)𝑦))
14		breq2 5079	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → (𝑣(le‘𝑊)𝑥 ↔ 𝑣(le‘𝑊)𝑦))
15	13, 14	imbi12d 346	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥) ↔ ((0g‘𝑊)(lt‘𝑊)𝑦 → 𝑣(le‘𝑊)𝑦)))
16	15	rspcv 3558	. . . . . 6 ⊢ (𝑦 ∈ (Base‘𝑊) → (∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥) → ((0g‘𝑊)(lt‘𝑊)𝑦 → 𝑣(le‘𝑊)𝑦)))
17	10, 11, 12, 16	syl3c 66	. . . . 5 ⊢ (((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) ∧ 𝑦 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑦) → 𝑣(le‘𝑊)𝑦)
18	1, 2, 3, 4, 5, 6, 7, 8, 9, 17	archiabllem1 33278	. . . 4 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) → 𝑊 ∈ Abel)
19	18	adantllr 726	. . 3 ⊢ (((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) ∧ 𝑣 ∈ (Base‘𝑊)) ∧ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))) → 𝑊 ∈ Abel)
20		breq2 5079	. . . . . 6 ⊢ (𝑢 = 𝑣 → ((0g‘𝑊)(lt‘𝑊)𝑢 ↔ (0g‘𝑊)(lt‘𝑊)𝑣))
21		breq1 5078	. . . . . . . 8 ⊢ (𝑢 = 𝑣 → (𝑢(le‘𝑊)𝑥 ↔ 𝑣(le‘𝑊)𝑥))
22	21	imbi2d 342	. . . . . . 7 ⊢ (𝑢 = 𝑣 → (((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥) ↔ ((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥)))
23	22	ralbidv 3164	. . . . . 6 ⊢ (𝑢 = 𝑣 → (∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥) ↔ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥)))
24	20, 23	anbi12d 639	. . . . 5 ⊢ (𝑢 = 𝑣 → (((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)) ↔ ((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥))))
25	24	cbvrexvw 3220	. . . 4 ⊢ (∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)) ↔ ∃𝑣 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥)))
26	25	bilani 506	. . 3 ⊢ (((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) → ∃𝑣 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑣 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑣(le‘𝑊)𝑥)))
27	19, 26	r19.29a 3149	. 2 ⊢ (((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) → 𝑊 ∈ Abel)
28		simpl1 1199	. . 3 ⊢ (((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) → 𝑊 ∈ oGrp)
29		simpl3 1201	. . 3 ⊢ (((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) → 𝑊 ∈ Archi)
30		eqid 2741	. . 3 ⊢ (+g‘𝑊) = (+g‘𝑊)
31		simpl2 1200	. . 3 ⊢ (((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) → (oppg‘𝑊) ∈ oGrp)
32		ralnex 3067	. . . . . . . . . 10 ⊢ (∀𝑢 ∈ (Base‘𝑊) ¬ ((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)) ↔ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)))
33	32	bilanri 508	. . . . . . . . 9 ⊢ (((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) → ∀𝑢 ∈ (Base‘𝑊) ¬ ((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)))
34		rexanali 3095	. . . . . . . . . . . 12 ⊢ (∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑢(le‘𝑊)𝑥) ↔ ¬ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))
35	34	imbi2i 338	. . . . . . . . . . 11 ⊢ (((0g‘𝑊)(lt‘𝑊)𝑢 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑢(le‘𝑊)𝑥)) ↔ ((0g‘𝑊)(lt‘𝑊)𝑢 → ¬ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)))
36		imnan 401	. . . . . . . . . . 11 ⊢ (((0g‘𝑊)(lt‘𝑊)𝑢 → ¬ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)) ↔ ¬ ((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)))
37	35, 36	bitri 277	. . . . . . . . . 10 ⊢ (((0g‘𝑊)(lt‘𝑊)𝑢 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑢(le‘𝑊)𝑥)) ↔ ¬ ((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)))
38	37	ralbii 3087	. . . . . . . . 9 ⊢ (∀𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑢(le‘𝑊)𝑥)) ↔ ∀𝑢 ∈ (Base‘𝑊) ¬ ((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥)))
39	33, 38	sylibr 236	. . . . . . . 8 ⊢ (((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) → ∀𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑢(le‘𝑊)𝑥)))
40	21	notbid 320	. . . . . . . . . . . 12 ⊢ (𝑢 = 𝑣 → (¬ 𝑢(le‘𝑊)𝑥 ↔ ¬ 𝑣(le‘𝑊)𝑥))
41	40	anbi2d 637	. . . . . . . . . . 11 ⊢ (𝑢 = 𝑣 → (((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑢(le‘𝑊)𝑥) ↔ ((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑣(le‘𝑊)𝑥)))
42	41	rexbidv 3165	. . . . . . . . . 10 ⊢ (𝑢 = 𝑣 → (∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑢(le‘𝑊)𝑥) ↔ ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑣(le‘𝑊)𝑥)))
43	20, 42	imbi12d 346	. . . . . . . . 9 ⊢ (𝑢 = 𝑣 → (((0g‘𝑊)(lt‘𝑊)𝑢 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑢(le‘𝑊)𝑥)) ↔ ((0g‘𝑊)(lt‘𝑊)𝑣 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑣(le‘𝑊)𝑥))))
44	43	cbvralvw 3219	. . . . . . . 8 ⊢ (∀𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑢(le‘𝑊)𝑥)) ↔ ∀𝑣 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑣 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑣(le‘𝑊)𝑥)))
45	39, 44	sylib 220	. . . . . . 7 ⊢ (((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) → ∀𝑣 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑣 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑣(le‘𝑊)𝑥)))
46	45	r19.21bi 3233	. . . . . 6 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) ∧ 𝑣 ∈ (Base‘𝑊)) → ((0g‘𝑊)(lt‘𝑊)𝑣 → ∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑣(le‘𝑊)𝑥)))
47	14	notbid 320	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → (¬ 𝑣(le‘𝑊)𝑥 ↔ ¬ 𝑣(le‘𝑊)𝑦))
48	13, 47	anbi12d 639	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑣(le‘𝑊)𝑥) ↔ ((0g‘𝑊)(lt‘𝑊)𝑦 ∧ ¬ 𝑣(le‘𝑊)𝑦)))
49	48	cbvrexvw 3220	. . . . . 6 ⊢ (∃𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 ∧ ¬ 𝑣(le‘𝑊)𝑥) ↔ ∃𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑦 ∧ ¬ 𝑣(le‘𝑊)𝑦))
50	46, 49	imbitrdi 253	. . . . 5 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) ∧ 𝑣 ∈ (Base‘𝑊)) → ((0g‘𝑊)(lt‘𝑊)𝑣 → ∃𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑦 ∧ ¬ 𝑣(le‘𝑊)𝑦)))
51	50	3impia 1124	. . . 4 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) ∧ 𝑣 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑣) → ∃𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑦 ∧ ¬ 𝑣(le‘𝑊)𝑦))
52		simp1l1 1274	. . . . . 6 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) ∧ 𝑣 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑣) → 𝑊 ∈ oGrp)
53		isogrp 20094	. . . . . . 7 ⊢ (𝑊 ∈ oGrp ↔ (𝑊 ∈ Grp ∧ 𝑊 ∈ oMnd))
54	53	simprbi 499	. . . . . 6 ⊢ (𝑊 ∈ oGrp → 𝑊 ∈ oMnd)
55		omndtos 20097	. . . . . 6 ⊢ (𝑊 ∈ oMnd → 𝑊 ∈ Toset)
56	52, 54, 55	3syl 18	. . . . 5 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) ∧ 𝑣 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑣) → 𝑊 ∈ Toset)
57		simp2 1144	. . . . 5 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) ∧ 𝑣 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑣) → 𝑣 ∈ (Base‘𝑊))
58	1, 3, 4	tltnle 18381	. . . . . . . . . 10 ⊢ ((𝑊 ∈ Toset ∧ 𝑦 ∈ (Base‘𝑊) ∧ 𝑣 ∈ (Base‘𝑊)) → (𝑦(lt‘𝑊)𝑣 ↔ ¬ 𝑣(le‘𝑊)𝑦))
59	58	bicomd 225	. . . . . . . . 9 ⊢ ((𝑊 ∈ Toset ∧ 𝑦 ∈ (Base‘𝑊) ∧ 𝑣 ∈ (Base‘𝑊)) → (¬ 𝑣(le‘𝑊)𝑦 ↔ 𝑦(lt‘𝑊)𝑣))
60	59	3com23 1133	. . . . . . . 8 ⊢ ((𝑊 ∈ Toset ∧ 𝑣 ∈ (Base‘𝑊) ∧ 𝑦 ∈ (Base‘𝑊)) → (¬ 𝑣(le‘𝑊)𝑦 ↔ 𝑦(lt‘𝑊)𝑣))
61	60	3expa 1125	. . . . . . 7 ⊢ (((𝑊 ∈ Toset ∧ 𝑣 ∈ (Base‘𝑊)) ∧ 𝑦 ∈ (Base‘𝑊)) → (¬ 𝑣(le‘𝑊)𝑦 ↔ 𝑦(lt‘𝑊)𝑣))
62	61	anbi2d 637	. . . . . 6 ⊢ (((𝑊 ∈ Toset ∧ 𝑣 ∈ (Base‘𝑊)) ∧ 𝑦 ∈ (Base‘𝑊)) → (((0g‘𝑊)(lt‘𝑊)𝑦 ∧ ¬ 𝑣(le‘𝑊)𝑦) ↔ ((0g‘𝑊)(lt‘𝑊)𝑦 ∧ 𝑦(lt‘𝑊)𝑣)))
63	62	rexbidva 3163	. . . . 5 ⊢ ((𝑊 ∈ Toset ∧ 𝑣 ∈ (Base‘𝑊)) → (∃𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑦 ∧ ¬ 𝑣(le‘𝑊)𝑦) ↔ ∃𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑦 ∧ 𝑦(lt‘𝑊)𝑣)))
64	56, 57, 63	syl2anc 591	. . . 4 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) ∧ 𝑣 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑣) → (∃𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑦 ∧ ¬ 𝑣(le‘𝑊)𝑦) ↔ ∃𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑦 ∧ 𝑦(lt‘𝑊)𝑣)))
65	51, 64	mpbid 234	. . 3 ⊢ ((((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) ∧ 𝑣 ∈ (Base‘𝑊) ∧ (0g‘𝑊)(lt‘𝑊)𝑣) → ∃𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑦 ∧ 𝑦(lt‘𝑊)𝑣))
66	1, 2, 3, 4, 5, 28, 29, 30, 31, 65	archiabllem2 33282	. 2 ⊢ (((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) ∧ ¬ ∃𝑢 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑢 ∧ ∀𝑥 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → 𝑢(le‘𝑊)𝑥))) → 𝑊 ∈ Abel)
67	27, 66	pm2.61dan 819	1 ⊢ ((𝑊 ∈ oGrp ∧ (oppg‘𝑊) ∈ oGrp ∧ 𝑊 ∈ Archi) → 𝑊 ∈ Abel)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 397   ∧ w3a 1093   = wceq 1548   ∈ wcel 2121  ∀wral 3055  ∃wrex 3065   class class class wbr 5075  ‘cfv 6489  Basecbs 17174  +_gcplusg 17215  lecple 17222  0_gc0g 17397  ltcplt 18269  Tosetctos 18375  Grpcgrp 18904  ._gcmg 19038  opp_gcoppg 19315  Abelcabl 19751  oMndcomnd 20089  oGrpcogrp 20090  Archicarchi 33262

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-sep 5221  ax-nul 5231  ax-pow 5297  ax-pr 5365  ax-un 7682  ax-cnex 11089  ax-resscn 11090  ax-1cn 11091  ax-icn 11092  ax-addcl 11093  ax-addrcl 11094  ax-mulcl 11095  ax-mulrcl 11096  ax-mulcom 11097  ax-addass 11098  ax-mulass 11099  ax-distr 11100  ax-i2m1 11101  ax-1ne0 11102  ax-1rid 11103  ax-rnegex 11104  ax-rrecex 11105  ax-cnre 11106  ax-pre-lttri 11107  ax-pre-lttrn 11108  ax-pre-ltadd 11109  ax-pre-mulgt0 11110

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3or 1094  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-nel 3041  df-ral 3056  df-rex 3066  df-rmo 3346  df-reu 3347  df-rab 3394  df-v 3435  df-sbc 3726  df-csb 3834  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-pss 3905  df-nul 4265  df-if 4458  df-pw 4534  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4842  df-iun 4926  df-br 5076  df-opab 5138  df-mpt 5157  df-tr 5183  df-id 5516  df-eprel 5521  df-po 5529  df-so 5530  df-fr 5574  df-we 5576  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-pred 6256  df-ord 6317  df-on 6318  df-lim 6319  df-suc 6320  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-om 7811  df-1st 7935  df-2nd 7936  df-tpos 8170  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-er 8637  df-en 8888  df-dom 8889  df-sdom 8890  df-pnf 11176  df-mnf 11177  df-xr 11178  df-ltxr 11179  df-le 11180  df-sub 11374  df-neg 11375  df-nn 12170  df-2 12239  df-3 12240  df-4 12241  df-5 12242  df-6 12243  df-7 12244  df-8 12245  df-9 12246  df-n0 12433  df-z 12520  df-dec 12640  df-uz 12784  df-fz 13457  df-seq 13959  df-sets 17129  df-slot 17147  df-ndx 17159  df-base 17175  df-plusg 17228  df-ple 17235  df-0g 17399  df-proset 18255  df-poset 18274  df-plt 18289  df-toset 18376  df-mgm 18603  df-sgrp 18682  df-mnd 18698  df-grp 18907  df-minusg 18908  df-sbg 18909  df-mulg 19039  df-oppg 19316  df-cmn 19752  df-abl 19753  df-omnd 20091  df-ogrp 20092  df-inftm 33263  df-archi 33264

This theorem is referenced by: (None)