Metamath Proof Explorer


Theorem xov1plusxeqvd

Description: A complex number X is positive real iff X / ( 1 + X ) is in ( 0 (,) 1 ) . Deduction form. (Contributed by David Moews, 28-Feb-2017)

Ref Expression
Hypotheses xov1plusxeqvd.1 ⊢ φ → X ∈ ℂ
xov1plusxeqvd.2 ⊢ φ → X ≠ − 1
Assertion xov1plusxeqvd ⊢ φ → X ∈ ℝ + ↔ X 1 + X ∈ 0 1

Proof

Step Hyp Ref Expression
1 xov1plusxeqvd.1 ⊢ φ → X ∈ ℂ
2 xov1plusxeqvd.2 ⊢ φ → X ≠ − 1
3 simpr ⊢ φ ∧ X ∈ ℝ + → X ∈ ℝ +
4 3 rpred ⊢ φ ∧ X ∈ ℝ + → X ∈ ℝ
5 1rp ⊢ 1 ∈ ℝ +
6 5 a1i ⊢ φ ∧ X ∈ ℝ + → 1 ∈ ℝ +
7 6 3 rpaddcld ⊢ φ ∧ X ∈ ℝ + → 1 + X ∈ ℝ +
8 4 7 rerpdivcld ⊢ φ ∧ X ∈ ℝ + → X 1 + X ∈ ℝ
9 7 rprecred ⊢ φ ∧ X ∈ ℝ + → 1 1 + X ∈ ℝ
10 1red ⊢ φ ∧ X ∈ ℝ + → 1 ∈ ℝ
11 0red ⊢ φ ∧ X ∈ ℝ + → 0 ∈ ℝ
12 10 4 readdcld ⊢ φ ∧ X ∈ ℝ + → 1 + X ∈ ℝ
13 10 3 ltaddrpd ⊢ φ ∧ X ∈ ℝ + → 1 < 1 + X
14 recgt1i ⊢ 1 + X ∈ ℝ ∧ 1 < 1 + X → 0 < 1 1 + X ∧ 1 1 + X < 1
15 12 13 14 syl2anc ⊢ φ ∧ X ∈ ℝ + → 0 < 1 1 + X ∧ 1 1 + X < 1
16 15 simprd ⊢ φ ∧ X ∈ ℝ + → 1 1 + X < 1
17 1m0e1 ⊢ 1 − 0 = 1
18 16 17 breqtrrdi ⊢ φ ∧ X ∈ ℝ + → 1 1 + X < 1 − 0
19 9 10 11 18 ltsub13d ⊢ φ ∧ X ∈ ℝ + → 0 < 1 − 1 1 + X
20 1cnd ⊢ φ → 1 ∈ ℂ
21 20 1 addcld ⊢ φ → 1 + X ∈ ℂ
22 20 negcld ⊢ φ → − 1 ∈ ℂ
23 20 1 22 2 addneintrd ⊢ φ → 1 + X ≠ 1 + -1
24 1pneg1e0 ⊢ 1 + -1 = 0
25 24 a1i ⊢ φ → 1 + -1 = 0
26 23 25 neeqtrd ⊢ φ → 1 + X ≠ 0
27 21 20 21 26 divsubdird ⊢ φ → 1 + X - 1 1 + X = 1 + X 1 + X − 1 1 + X
28 20 1 pncan2d ⊢ φ → 1 + X - 1 = X
29 28 oveq1d ⊢ φ → 1 + X - 1 1 + X = X 1 + X
30 21 26 dividd ⊢ φ → 1 + X 1 + X = 1
31 30 oveq1d ⊢ φ → 1 + X 1 + X − 1 1 + X = 1 − 1 1 + X
32 27 29 31 3eqtr3d ⊢ φ → X 1 + X = 1 − 1 1 + X
33 32 adantr ⊢ φ ∧ X ∈ ℝ + → X 1 + X = 1 − 1 1 + X
34 19 33 breqtrrd ⊢ φ ∧ X ∈ ℝ + → 0 < X 1 + X
35 1m1e0 ⊢ 1 − 1 = 0
36 15 simpld ⊢ φ ∧ X ∈ ℝ + → 0 < 1 1 + X
37 35 36 eqbrtrid ⊢ φ ∧ X ∈ ℝ + → 1 − 1 < 1 1 + X
38 10 10 9 37 ltsub23d ⊢ φ ∧ X ∈ ℝ + → 1 − 1 1 + X < 1
39 33 38 eqbrtrd ⊢ φ ∧ X ∈ ℝ + → X 1 + X < 1
40 0xr ⊢ 0 ∈ ℝ *
41 1xr ⊢ 1 ∈ ℝ *
42 elioo2 ⊢ 0 ∈ ℝ * ∧ 1 ∈ ℝ * → X 1 + X ∈ 0 1 ↔ X 1 + X ∈ ℝ ∧ 0 < X 1 + X ∧ X 1 + X < 1
43 40 41 42 mp2an ⊢ X 1 + X ∈ 0 1 ↔ X 1 + X ∈ ℝ ∧ 0 < X 1 + X ∧ X 1 + X < 1
44 8 34 39 43 syl3anbrc ⊢ φ ∧ X ∈ ℝ + → X 1 + X ∈ 0 1
45 28 adantr ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 + X - 1 = X
46 21 adantr ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 + X ∈ ℂ
47 26 adantr ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 + X ≠ 0
48 46 47 recrecd ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 1 1 + X = 1 + X
49 21 1 21 26 divsubdird ⊢ φ → 1 + X - X 1 + X = 1 + X 1 + X − X 1 + X
50 20 1 pncand ⊢ φ → 1 + X - X = 1
51 50 oveq1d ⊢ φ → 1 + X - X 1 + X = 1 1 + X
52 30 oveq1d ⊢ φ → 1 + X 1 + X − X 1 + X = 1 − X 1 + X
53 49 51 52 3eqtr3d ⊢ φ → 1 1 + X = 1 − X 1 + X
54 53 adantr ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 1 + X = 1 − X 1 + X
55 1red ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 ∈ ℝ
56 43 bilani ⊢ φ ∧ X 1 + X ∈ 0 1 → X 1 + X ∈ ℝ ∧ 0 < X 1 + X ∧ X 1 + X < 1
57 56 simp1d ⊢ φ ∧ X 1 + X ∈ 0 1 → X 1 + X ∈ ℝ
58 55 57 resubcld ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 − X 1 + X ∈ ℝ
59 54 58 eqeltrd ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 1 + X ∈ ℝ
60 0red ⊢ φ ∧ X 1 + X ∈ 0 1 → 0 ∈ ℝ
61 56 simp3d ⊢ φ ∧ X 1 + X ∈ 0 1 → X 1 + X < 1
62 61 17 breqtrrdi ⊢ φ ∧ X 1 + X ∈ 0 1 → X 1 + X < 1 − 0
63 57 55 60 62 ltsub13d ⊢ φ ∧ X 1 + X ∈ 0 1 → 0 < 1 − X 1 + X
64 63 54 breqtrrd ⊢ φ ∧ X 1 + X ∈ 0 1 → 0 < 1 1 + X
65 59 64 elrpd ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 1 + X ∈ ℝ +
66 65 rprecred ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 1 1 + X ∈ ℝ
67 48 66 eqeltrrd ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 + X ∈ ℝ
68 67 55 resubcld ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 + X - 1 ∈ ℝ
69 45 68 eqeltrrd ⊢ φ ∧ X 1 + X ∈ 0 1 → X ∈ ℝ
70 1p0e1 ⊢ 1 + 0 = 1
71 56 simp2d ⊢ φ ∧ X 1 + X ∈ 0 1 → 0 < X 1 + X
72 35 71 eqbrtrid ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 − 1 < X 1 + X
73 55 55 57 72 ltsub23d ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 − X 1 + X < 1
74 54 73 eqbrtrd ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 1 + X < 1
75 65 reclt1d ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 1 + X < 1 ↔ 1 < 1 1 1 + X
76 74 75 mpbid ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 < 1 1 1 + X
77 76 48 breqtrd ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 < 1 + X
78 70 77 eqbrtrid ⊢ φ ∧ X 1 + X ∈ 0 1 → 1 + 0 < 1 + X
79 60 69 55 ltadd2d ⊢ φ ∧ X 1 + X ∈ 0 1 → 0 < X ↔ 1 + 0 < 1 + X
80 78 79 mpbird ⊢ φ ∧ X 1 + X ∈ 0 1 → 0 < X
81 69 80 elrpd ⊢ φ ∧ X 1 + X ∈ 0 1 → X ∈ ℝ +
82 44 81 impbida ⊢ φ → X ∈ ℝ + ↔ X 1 + X ∈ 0 1