Metamath Proof Explorer


Theorem isarchi2

Description: Alternative way to express the predicate " W is Archimedean ", for Tosets. (Contributed by Thierry Arnoux, 30-Jan-2018)

Ref Expression
Hypotheses isarchi2.b B = Base W
isarchi2.0 0 ˙ = 0 W
isarchi2.x · ˙ = W
isarchi2.l ˙ = W
isarchi2.t < ˙ = < W
Assertion isarchi2 W Toset W Mnd W Archi x B y B 0 ˙ < ˙ x n y ˙ n · ˙ x

Proof

Step Hyp Ref Expression
1 isarchi2.b B = Base W
2 isarchi2.0 0 ˙ = 0 W
3 isarchi2.x · ˙ = W
4 isarchi2.l ˙ = W
5 isarchi2.t < ˙ = < W
6 eqid W = W
7 1 2 6 isarchi W Toset W Archi x B y B ¬ x W y
8 7 adantr W Toset W Mnd W Archi x B y B ¬ x W y
9 simpl1l W Toset W Mnd x B y B n W Toset
10 simpl1r W Toset W Mnd x B y B n W Mnd
11 simpr W Toset W Mnd x B y B n n
12 11 nnnn0d W Toset W Mnd x B y B n n 0
13 simpl2 W Toset W Mnd x B y B n x B
14 1 3 mulgnn0cl W Mnd n 0 x B n · ˙ x B
15 10 12 13 14 syl3anc W Toset W Mnd x B y B n n · ˙ x B
16 simpl3 W Toset W Mnd x B y B n y B
17 1 4 5 tltnle W Toset n · ˙ x B y B n · ˙ x < ˙ y ¬ y ˙ n · ˙ x
18 17 con2bid W Toset n · ˙ x B y B y ˙ n · ˙ x ¬ n · ˙ x < ˙ y
19 9 15 16 18 syl3anc W Toset W Mnd x B y B n y ˙ n · ˙ x ¬ n · ˙ x < ˙ y
20 19 rexbidva W Toset W Mnd x B y B n y ˙ n · ˙ x n ¬ n · ˙ x < ˙ y
21 20 imbi2d W Toset W Mnd x B y B 0 ˙ < ˙ x n y ˙ n · ˙ x 0 ˙ < ˙ x n ¬ n · ˙ x < ˙ y
22 1 2 3 5 isinftm W Toset x B y B x W y 0 ˙ < ˙ x n n · ˙ x < ˙ y
23 22 notbid W Toset x B y B ¬ x W y ¬ 0 ˙ < ˙ x n n · ˙ x < ˙ y
24 rexnal n ¬ n · ˙ x < ˙ y ¬ n n · ˙ x < ˙ y
25 24 imbi2i 0 ˙ < ˙ x n ¬ n · ˙ x < ˙ y 0 ˙ < ˙ x ¬ n n · ˙ x < ˙ y
26 imnan 0 ˙ < ˙ x ¬ n n · ˙ x < ˙ y ¬ 0 ˙ < ˙ x n n · ˙ x < ˙ y
27 25 26 bitr2i ¬ 0 ˙ < ˙ x n n · ˙ x < ˙ y 0 ˙ < ˙ x n ¬ n · ˙ x < ˙ y
28 23 27 bitrdi W Toset x B y B ¬ x W y 0 ˙ < ˙ x n ¬ n · ˙ x < ˙ y
29 28 3adant1r W Toset W Mnd x B y B ¬ x W y 0 ˙ < ˙ x n ¬ n · ˙ x < ˙ y
30 21 29 bitr4d W Toset W Mnd x B y B 0 ˙ < ˙ x n y ˙ n · ˙ x ¬ x W y
31 30 3expb W Toset W Mnd x B y B 0 ˙ < ˙ x n y ˙ n · ˙ x ¬ x W y
32 31 2ralbidva W Toset W Mnd x B y B 0 ˙ < ˙ x n y ˙ n · ˙ x x B y B ¬ x W y
33 8 32 bitr4d W Toset W Mnd W Archi x B y B 0 ˙ < ˙ x n y ˙ n · ˙ x