Step |
Hyp |
Ref |
Expression |
1 |
|
gcdle1d.m |
|- ( ph -> M e. NN ) |
2 |
|
gcdle1d.n |
|- ( ph -> N e. ZZ ) |
3 |
1
|
nnzd |
|- ( ph -> M e. ZZ ) |
4 |
|
gcddvds |
|- ( ( M e. ZZ /\ N e. ZZ ) -> ( ( M gcd N ) || M /\ ( M gcd N ) || N ) ) |
5 |
3 2 4
|
syl2anc |
|- ( ph -> ( ( M gcd N ) || M /\ ( M gcd N ) || N ) ) |
6 |
5
|
simpld |
|- ( ph -> ( M gcd N ) || M ) |
7 |
3 2
|
gcdcld |
|- ( ph -> ( M gcd N ) e. NN0 ) |
8 |
7
|
nn0zd |
|- ( ph -> ( M gcd N ) e. ZZ ) |
9 |
|
dvdsle |
|- ( ( ( M gcd N ) e. ZZ /\ M e. NN ) -> ( ( M gcd N ) || M -> ( M gcd N ) <_ M ) ) |
10 |
8 1 9
|
syl2anc |
|- ( ph -> ( ( M gcd N ) || M -> ( M gcd N ) <_ M ) ) |
11 |
6 10
|
mpd |
|- ( ph -> ( M gcd N ) <_ M ) |