Metamath Proof Explorer


Theorem resubeulem2

Description: Lemma for resubeu . A value which when added to A , results in B . (Contributed by Steven Nguyen, 7-Jan-2023)

Ref Expression
Assertion resubeulem2 ⊢ A ∈ ℝ ∧ B ∈ ℝ → A + 0 - ℝ A + 0 - ℝ 0 + 0 + B = B

Proof

Step Hyp Ref Expression
1 renegid ⊢ A ∈ ℝ → A + 0 - ℝ A = 0
2 1 adantr ⊢ A ∈ ℝ ∧ B ∈ ℝ → A + 0 - ℝ A = 0
3 2 oveq1d ⊢ A ∈ ℝ ∧ B ∈ ℝ → A + 0 - ℝ A + 0 - ℝ 0 + 0 + B = 0 + 0 - ℝ 0 + 0 + B
4 simpl ⊢ A ∈ ℝ ∧ B ∈ ℝ → A ∈ ℝ
5 4 recnd ⊢ A ∈ ℝ ∧ B ∈ ℝ → A ∈ ℂ
6 rernegcl ⊢ A ∈ ℝ → 0 - ℝ A ∈ ℝ
7 6 adantr ⊢ A ∈ ℝ ∧ B ∈ ℝ → 0 - ℝ A ∈ ℝ
8 7 recnd ⊢ A ∈ ℝ ∧ B ∈ ℝ → 0 - ℝ A ∈ ℂ
9 elre0re ⊢ B ∈ ℝ → 0 ∈ ℝ
10 9 9 readdcld ⊢ B ∈ ℝ → 0 + 0 ∈ ℝ
11 rernegcl ⊢ 0 + 0 ∈ ℝ → 0 - ℝ 0 + 0 ∈ ℝ
12 10 11 syl ⊢ B ∈ ℝ → 0 - ℝ 0 + 0 ∈ ℝ
13 id ⊢ B ∈ ℝ → B ∈ ℝ
14 12 13 readdcld ⊢ B ∈ ℝ → 0 - ℝ 0 + 0 + B ∈ ℝ
15 14 adantl ⊢ A ∈ ℝ ∧ B ∈ ℝ → 0 - ℝ 0 + 0 + B ∈ ℝ
16 15 recnd ⊢ A ∈ ℝ ∧ B ∈ ℝ → 0 - ℝ 0 + 0 + B ∈ ℂ
17 5 8 16 addassd ⊢ A ∈ ℝ ∧ B ∈ ℝ → A + 0 - ℝ A + 0 - ℝ 0 + 0 + B = A + 0 - ℝ A + 0 - ℝ 0 + 0 + B
18 resubeulem1 ⊢ B ∈ ℝ → 0 + 0 - ℝ 0 + 0 = 0 - ℝ 0
19 18 oveq1d ⊢ B ∈ ℝ → 0 + 0 - ℝ 0 + 0 + B = 0 - ℝ 0 + B
20 9 recnd ⊢ B ∈ ℝ → 0 ∈ ℂ
21 12 recnd ⊢ B ∈ ℝ → 0 - ℝ 0 + 0 ∈ ℂ
22 recn ⊢ B ∈ ℝ → B ∈ ℂ
23 20 21 22 addassd ⊢ B ∈ ℝ → 0 + 0 - ℝ 0 + 0 + B = 0 + 0 - ℝ 0 + 0 + B
24 reneg0addlid ⊢ B ∈ ℝ → 0 - ℝ 0 + B = B
25 19 23 24 3eqtr3d ⊢ B ∈ ℝ → 0 + 0 - ℝ 0 + 0 + B = B
26 25 adantl ⊢ A ∈ ℝ ∧ B ∈ ℝ → 0 + 0 - ℝ 0 + 0 + B = B
27 3 17 26 3eqtr3d ⊢ A ∈ ℝ ∧ B ∈ ℝ → A + 0 - ℝ A + 0 - ℝ 0 + 0 + B = B