Metamath Proof Explorer


Theorem qaddcl

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

Ref Expression
Assertion qaddcl 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 nnz w w
4 zmulcl x w x w
5 3 4 sylan2 x w x w
6 5 ad2ant2rl x y z w x w
7 simpl z w z
8 nnz y y
9 8 adantl x y y
10 zmulcl z y z y
11 7 9 10 syl2anr x y z w z y
12 6 11 zaddcld x y z w x w + z y
13 12 adantr x y z w A = x y B = z w x w + z y
14 nnmulcl y w y w
15 14 ad2ant2l x y z w y w
16 15 adantr x y z w A = x y B = z w y w
17 oveq12 A = x y B = z w A + B = x y + z w
18 zcn x x
19 zcn z z
20 18 19 anim12i x z x z
21 nncn y y
22 nnne0 y y 0
23 21 22 jca y y y 0
24 nncn w w
25 nnne0 w w 0
26 24 25 jca w w w 0
27 23 26 anim12i y w y y 0 w w 0
28 divadddiv x z y y 0 w w 0 x y + z w = x w + z y y w
29 20 27 28 syl2an x z y w x y + z w = x w + z y y w
30 29 an4s x y z w x y + z w = x w + z y y w
31 17 30 sylan9eqr x y z w A = x y B = z w A + B = x w + z y y w
32 rspceov x w + z y y w A + B = x w + z y y w u v A + B = u v
33 elq A + B u v A + B = u v
34 32 33 sylibr x w + z y y w A + B = x w + z y y w A + B
35 13 16 31 34 syl3anc x y z w A = x y B = z w A + B
36 35 an4s x y A = x y z w B = z w A + B
37 36 exp43 x y A = x y z w B = z w A + B
38 37 rexlimivv x y A = x y z w B = z w A + B
39 38 rexlimdvv x y A = x y z w B = z w A + B
40 39 imp x y A = x y z w B = z w A + B
41 1 2 40 syl2anb A B A + B