Metamath Proof Explorer


Theorem gcdid

Description: The gcd of a number and itself is its absolute value. (Contributed by Paul Chapman, 31-Mar-2011)

Ref Expression
Assertion gcdid ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ gcd ๐‘ ) = ( abs โ€˜ ๐‘ ) )

Proof

Step Hyp Ref Expression
1 1z โŠข 1 โˆˆ โ„ค
2 0z โŠข 0 โˆˆ โ„ค
3 gcdaddm โŠข ( ( 1 โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง 0 โˆˆ โ„ค ) โ†’ ( ๐‘ gcd 0 ) = ( ๐‘ gcd ( 0 + ( 1 ยท ๐‘ ) ) ) )
4 1 2 3 mp3an13 โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ gcd 0 ) = ( ๐‘ gcd ( 0 + ( 1 ยท ๐‘ ) ) ) )
5 gcdid0 โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ gcd 0 ) = ( abs โ€˜ ๐‘ ) )
6 zcn โŠข ( ๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ โ„‚ )
7 mullid โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( 1 ยท ๐‘ ) = ๐‘ )
8 7 oveq2d โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( 0 + ( 1 ยท ๐‘ ) ) = ( 0 + ๐‘ ) )
9 addlid โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( 0 + ๐‘ ) = ๐‘ )
10 8 9 eqtrd โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( 0 + ( 1 ยท ๐‘ ) ) = ๐‘ )
11 6 10 syl โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( 0 + ( 1 ยท ๐‘ ) ) = ๐‘ )
12 11 oveq2d โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ gcd ( 0 + ( 1 ยท ๐‘ ) ) ) = ( ๐‘ gcd ๐‘ ) )
13 4 5 12 3eqtr3rd โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ gcd ๐‘ ) = ( abs โ€˜ ๐‘ ) )