Metamath Proof Explorer


Theorem rexzrexnn0

Description: Rewrite an existential quantification restricted to integers into an existential quantification restricted to naturals. (Contributed by Stefan O'Rear, 11-Oct-2014)

Ref Expression
Hypotheses rexzrexnn0.1 x = y φ ψ
rexzrexnn0.2 x = y φ χ
Assertion rexzrexnn0 x φ y 0 ψ χ

Proof

Step Hyp Ref Expression
1 rexzrexnn0.1 x = y φ ψ
2 rexzrexnn0.2 x = y φ χ
3 elznn0 x x x 0 x 0
4 3 simprbi x x 0 x 0
5 4 adantr x φ x 0 x 0
6 simpr x φ x 0 x 0
7 simplr x φ x 0 φ
8 1 equcoms y = x φ ψ
9 8 bicomd y = x ψ φ
10 9 rspcev x 0 φ y 0 ψ
11 6 7 10 syl2anc x φ x 0 y 0 ψ
12 11 ex x φ x 0 y 0 ψ
13 simpr x x 0 x 0
14 zcn x x
15 14 negnegd x x = x
16 15 eqcomd x x = x
17 negeq y = x y = x
18 17 eqeq2d y = x x = y x = x
19 16 18 syl5ibrcom x y = x x = y
20 19 imp x y = x x = y
21 20 2 syl x y = x φ χ
22 21 bicomd x y = x χ φ
23 22 adantlr x x 0 y = x χ φ
24 13 23 rspcedv x x 0 φ y 0 χ
25 24 impancom x φ x 0 y 0 χ
26 12 25 orim12d x φ x 0 x 0 y 0 ψ y 0 χ
27 5 26 mpd x φ y 0 ψ y 0 χ
28 r19.43 y 0 ψ χ y 0 ψ y 0 χ
29 27 28 sylibr x φ y 0 ψ χ
30 29 rexlimiva x φ y 0 ψ χ
31 nn0z y 0 y
32 1 rspcev y ψ x φ
33 31 32 sylan y 0 ψ x φ
34 nn0negz y 0 y
35 2 rspcev y χ x φ
36 34 35 sylan y 0 χ x φ
37 33 36 jaodan y 0 ψ χ x φ
38 37 rexlimiva y 0 ψ χ x φ
39 30 38 impbii x φ y 0 ψ χ