Metamath Proof Explorer


Theorem qmulcl

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

Ref Expression
Assertion qmulcl ABAB

Proof

Step Hyp Ref Expression
1 elq AxyA=xy
2 elq BzwB=zw
3 zmulcl xzxz
4 nnmulcl ywyw
5 3 4 anim12i xzywxzyw
6 5 an4s xyzwxzyw
7 oveq12 A=xyB=zwAB=xyzw
8 zcn xx
9 zcn zz
10 8 9 anim12i xzxz
11 10 ad2ant2r xyzwxz
12 nncn yy
13 nnne0 yy0
14 12 13 jca yyy0
15 nncn ww
16 nnne0 ww0
17 15 16 jca www0
18 14 17 anim12i ywyy0ww0
19 18 ad2ant2l xyzwyy0ww0
20 divmuldiv xzyy0ww0xyzw=xzyw
21 11 19 20 syl2anc xyzwxyzw=xzyw
22 7 21 sylan9eqr xyzwA=xyB=zwAB=xzyw
23 rspceov xzywAB=xzywvuAB=vu
24 23 3expa xzywAB=xzywvuAB=vu
25 elq ABvuAB=vu
26 24 25 sylibr xzywAB=xzywAB
27 6 22 26 syl2an2r xyzwA=xyB=zwAB
28 27 an4s xyA=xyzwB=zwAB
29 28 exp43 xyA=xyzwB=zwAB
30 29 rexlimivv xyA=xyzwB=zwAB
31 30 rexlimdvv xyA=xyzwB=zwAB
32 31 imp xyA=xyzwB=zwAB
33 1 2 32 syl2anb ABAB