Metamath Proof Explorer


Theorem qmulcl

Description: Closure of multiplication of rationals. (Contributed by NM, 1-Aug-2004)

Ref Expression
Assertion qmulcl A B A B

Proof

Step Hyp Ref Expression
1 elq A x y A = x y
2 elq B z w B = z w
3 zmulcl x z x z
4 nnmulcl y w y w
5 3 4 anim12i x z y w x z y w
6 5 an4s x y z w x z y w
7 oveq12 A = x y B = z w A B = x y z w
8 zcn x x
9 zcn z z
10 8 9 anim12i x z x z
11 10 ad2ant2r x y z w x z
12 nncn y y
13 nnne0 y y 0
14 12 13 jca y y y 0
15 nncn w w
16 nnne0 w w 0
17 15 16 jca w w w 0
18 14 17 anim12i y w y y 0 w w 0
19 18 ad2ant2l x y z w y y 0 w w 0
20 divmuldiv x z y y 0 w w 0 x y z w = x z y w
21 11 19 20 syl2anc x y z w x y z w = x z y w
22 7 21 sylan9eqr x y z w A = x y B = z w A B = x z y w
23 rspceov x z y w A B = x z y w v u A B = v u
24 23 3expa x z y w A B = x z y w v u A B = v u
25 elq A B v u A B = v u
26 24 25 sylibr x z y w A B = x z y w A B
27 6 22 26 syl2an2r x y z w A = x y B = z w A B
28 27 an4s x y A = x y z w B = z w A B
29 28 exp43 x y A = x y z w B = z w A B
30 29 rexlimivv x y A = x y z w B = z w A B
31 30 rexlimdvv x y A = x y z w B = z w A B
32 31 imp x y A = x y z w B = z w A B
33 1 2 32 syl2anb A B A B