Theorem modqval 10249

Description: The value of the modulo operation. The modulo congruence notation of number theory, J == K (modulo N), can be expressed in our notation as ( J mod N ) = ( K mod N ). Definition 1 in Knuth, The Art of Computer Programming, Vol. I (1972), p. 38. Knuth uses "mod" for the operation and "modulo" for the congruence. Unlike Knuth, we restrict the second argument to positive numbers to simplify certain theorems. (This also gives us future flexibility to extend it to any one of several different conventions for a zero or negative second argument, should there be an advantage in doing so.) As with flqcl 10198 we only prove this for rationals although other particular kinds of real numbers may be possible. (Contributed by Jim Kingdon, 16-Oct-2021.)

Assertion

Ref	Expression
modqval	|- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> ( A mod B ) = ( A - ( B x. ( |_ ` ( A / B ) ) ) ) )

Proof of Theorem modqval

Dummy variables x y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		qre 9554	. . 3 |- ( A e. QQ -> A e. RR )
2	1	3ad2ant1 1007	. 2 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> A e. RR )
3		qre 9554	. . . 4 |- ( B e. QQ -> B e. RR )
4	3	3ad2ant2 1008	. . 3 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> B e. RR )
5		simp3 988	. . 3 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> 0 < B )
6	4, 5	elrpd 9620	. 2 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> B e. RR+ )
7	5	gt0ne0d 8401	. . . . . . 7 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> B =/= 0 )
8		qdivcl 9572	. . . . . . 7 |- ( ( A e. QQ /\ B e. QQ /\ B =/= 0 ) -> ( A / B ) e. QQ )
9	7, 8	syld3an3 1272	. . . . . 6 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> ( A / B ) e. QQ )
10	9	flqcld 10202	. . . . 5 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> ( |_ ` ( A / B ) ) e. ZZ )
11	10	zred 9304	. . . 4 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> ( |_ ` ( A / B ) ) e. RR )
12	4, 11	remulcld 7920	. . 3 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> ( B x. ( |_ ` ( A / B ) ) ) e. RR )
13	2, 12	resubcld 8270	. 2 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> ( A - ( B x. ( |_ ` ( A / B ) ) ) ) e. RR )
14		oveq1 5843	. . . . . 6 |- ( x = A -> ( x / y ) = ( A / y ) )
15	14	fveq2d 5484	. . . . 5 |- ( x = A -> ( |_ ` ( x / y ) ) = ( |_ ` ( A / y ) ) )
16	15	oveq2d 5852	. . . 4 |- ( x = A -> ( y x. ( |_ ` ( x / y ) ) ) = ( y x. ( |_ ` ( A / y ) ) ) )
17		oveq12 5845	. . . 4 |- ( ( x = A /\ ( y x. ( |_ ` ( x / y ) ) ) = ( y x. ( |_ ` ( A / y ) ) ) ) -> ( x - ( y x. ( |_ ` ( x / y ) ) ) ) = ( A - ( y x. ( |_ ` ( A / y ) ) ) ) )
18	16, 17	mpdan 418	. . 3 |- ( x = A -> ( x - ( y x. ( |_ ` ( x / y ) ) ) ) = ( A - ( y x. ( |_ ` ( A / y ) ) ) ) )
19		oveq2 5844	. . . . . 6 |- ( y = B -> ( A / y ) = ( A / B ) )
20	19	fveq2d 5484	. . . . 5 |- ( y = B -> ( |_ ` ( A / y ) ) = ( |_ ` ( A / B ) ) )
21		oveq12 5845	. . . . 5 |- ( ( y = B /\ ( |_ ` ( A / y ) ) = ( |_ ` ( A / B ) ) ) -> ( y x. ( |_ ` ( A / y ) ) ) = ( B x. ( |_ ` ( A / B ) ) ) )
22	20, 21	mpdan 418	. . . 4 |- ( y = B -> ( y x. ( |_ ` ( A / y ) ) ) = ( B x. ( |_ ` ( A / B ) ) ) )
23	22	oveq2d 5852	. . 3 |- ( y = B -> ( A - ( y x. ( |_ ` ( A / y ) ) ) ) = ( A - ( B x. ( |_ ` ( A / B ) ) ) ) )
24		df-mod 10248	. . 3 |- mod = ( x e. RR , y e. RR+ |-> ( x - ( y x. ( |_ ` ( x / y ) ) ) ) )
25	18, 23, 24	ovmpog 5967	. 2 |- ( ( A e. RR /\ B e. RR+ /\ ( A - ( B x. ( |_ ` ( A / B ) ) ) ) e. RR ) -> ( A mod B ) = ( A - ( B x. ( |_ ` ( A / B ) ) ) ) )
26	2, 6, 13, 25	syl3anc 1227	1 |- ( ( A e. QQ /\ B e. QQ /\ 0 < B ) -> ( A mod B ) = ( A - ( B x. ( |_ ` ( A / B ) ) ) ) )

Syntax hints:   -> wi 4   /\ w3a 967   = wceq 1342   e. wcel 2135   =/= wne 2334   class class class wbr 3976   ` cfv 5182  (class class class)co 5836   RRcr 7743   0cc0 7744   x. cmul 7749   < clt 7924   - cmin 8060   / cdiv 8559   QQcq 9548   RR+crp 9580   |_cfl 10193   mod cmo 10247

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1434  ax-7 1435  ax-gen 1436  ax-ie1 1480  ax-ie2 1481  ax-8 1491  ax-10 1492  ax-11 1493  ax-i12 1494  ax-bndl 1496  ax-4 1497  ax-17 1513  ax-i9 1517  ax-ial 1521  ax-i5r 1522  ax-13 2137  ax-14 2138  ax-ext 2146  ax-sep 4094  ax-pow 4147  ax-pr 4181  ax-un 4405  ax-setind 4508  ax-cnex 7835  ax-resscn 7836  ax-1cn 7837  ax-1re 7838  ax-icn 7839  ax-addcl 7840  ax-addrcl 7841  ax-mulcl 7842  ax-mulrcl 7843  ax-addcom 7844  ax-mulcom 7845  ax-addass 7846  ax-mulass 7847  ax-distr 7848  ax-i2m1 7849  ax-0lt1 7850  ax-1rid 7851  ax-0id 7852  ax-rnegex 7853  ax-precex 7854  ax-cnre 7855  ax-pre-ltirr 7856  ax-pre-ltwlin 7857  ax-pre-lttrn 7858  ax-pre-apti 7859  ax-pre-ltadd 7860  ax-pre-mulgt0 7861  ax-pre-mulext 7862  ax-arch 7863

This theorem depends on definitions:  df-bi 116  df-3or 968  df-3an 969  df-tru 1345  df-fal 1348  df-nf 1448  df-sb 1750  df-eu 2016  df-mo 2017  df-clab 2151  df-cleq 2157  df-clel 2160  df-nfc 2295  df-ne 2335  df-nel 2430  df-ral 2447  df-rex 2448  df-reu 2449  df-rmo 2450  df-rab 2451  df-v 2723  df-sbc 2947  df-csb 3041  df-dif 3113  df-un 3115  df-in 3117  df-ss 3124  df-pw 3555  df-sn 3576  df-pr 3577  df-op 3579  df-uni 3784  df-int 3819  df-iun 3862  df-br 3977  df-opab 4038  df-mpt 4039  df-id 4265  df-po 4268  df-iso 4269  df-xp 4604  df-rel 4605  df-cnv 4606  df-co 4607  df-dm 4608  df-rn 4609  df-res 4610  df-ima 4611  df-iota 5147  df-fun 5184  df-fn 5185  df-f 5186  df-fv 5190  df-riota 5792  df-ov 5839  df-oprab 5840  df-mpo 5841  df-1st 6100  df-2nd 6101  df-pnf 7926  df-mnf 7927  df-xr 7928  df-ltxr 7929  df-le 7930  df-sub 8062  df-neg 8063  df-reap 8464  df-ap 8471  df-div 8560  df-inn 8849  df-n0 9106  df-z 9183  df-q 9549  df-rp 9581  df-fl 10195  df-mod 10248

This theorem is referenced by:  modqvalr  10250  modqcl  10251  modq0  10254  modqge0  10257  modqlt  10258  modqdiffl  10260  modqfrac  10262  modqmulnn  10267  zmodcl  10269  modqid  10274  modqcyc  10284  modqadd1  10286  modqmul1  10302  modqdi  10317  modqsubdir  10318  iexpcyc  10549  dvdsmod  11785  divalgmod  11849  modgcd  11909  prmdiv  12144  odzdvds  12154  fldivp1  12255