Theorem submarchi 30445

Description: A submonoid is archimedean. (Contributed by Thierry Arnoux, 16-Sep-2018.)

Assertion

Ref	Expression
submarchi	⊢ (((𝑊 ∈ Toset ∧ 𝑊 ∈ Archi) ∧ 𝐴 ∈ (SubMnd‘𝑊)) → (𝑊 ↾s 𝐴) ∈ Archi)

Proof of Theorem submarchi

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

Step	Hyp	Ref	Expression
1		submrcl 17785	. . . . . 6 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → 𝑊 ∈ Mnd)
2		eqid 2794	. . . . . . 7 ⊢ (Base‘𝑊) = (Base‘𝑊)
3		eqid 2794	. . . . . . 7 ⊢ (0g‘𝑊) = (0g‘𝑊)
4		eqid 2794	. . . . . . 7 ⊢ (.g‘𝑊) = (.g‘𝑊)
5		eqid 2794	. . . . . . 7 ⊢ (le‘𝑊) = (le‘𝑊)
6		eqid 2794	. . . . . . 7 ⊢ (lt‘𝑊) = (lt‘𝑊)
7	2, 3, 4, 5, 6	isarchi2 30444	. . . . . 6 ⊢ ((𝑊 ∈ Toset ∧ 𝑊 ∈ Mnd) → (𝑊 ∈ Archi ↔ ∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥))))
8	1, 7	sylan2 592	. . . . 5 ⊢ ((𝑊 ∈ Toset ∧ 𝐴 ∈ (SubMnd‘𝑊)) → (𝑊 ∈ Archi ↔ ∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥))))
9	8	biimpa 477	. . . 4 ⊢ (((𝑊 ∈ Toset ∧ 𝐴 ∈ (SubMnd‘𝑊)) ∧ 𝑊 ∈ Archi) → ∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)))
10	9	an32s 648	. . 3 ⊢ (((𝑊 ∈ Toset ∧ 𝑊 ∈ Archi) ∧ 𝐴 ∈ (SubMnd‘𝑊)) → ∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)))
11		eqid 2794	. . . . . . . 8 ⊢ (𝑊 ↾s 𝐴) = (𝑊 ↾s 𝐴)
12	11	submbas 17794	. . . . . . 7 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → 𝐴 = (Base‘(𝑊 ↾s 𝐴)))
13	2	submss 17789	. . . . . . 7 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → 𝐴 ⊆ (Base‘𝑊))
14	12, 13	eqsstrrd 3929	. . . . . 6 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → (Base‘(𝑊 ↾s 𝐴)) ⊆ (Base‘𝑊))
15		ssralv 3956	. . . . . . . 8 ⊢ ((Base‘(𝑊 ↾s 𝐴)) ⊆ (Base‘𝑊) → (∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) → ∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥))))
16	15	ralimdv 3144	. . . . . . 7 ⊢ ((Base‘(𝑊 ↾s 𝐴)) ⊆ (Base‘𝑊) → (∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) → ∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥))))
17		ssralv 3956	. . . . . . 7 ⊢ ((Base‘(𝑊 ↾s 𝐴)) ⊆ (Base‘𝑊) → (∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) → ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥))))
18	16, 17	syld 47	. . . . . 6 ⊢ ((Base‘(𝑊 ↾s 𝐴)) ⊆ (Base‘𝑊) → (∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) → ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥))))
19	14, 18	syl 17	. . . . 5 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → (∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) → ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥))))
20	19	adantl 482	. . . 4 ⊢ (((𝑊 ∈ Toset ∧ 𝑊 ∈ Archi) ∧ 𝐴 ∈ (SubMnd‘𝑊)) → (∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) → ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥))))
21	11, 3	subm0 17795	. . . . . . . . . 10 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → (0g‘𝑊) = (0g‘(𝑊 ↾s 𝐴)))
22	21	ad2antrr 722	. . . . . . . . 9 ⊢ (((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) → (0g‘𝑊) = (0g‘(𝑊 ↾s 𝐴)))
23	11, 5	ressle 16501	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → (le‘𝑊) = (le‘(𝑊 ↾s 𝐴)))
24	23	difeq1d 4021	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → ((le‘𝑊) ∖ I ) = ((le‘(𝑊 ↾s 𝐴)) ∖ I ))
25	5, 6	pltfval 17398	. . . . . . . . . . . 12 ⊢ (𝑊 ∈ Mnd → (lt‘𝑊) = ((le‘𝑊) ∖ I ))
26	1, 25	syl 17	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → (lt‘𝑊) = ((le‘𝑊) ∖ I ))
27	11	submmnd 17793	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → (𝑊 ↾s 𝐴) ∈ Mnd)
28		eqid 2794	. . . . . . . . . . . . 13 ⊢ (le‘(𝑊 ↾s 𝐴)) = (le‘(𝑊 ↾s 𝐴))
29		eqid 2794	. . . . . . . . . . . . 13 ⊢ (lt‘(𝑊 ↾s 𝐴)) = (lt‘(𝑊 ↾s 𝐴))
30	28, 29	pltfval 17398	. . . . . . . . . . . 12 ⊢ ((𝑊 ↾s 𝐴) ∈ Mnd → (lt‘(𝑊 ↾s 𝐴)) = ((le‘(𝑊 ↾s 𝐴)) ∖ I ))
31	27, 30	syl 17	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → (lt‘(𝑊 ↾s 𝐴)) = ((le‘(𝑊 ↾s 𝐴)) ∖ I ))
32	24, 26, 31	3eqtr4d 2840	. . . . . . . . . 10 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → (lt‘𝑊) = (lt‘(𝑊 ↾s 𝐴)))
33	32	ad2antrr 722	. . . . . . . . 9 ⊢ (((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) → (lt‘𝑊) = (lt‘(𝑊 ↾s 𝐴)))
34		eqidd 2795	. . . . . . . . 9 ⊢ (((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) → 𝑥 = 𝑥)
35	22, 33, 34	breq123d 4978	. . . . . . . 8 ⊢ (((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) → ((0g‘𝑊)(lt‘𝑊)𝑥 ↔ (0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥))
36		eqidd 2795	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → 𝑦 = 𝑦)
37	23	ad3antrrr 726	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → (le‘𝑊) = (le‘(𝑊 ↾s 𝐴)))
38		simplll 771	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → 𝐴 ∈ (SubMnd‘𝑊))
39		simpr 485	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℕ)
40	39	nnnn0d 11805	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℕ0)
41		simpllr 772	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴)))
42	38, 12	syl 17	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → 𝐴 = (Base‘(𝑊 ↾s 𝐴)))
43	41, 42	eleqtrrd 2885	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → 𝑥 ∈ 𝐴)
44		eqid 2794	. . . . . . . . . . . 12 ⊢ (.g‘(𝑊 ↾s 𝐴)) = (.g‘(𝑊 ↾s 𝐴))
45	4, 11, 44	submmulg 18025	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑛 ∈ ℕ0 ∧ 𝑥 ∈ 𝐴) → (𝑛(.g‘𝑊)𝑥) = (𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))
46	38, 40, 43, 45	syl3anc 1364	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → (𝑛(.g‘𝑊)𝑥) = (𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))
47	36, 37, 46	breq123d 4978	. . . . . . . . 9 ⊢ ((((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑛 ∈ ℕ) → (𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥) ↔ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥)))
48	47	rexbidva 3258	. . . . . . . 8 ⊢ (((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) → (∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥) ↔ ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥)))
49	35, 48	imbi12d 346	. . . . . . 7 ⊢ (((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) ∧ 𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))) → (((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) ↔ ((0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))))
50	49	ralbidva 3162	. . . . . 6 ⊢ ((𝐴 ∈ (SubMnd‘𝑊) ∧ 𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))) → (∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) ↔ ∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))))
51	50	ralbidva 3162	. . . . 5 ⊢ (𝐴 ∈ (SubMnd‘𝑊) → (∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) ↔ ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))))
52	51	adantl 482	. . . 4 ⊢ (((𝑊 ∈ Toset ∧ 𝑊 ∈ Archi) ∧ 𝐴 ∈ (SubMnd‘𝑊)) → (∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) ↔ ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))))
53	20, 52	sylibd 240	. . 3 ⊢ (((𝑊 ∈ Toset ∧ 𝑊 ∈ Archi) ∧ 𝐴 ∈ (SubMnd‘𝑊)) → (∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)((0g‘𝑊)(lt‘𝑊)𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘𝑊)(𝑛(.g‘𝑊)𝑥)) → ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))))
54	10, 53	mpd 15	. 2 ⊢ (((𝑊 ∈ Toset ∧ 𝑊 ∈ Archi) ∧ 𝐴 ∈ (SubMnd‘𝑊)) → ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥)))
55		resstos 30313	. . . 4 ⊢ ((𝑊 ∈ Toset ∧ 𝐴 ∈ (SubMnd‘𝑊)) → (𝑊 ↾s 𝐴) ∈ Toset)
56	27	adantl 482	. . . 4 ⊢ ((𝑊 ∈ Toset ∧ 𝐴 ∈ (SubMnd‘𝑊)) → (𝑊 ↾s 𝐴) ∈ Mnd)
57		eqid 2794	. . . . 5 ⊢ (Base‘(𝑊 ↾s 𝐴)) = (Base‘(𝑊 ↾s 𝐴))
58		eqid 2794	. . . . 5 ⊢ (0g‘(𝑊 ↾s 𝐴)) = (0g‘(𝑊 ↾s 𝐴))
59	57, 58, 44, 28, 29	isarchi2 30444	. . . 4 ⊢ (((𝑊 ↾s 𝐴) ∈ Toset ∧ (𝑊 ↾s 𝐴) ∈ Mnd) → ((𝑊 ↾s 𝐴) ∈ Archi ↔ ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))))
60	55, 56, 59	syl2anc 584	. . 3 ⊢ ((𝑊 ∈ Toset ∧ 𝐴 ∈ (SubMnd‘𝑊)) → ((𝑊 ↾s 𝐴) ∈ Archi ↔ ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))))
61	60	adantlr 711	. 2 ⊢ (((𝑊 ∈ Toset ∧ 𝑊 ∈ Archi) ∧ 𝐴 ∈ (SubMnd‘𝑊)) → ((𝑊 ↾s 𝐴) ∈ Archi ↔ ∀𝑥 ∈ (Base‘(𝑊 ↾s 𝐴))∀𝑦 ∈ (Base‘(𝑊 ↾s 𝐴))((0g‘(𝑊 ↾s 𝐴))(lt‘(𝑊 ↾s 𝐴))𝑥 → ∃𝑛 ∈ ℕ 𝑦(le‘(𝑊 ↾s 𝐴))(𝑛(.g‘(𝑊 ↾s 𝐴))𝑥))))
62	54, 61	mpbird 258	1 ⊢ (((𝑊 ∈ Toset ∧ 𝑊 ∈ Archi) ∧ 𝐴 ∈ (SubMnd‘𝑊)) → (𝑊 ↾s 𝐴) ∈ Archi)

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1522   ∈ wcel 2080  ∀wral 3104  ∃wrex 3105   ∖ cdif 3858   ⊆ wss 3861   class class class wbr 4964   I cid 5350  ‘cfv 6228  (class class class)co 7019  ℕcn 11488  ℕ₀cn0 11747  Basecbs 16312   ↾_s cress 16313  lecple 16401  0_gc0g 16542  ltcplt 17380  Tosetctos 17472  Mndcmnd 17733  SubMndcsubmnd 17773  ._gcmg 17981  Archicarchi 30436

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1778  ax-4 1792  ax-5 1889  ax-6 1948  ax-7 1993  ax-8 2082  ax-9 2090  ax-10 2111  ax-11 2125  ax-12 2140  ax-13 2343  ax-ext 2768  ax-sep 5097  ax-nul 5104  ax-pow 5160  ax-pr 5224  ax-un 7322  ax-cnex 10442  ax-resscn 10443  ax-1cn 10444  ax-icn 10445  ax-addcl 10446  ax-addrcl 10447  ax-mulcl 10448  ax-mulrcl 10449  ax-mulcom 10450  ax-addass 10451  ax-mulass 10452  ax-distr 10453  ax-i2m1 10454  ax-1ne0 10455  ax-1rid 10456  ax-rnegex 10457  ax-rrecex 10458  ax-cnre 10459  ax-pre-lttri 10460  ax-pre-lttrn 10461  ax-pre-ltadd 10462  ax-pre-mulgt0 10463

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-ex 1763  df-nf 1767  df-sb 2042  df-mo 2575  df-eu 2611  df-clab 2775  df-cleq 2787  df-clel 2862  df-nfc 2934  df-ne 2984  df-nel 3090  df-ral 3109  df-rex 3110  df-reu 3111  df-rmo 3112  df-rab 3113  df-v 3438  df-sbc 3708  df-csb 3814  df-dif 3864  df-un 3866  df-in 3868  df-ss 3876  df-pss 3878  df-nul 4214  df-if 4384  df-pw 4457  df-sn 4475  df-pr 4477  df-tp 4479  df-op 4481  df-uni 4748  df-iun 4829  df-br 4965  df-opab 5027  df-mpt 5044  df-tr 5067  df-id 5351  df-eprel 5356  df-po 5365  df-so 5366  df-fr 5405  df-we 5407  df-xp 5452  df-rel 5453  df-cnv 5454  df-co 5455  df-dm 5456  df-rn 5457  df-res 5458  df-ima 5459  df-pred 6026  df-ord 6072  df-on 6073  df-lim 6074  df-suc 6075  df-iota 6192  df-fun 6230  df-fn 6231  df-f 6232  df-f1 6233  df-fo 6234  df-f1o 6235  df-fv 6236  df-riota 6980  df-ov 7022  df-oprab 7023  df-mpo 7024  df-om 7440  df-1st 7548  df-2nd 7549  df-wrecs 7801  df-recs 7863  df-rdg 7901  df-er 8142  df-en 8361  df-dom 8362  df-sdom 8363  df-pnf 10526  df-mnf 10527  df-xr 10528  df-ltxr 10529  df-le 10530  df-sub 10721  df-neg 10722  df-nn 11489  df-2 11550  df-3 11551  df-4 11552  df-5 11553  df-6 11554  df-7 11555  df-8 11556  df-9 11557  df-n0 11748  df-z 11832  df-dec 11949  df-uz 12094  df-fz 12743  df-seq 13220  df-ndx 16315  df-slot 16316  df-base 16318  df-sets 16319  df-ress 16320  df-plusg 16407  df-ple 16414  df-0g 16544  df-proset 17367  df-poset 17385  df-plt 17397  df-toset 17473  df-mgm 17681  df-sgrp 17723  df-mnd 17734  df-submnd 17775  df-mulg 17982  df-inftm 30437  df-archi 30438

This theorem is referenced by:  nn0archi  30562