Metamath Proof Explorer


Theorem bezoutlem2

Description: Lemma for bezout . (Contributed by Mario Carneiro, 15-Mar-2014) ( Revised by AV, 30-Sep-2020.)

Ref Expression
Hypotheses bezout.1 M = z | x y z = A x + B y
bezout.3 φ A
bezout.4 φ B
bezout.2 G = sup M <
bezout.5 φ ¬ A = 0 B = 0
Assertion bezoutlem2 φ G M

Proof

Step Hyp Ref Expression
1 bezout.1 M = z | x y z = A x + B y
2 bezout.3 φ A
3 bezout.4 φ B
4 bezout.2 G = sup M <
5 bezout.5 φ ¬ A = 0 B = 0
6 1 ssrab3 M
7 nnuz = 1
8 6 7 sseqtri M 1
9 1 2 3 bezoutlem1 φ A 0 A M
10 ne0i A M M
11 9 10 syl6 φ A 0 M
12 eqid z | y x z = B y + A x = z | y x z = B y + A x
13 12 3 2 bezoutlem1 φ B 0 B z | y x z = B y + A x
14 rexcom x y z = A x + B y y x z = A x + B y
15 2 zcnd φ A
16 15 adantr φ y x A
17 zcn x x
18 17 ad2antll φ y x x
19 16 18 mulcld φ y x A x
20 3 zcnd φ B
21 20 adantr φ y x B
22 zcn y y
23 22 ad2antrl φ y x y
24 21 23 mulcld φ y x B y
25 19 24 addcomd φ y x A x + B y = B y + A x
26 25 eqeq2d φ y x z = A x + B y z = B y + A x
27 26 2rexbidva φ y x z = A x + B y y x z = B y + A x
28 14 27 syl5bb φ x y z = A x + B y y x z = B y + A x
29 28 rabbidv φ z | x y z = A x + B y = z | y x z = B y + A x
30 1 29 eqtrid φ M = z | y x z = B y + A x
31 30 eleq2d φ B M B z | y x z = B y + A x
32 13 31 sylibrd φ B 0 B M
33 ne0i B M M
34 32 33 syl6 φ B 0 M
35 neorian A 0 B 0 ¬ A = 0 B = 0
36 5 35 sylibr φ A 0 B 0
37 11 34 36 mpjaod φ M
38 infssuzcl M 1 M sup M < M
39 8 37 38 sylancr φ sup M < M
40 4 39 eqeltrid φ G M