Theorem mulnqpr 7672

Description: Multiplication of fractions embedded into positive reals. One can either multiply the fractions as fractions, or embed them into positive reals and multiply them as positive reals, and get the same result. (Contributed by Jim Kingdon, 18-Jul-2021.)

Assertion

Ref	Expression
mulnqpr	|- ( ( A e. Q. /\ B e. Q. ) -> <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. = ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) )

Distinct variable groups:   A, l, u   B, l, u

Proof of Theorem mulnqpr

Step	Hyp	Ref	Expression
1		mulnqprlemfl 7670	. . 3 |- ( ( A e. Q. /\ B e. Q. ) -> ( 1st ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) C_ ( 1st ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) )
2		mulnqprlemrl 7668	. . 3 |- ( ( A e. Q. /\ B e. Q. ) -> ( 1st ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) C_ ( 1st ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) )
3	1, 2	eqssd 3209	. 2 |- ( ( A e. Q. /\ B e. Q. ) -> ( 1st ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) = ( 1st ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) )
4		mulnqprlemfu 7671	. . 3 |- ( ( A e. Q. /\ B e. Q. ) -> ( 2nd ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) C_ ( 2nd ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) )
5		mulnqprlemru 7669	. . 3 |- ( ( A e. Q. /\ B e. Q. ) -> ( 2nd ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) C_ ( 2nd ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) )
6	4, 5	eqssd 3209	. 2 |- ( ( A e. Q. /\ B e. Q. ) -> ( 2nd ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) = ( 2nd ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) )
7		mulclnq 7471	. . . 4 |- ( ( A e. Q. /\ B e. Q. ) -> ( A .Q B ) e. Q. )
8		nqprlu 7642	. . . 4 |- ( ( A .Q B ) e. Q. -> <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. e. P. )
9	7, 8	syl 14	. . 3 |- ( ( A e. Q. /\ B e. Q. ) -> <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. e. P. )
10		nqprlu 7642	. . . 4 |- ( A e. Q. -> <. { l | l <Q A } , { u | A <Q u } >. e. P. )
11		nqprlu 7642	. . . 4 |- ( B e. Q. -> <. { l | l <Q B } , { u | B <Q u } >. e. P. )
12		mulclpr 7667	. . . 4 |- ( ( <. { l | l <Q A } , { u | A <Q u } >. e. P. /\ <. { l | l <Q B } , { u | B <Q u } >. e. P. ) -> ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) e. P. )
13	10, 11, 12	syl2an 289	. . 3 |- ( ( A e. Q. /\ B e. Q. ) -> ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) e. P. )
14		preqlu 7567	. . 3 |- ( ( <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. e. P. /\ ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) e. P. ) -> ( <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. = ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) <-> ( ( 1st ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) = ( 1st ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) /\ ( 2nd ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) = ( 2nd ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) ) ) )
15	9, 13, 14	syl2anc 411	. 2 |- ( ( A e. Q. /\ B e. Q. ) -> ( <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. = ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) <-> ( ( 1st ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) = ( 1st ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) /\ ( 2nd ` <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. ) = ( 2nd ` ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) ) ) ) )
16	3, 6, 15	mpbir2and 946	1 |- ( ( A e. Q. /\ B e. Q. ) -> <. { l | l <Q ( A .Q B ) } , { u | ( A .Q B ) <Q u } >. = ( <. { l | l <Q A } , { u | A <Q u } >. .P. <. { l | l <Q B } , { u | B <Q u } >. ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1372   e. wcel 2175   {cab 2190   <.cop 3635   class class class wbr 4043   ` cfv 5268  (class class class)co 5934   1stc1st 6214   2ndc2nd 6215   Q.cnq 7375   .Q cmq 7378   <Q cltq 7380   P.cnp 7386   .P. cmp 7389

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1469  ax-7 1470  ax-gen 1471  ax-ie1 1515  ax-ie2 1516  ax-8 1526  ax-10 1527  ax-11 1528  ax-i12 1529  ax-bndl 1531  ax-4 1532  ax-17 1548  ax-i9 1552  ax-ial 1556  ax-i5r 1557  ax-13 2177  ax-14 2178  ax-ext 2186  ax-coll 4158  ax-sep 4161  ax-nul 4169  ax-pow 4217  ax-pr 4252  ax-un 4478  ax-setind 4583  ax-iinf 4634

This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1375  df-fal 1378  df-nf 1483  df-sb 1785  df-eu 2056  df-mo 2057  df-clab 2191  df-cleq 2197  df-clel 2200  df-nfc 2336  df-ne 2376  df-ral 2488  df-rex 2489  df-reu 2490  df-rab 2492  df-v 2773  df-sbc 2998  df-csb 3093  df-dif 3167  df-un 3169  df-in 3171  df-ss 3178  df-nul 3460  df-pw 3617  df-sn 3638  df-pr 3639  df-op 3641  df-uni 3850  df-int 3885  df-iun 3928  df-br 4044  df-opab 4105  df-mpt 4106  df-tr 4142  df-eprel 4334  df-id 4338  df-po 4341  df-iso 4342  df-iord 4411  df-on 4413  df-suc 4416  df-iom 4637  df-xp 4679  df-rel 4680  df-cnv 4681  df-co 4682  df-dm 4683  df-rn 4684  df-res 4685  df-ima 4686  df-iota 5229  df-fun 5270  df-fn 5271  df-f 5272  df-f1 5273  df-fo 5274  df-f1o 5275  df-fv 5276  df-ov 5937  df-oprab 5938  df-mpo 5939  df-1st 6216  df-2nd 6217  df-recs 6381  df-irdg 6446  df-1o 6492  df-2o 6493  df-oadd 6496  df-omul 6497  df-er 6610  df-ec 6612  df-qs 6616  df-ni 7399  df-pli 7400  df-mi 7401  df-lti 7402  df-plpq 7439  df-mpq 7440  df-enq 7442  df-nqqs 7443  df-plqqs 7444  df-mqqs 7445  df-1nqqs 7446  df-rq 7447  df-ltnqqs 7448  df-enq0 7519  df-nq0 7520  df-0nq0 7521  df-plq0 7522  df-mq0 7523  df-inp 7561  df-imp 7564

This theorem is referenced by:  recidpipr  7951