Metamath Proof Explorer


Theorem digvalnn0

Description: The K th digit of a nonnegative real number R in the positional system with base B is a nonnegative integer. (Contributed by AV, 28-May-2020)

Ref Expression
Assertion digvalnn0 ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ( ๐พ ( digit โ€˜ ๐ต ) ๐‘… ) โˆˆ โ„•0 )

Proof

Step Hyp Ref Expression
1 digval โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ( ๐พ ( digit โ€˜ ๐ต ) ๐‘… ) = ( ( โŒŠ โ€˜ ( ( ๐ต โ†‘ - ๐พ ) ยท ๐‘… ) ) mod ๐ต ) )
2 nnre โŠข ( ๐ต โˆˆ โ„• โ†’ ๐ต โˆˆ โ„ )
3 2 3ad2ant1 โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ๐ต โˆˆ โ„ )
4 nnne0 โŠข ( ๐ต โˆˆ โ„• โ†’ ๐ต โ‰  0 )
5 4 3ad2ant1 โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ๐ต โ‰  0 )
6 znegcl โŠข ( ๐พ โˆˆ โ„ค โ†’ - ๐พ โˆˆ โ„ค )
7 6 3ad2ant2 โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ - ๐พ โˆˆ โ„ค )
8 3 5 7 reexpclzd โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ( ๐ต โ†‘ - ๐พ ) โˆˆ โ„ )
9 elrege0 โŠข ( ๐‘… โˆˆ ( 0 [,) +โˆž ) โ†” ( ๐‘… โˆˆ โ„ โˆง 0 โ‰ค ๐‘… ) )
10 9 simplbi โŠข ( ๐‘… โˆˆ ( 0 [,) +โˆž ) โ†’ ๐‘… โˆˆ โ„ )
11 10 3ad2ant3 โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ๐‘… โˆˆ โ„ )
12 8 11 remulcld โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ( ( ๐ต โ†‘ - ๐พ ) ยท ๐‘… ) โˆˆ โ„ )
13 12 flcld โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ( โŒŠ โ€˜ ( ( ๐ต โ†‘ - ๐พ ) ยท ๐‘… ) ) โˆˆ โ„ค )
14 simp1 โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ๐ต โˆˆ โ„• )
15 13 14 zmodcld โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ( ( โŒŠ โ€˜ ( ( ๐ต โ†‘ - ๐พ ) ยท ๐‘… ) ) mod ๐ต ) โˆˆ โ„•0 )
16 1 15 eqeltrd โŠข ( ( ๐ต โˆˆ โ„• โˆง ๐พ โˆˆ โ„ค โˆง ๐‘… โˆˆ ( 0 [,) +โˆž ) ) โ†’ ( ๐พ ( digit โ€˜ ๐ต ) ๐‘… ) โˆˆ โ„•0 )