MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  sadadd2lem2 Structured version   Visualization version   GIF version

Theorem sadadd2lem2 15096
Description: The core of the proof of sadadd2 15106. The intuitive justification for this is that cadd is true if at least two arguments are true, and hadd is true if an odd number of arguments are true, so altogether the result is 𝑛 · 𝐴 where 𝑛 is the number of true arguments, which is equivalently obtained by adding together one 𝐴 for each true argument, on the right side. (Contributed by Mario Carneiro, 8-Sep-2016.)
Assertion
Ref Expression
sadadd2lem2 (𝐴 ∈ ℂ → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)))

Proof of Theorem sadadd2lem2
StepHypRef Expression
1 0cn 9976 . . . . . . . . 9 0 ∈ ℂ
2 ifcl 4102 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ 0 ∈ ℂ) → if(𝜓, 𝐴, 0) ∈ ℂ)
31, 2mpan2 706 . . . . . . . 8 (𝐴 ∈ ℂ → if(𝜓, 𝐴, 0) ∈ ℂ)
43ad2antrr 761 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if(𝜓, 𝐴, 0) ∈ ℂ)
5 simpll 789 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → 𝐴 ∈ ℂ)
64, 5, 5add12d 10206 . . . . . 6 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if(𝜓, 𝐴, 0) + (𝐴 + 𝐴)) = (𝐴 + (if(𝜓, 𝐴, 0) + 𝐴)))
75, 4, 5addassd 10006 . . . . . 6 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → ((𝐴 + if(𝜓, 𝐴, 0)) + 𝐴) = (𝐴 + (if(𝜓, 𝐴, 0) + 𝐴)))
86, 7eqtr4d 2658 . . . . 5 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if(𝜓, 𝐴, 0) + (𝐴 + 𝐴)) = ((𝐴 + if(𝜓, 𝐴, 0)) + 𝐴))
9 pm5.501 356 . . . . . . . . 9 (𝜑 → (𝜓 ↔ (𝜑𝜓)))
109adantl 482 . . . . . . . 8 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (𝜓 ↔ (𝜑𝜓)))
1110bicomd 213 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → ((𝜑𝜓) ↔ 𝜓))
1211ifbid 4080 . . . . . 6 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if((𝜑𝜓), 𝐴, 0) = if(𝜓, 𝐴, 0))
13 simpr 477 . . . . . . . . 9 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → 𝜑)
1413orcd 407 . . . . . . . 8 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (𝜑𝜓))
15 iftrue 4064 . . . . . . . 8 ((𝜑𝜓) → if((𝜑𝜓), (2 · 𝐴), 0) = (2 · 𝐴))
1614, 15syl 17 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if((𝜑𝜓), (2 · 𝐴), 0) = (2 · 𝐴))
1752timesd 11219 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (2 · 𝐴) = (𝐴 + 𝐴))
1816, 17eqtrd 2655 . . . . . 6 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if((𝜑𝜓), (2 · 𝐴), 0) = (𝐴 + 𝐴))
1912, 18oveq12d 6622 . . . . 5 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + (𝐴 + 𝐴)))
20 iftrue 4064 . . . . . . . 8 (𝜑 → if(𝜑, 𝐴, 0) = 𝐴)
2120adantl 482 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if(𝜑, 𝐴, 0) = 𝐴)
2221oveq1d 6619 . . . . . 6 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
2322oveq1d 6619 . . . . 5 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴) = ((𝐴 + if(𝜓, 𝐴, 0)) + 𝐴))
248, 19, 233eqtr4d 2665 . . . 4 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴))
25 iffalse 4067 . . . . . . . . 9 𝜑 → if(𝜑, 𝐴, 0) = 0)
2625adantl 482 . . . . . . . 8 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(𝜑, 𝐴, 0) = 0)
2726oveq1d 6619 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = (0 + if(𝜓, 𝐴, 0)))
283ad2antrr 761 . . . . . . . 8 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(𝜓, 𝐴, 0) ∈ ℂ)
2928addid2d 10181 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (0 + if(𝜓, 𝐴, 0)) = if(𝜓, 𝐴, 0))
3027, 29eqtrd 2655 . . . . . 6 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = if(𝜓, 𝐴, 0))
3130oveq1d 6619 . . . . 5 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴) = (if(𝜓, 𝐴, 0) + 𝐴))
32 2cnd 11037 . . . . . . . . . . . 12 (𝐴 ∈ ℂ → 2 ∈ ℂ)
33 id 22 . . . . . . . . . . . 12 (𝐴 ∈ ℂ → 𝐴 ∈ ℂ)
3432, 33mulcld 10004 . . . . . . . . . . 11 (𝐴 ∈ ℂ → (2 · 𝐴) ∈ ℂ)
3534addid2d 10181 . . . . . . . . . 10 (𝐴 ∈ ℂ → (0 + (2 · 𝐴)) = (2 · 𝐴))
36 2times 11089 . . . . . . . . . 10 (𝐴 ∈ ℂ → (2 · 𝐴) = (𝐴 + 𝐴))
3735, 36eqtrd 2655 . . . . . . . . 9 (𝐴 ∈ ℂ → (0 + (2 · 𝐴)) = (𝐴 + 𝐴))
3837adantr 481 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ 𝜓) → (0 + (2 · 𝐴)) = (𝐴 + 𝐴))
39 iftrue 4064 . . . . . . . . . 10 (𝜓 → if(𝜓, 0, 𝐴) = 0)
4039adantl 482 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ 𝜓) → if(𝜓, 0, 𝐴) = 0)
41 iftrue 4064 . . . . . . . . . 10 (𝜓 → if(𝜓, (2 · 𝐴), 0) = (2 · 𝐴))
4241adantl 482 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ 𝜓) → if(𝜓, (2 · 𝐴), 0) = (2 · 𝐴))
4340, 42oveq12d 6622 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (0 + (2 · 𝐴)))
44 iftrue 4064 . . . . . . . . . 10 (𝜓 → if(𝜓, 𝐴, 0) = 𝐴)
4544adantl 482 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ 𝜓) → if(𝜓, 𝐴, 0) = 𝐴)
4645oveq1d 6619 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ 𝜓) → (if(𝜓, 𝐴, 0) + 𝐴) = (𝐴 + 𝐴))
4738, 43, 463eqtr4d 2665 . . . . . . 7 ((𝐴 ∈ ℂ ∧ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 𝐴))
48 simpl 473 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → 𝐴 ∈ ℂ)
49 0cnd 9977 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → 0 ∈ ℂ)
5048, 49addcomd 10182 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (𝐴 + 0) = (0 + 𝐴))
51 iffalse 4067 . . . . . . . . . 10 𝜓 → if(𝜓, 0, 𝐴) = 𝐴)
5251adantl 482 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → if(𝜓, 0, 𝐴) = 𝐴)
53 iffalse 4067 . . . . . . . . . 10 𝜓 → if(𝜓, (2 · 𝐴), 0) = 0)
5453adantl 482 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → if(𝜓, (2 · 𝐴), 0) = 0)
5552, 54oveq12d 6622 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + 0))
56 iffalse 4067 . . . . . . . . . 10 𝜓 → if(𝜓, 𝐴, 0) = 0)
5756adantl 482 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → if(𝜓, 𝐴, 0) = 0)
5857oveq1d 6619 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (if(𝜓, 𝐴, 0) + 𝐴) = (0 + 𝐴))
5950, 55, 583eqtr4d 2665 . . . . . . 7 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 𝐴))
6047, 59pm2.61dan 831 . . . . . 6 (𝐴 ∈ ℂ → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 𝐴))
6160ad2antrr 761 . . . . 5 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 𝐴))
62 ifnot 4105 . . . . . . 7 if(¬ 𝜓, 𝐴, 0) = if(𝜓, 0, 𝐴)
63 nbn2 360 . . . . . . . . 9 𝜑 → (¬ 𝜓 ↔ (𝜑𝜓)))
6463adantl 482 . . . . . . . 8 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (¬ 𝜓 ↔ (𝜑𝜓)))
6564ifbid 4080 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(¬ 𝜓, 𝐴, 0) = if((𝜑𝜓), 𝐴, 0))
6662, 65syl5eqr 2669 . . . . . 6 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(𝜓, 0, 𝐴) = if((𝜑𝜓), 𝐴, 0))
67 biorf 420 . . . . . . . 8 𝜑 → (𝜓 ↔ (𝜑𝜓)))
6867adantl 482 . . . . . . 7 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (𝜓 ↔ (𝜑𝜓)))
6968ifbid 4080 . . . . . 6 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(𝜓, (2 · 𝐴), 0) = if((𝜑𝜓), (2 · 𝐴), 0))
7066, 69oveq12d 6622 . . . . 5 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)))
7131, 61, 703eqtr2rd 2662 . . . 4 (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴))
7224, 71pm2.61dan 831 . . 3 ((𝐴 ∈ ℂ ∧ 𝜒) → (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴))
73 hadrot 1537 . . . . . . 7 (hadd(𝜒, 𝜑, 𝜓) ↔ hadd(𝜑, 𝜓, 𝜒))
74 had1 1539 . . . . . . 7 (𝜒 → (hadd(𝜒, 𝜑, 𝜓) ↔ (𝜑𝜓)))
7573, 74syl5bbr 274 . . . . . 6 (𝜒 → (hadd(𝜑, 𝜓, 𝜒) ↔ (𝜑𝜓)))
7675adantl 482 . . . . 5 ((𝐴 ∈ ℂ ∧ 𝜒) → (hadd(𝜑, 𝜓, 𝜒) ↔ (𝜑𝜓)))
7776ifbid 4080 . . . 4 ((𝐴 ∈ ℂ ∧ 𝜒) → if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) = if((𝜑𝜓), 𝐴, 0))
78 cad1 1552 . . . . . 6 (𝜒 → (cadd(𝜑, 𝜓, 𝜒) ↔ (𝜑𝜓)))
7978adantl 482 . . . . 5 ((𝐴 ∈ ℂ ∧ 𝜒) → (cadd(𝜑, 𝜓, 𝜒) ↔ (𝜑𝜓)))
8079ifbid 4080 . . . 4 ((𝐴 ∈ ℂ ∧ 𝜒) → if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0) = if((𝜑𝜓), (2 · 𝐴), 0))
8177, 80oveq12d 6622 . . 3 ((𝐴 ∈ ℂ ∧ 𝜒) → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)))
82 iftrue 4064 . . . . 5 (𝜒 → if(𝜒, 𝐴, 0) = 𝐴)
8382adantl 482 . . . 4 ((𝐴 ∈ ℂ ∧ 𝜒) → if(𝜒, 𝐴, 0) = 𝐴)
8483oveq2d 6620 . . 3 ((𝐴 ∈ ℂ ∧ 𝜒) → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴))
8572, 81, 843eqtr4d 2665 . 2 ((𝐴 ∈ ℂ ∧ 𝜒) → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)))
8620adantl 482 . . . . . 6 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → if(𝜑, 𝐴, 0) = 𝐴)
8786oveq1d 6619 . . . . 5 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
8845oveq2d 6620 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ 𝜓) → (𝐴 + if(𝜓, 𝐴, 0)) = (𝐴 + 𝐴))
8938, 43, 883eqtr4d 2665 . . . . . . 7 ((𝐴 ∈ ℂ ∧ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
9054, 57eqtr4d 2658 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → if(𝜓, (2 · 𝐴), 0) = if(𝜓, 𝐴, 0))
9152, 90oveq12d 6622 . . . . . . 7 ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
9289, 91pm2.61dan 831 . . . . . 6 (𝐴 ∈ ℂ → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
9392ad2antrr 761 . . . . 5 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
949adantl 482 . . . . . . . . . 10 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (𝜓 ↔ (𝜑𝜓)))
9594notbid 308 . . . . . . . . 9 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (¬ 𝜓 ↔ ¬ (𝜑𝜓)))
96 df-xor 1462 . . . . . . . . 9 ((𝜑𝜓) ↔ ¬ (𝜑𝜓))
9795, 96syl6bbr 278 . . . . . . . 8 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (¬ 𝜓 ↔ (𝜑𝜓)))
9897ifbid 4080 . . . . . . 7 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → if(¬ 𝜓, 𝐴, 0) = if((𝜑𝜓), 𝐴, 0))
9962, 98syl5eqr 2669 . . . . . 6 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → if(𝜓, 0, 𝐴) = if((𝜑𝜓), 𝐴, 0))
100 ibar 525 . . . . . . . 8 (𝜑 → (𝜓 ↔ (𝜑𝜓)))
101100adantl 482 . . . . . . 7 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (𝜓 ↔ (𝜑𝜓)))
102101ifbid 4080 . . . . . 6 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → if(𝜓, (2 · 𝐴), 0) = if((𝜑𝜓), (2 · 𝐴), 0))
10399, 102oveq12d 6622 . . . . 5 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)))
10487, 93, 1033eqtr2rd 2662 . . . 4 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
105 simplll 797 . . . . . . 7 ((((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) ∧ 𝜓) → 𝐴 ∈ ℂ)
106 0cnd 9977 . . . . . . 7 ((((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) ∧ ¬ 𝜓) → 0 ∈ ℂ)
107105, 106ifclda 4092 . . . . . 6 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → if(𝜓, 𝐴, 0) ∈ ℂ)
108 0cnd 9977 . . . . . 6 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → 0 ∈ ℂ)
109107, 108addcomd 10182 . . . . 5 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (if(𝜓, 𝐴, 0) + 0) = (0 + if(𝜓, 𝐴, 0)))
11063adantl 482 . . . . . . . . 9 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (¬ 𝜓 ↔ (𝜑𝜓)))
111110con1bid 345 . . . . . . . 8 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (¬ (𝜑𝜓) ↔ 𝜓))
11296, 111syl5bb 272 . . . . . . 7 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → ((𝜑𝜓) ↔ 𝜓))
113112ifbid 4080 . . . . . 6 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → if((𝜑𝜓), 𝐴, 0) = if(𝜓, 𝐴, 0))
114 simpr 477 . . . . . . . 8 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → ¬ 𝜑)
115114intnanrd 962 . . . . . . 7 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → ¬ (𝜑𝜓))
116 iffalse 4067 . . . . . . 7 (¬ (𝜑𝜓) → if((𝜑𝜓), (2 · 𝐴), 0) = 0)
117115, 116syl 17 . . . . . 6 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → if((𝜑𝜓), (2 · 𝐴), 0) = 0)
118113, 117oveq12d 6622 . . . . 5 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 0))
11925adantl 482 . . . . . 6 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → if(𝜑, 𝐴, 0) = 0)
120119oveq1d 6619 . . . . 5 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = (0 + if(𝜓, 𝐴, 0)))
121109, 118, 1203eqtr4d 2665 . . . 4 (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
122104, 121pm2.61dan 831 . . 3 ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
123 had0 1540 . . . . . . 7 𝜒 → (hadd(𝜒, 𝜑, 𝜓) ↔ (𝜑𝜓)))
12473, 123syl5bbr 274 . . . . . 6 𝜒 → (hadd(𝜑, 𝜓, 𝜒) ↔ (𝜑𝜓)))
125124adantl 482 . . . . 5 ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (hadd(𝜑, 𝜓, 𝜒) ↔ (𝜑𝜓)))
126125ifbid 4080 . . . 4 ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) = if((𝜑𝜓), 𝐴, 0))
127 cad0 1553 . . . . . 6 𝜒 → (cadd(𝜑, 𝜓, 𝜒) ↔ (𝜑𝜓)))
128127adantl 482 . . . . 5 ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (cadd(𝜑, 𝜓, 𝜒) ↔ (𝜑𝜓)))
129128ifbid 4080 . . . 4 ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0) = if((𝜑𝜓), (2 · 𝐴), 0))
130126, 129oveq12d 6622 . . 3 ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = (if((𝜑𝜓), 𝐴, 0) + if((𝜑𝜓), (2 · 𝐴), 0)))
131 iffalse 4067 . . . . 5 𝜒 → if(𝜒, 𝐴, 0) = 0)
132131oveq2d 6620 . . . 4 𝜒 → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 0))
133 ifcl 4102 . . . . . . 7 ((𝐴 ∈ ℂ ∧ 0 ∈ ℂ) → if(𝜑, 𝐴, 0) ∈ ℂ)
1341, 133mpan2 706 . . . . . 6 (𝐴 ∈ ℂ → if(𝜑, 𝐴, 0) ∈ ℂ)
135134, 3addcld 10003 . . . . 5 (𝐴 ∈ ℂ → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) ∈ ℂ)
136135addid1d 10180 . . . 4 (𝐴 ∈ ℂ → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 0) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
137132, 136sylan9eqr 2677 . . 3 ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
138122, 130, 1373eqtr4d 2665 . 2 ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)))
13985, 138pm2.61dan 831 1 (𝐴 ∈ ℂ → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wo 383  wa 384  wxo 1461   = wceq 1480  haddwhad 1529  caddwcad 1542  wcel 1987  ifcif 4058  (class class class)co 6604  cc 9878  0cc0 9880   + caddc 9883   · cmul 9885  2c2 11014
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-sep 4741  ax-nul 4749  ax-pow 4803  ax-pr 4867  ax-un 6902  ax-resscn 9937  ax-1cn 9938  ax-icn 9939  ax-addcl 9940  ax-addrcl 9941  ax-mulcl 9942  ax-mulrcl 9943  ax-mulcom 9944  ax-addass 9945  ax-mulass 9946  ax-distr 9947  ax-i2m1 9948  ax-1ne0 9949  ax-1rid 9950  ax-rnegex 9951  ax-rrecex 9952  ax-cnre 9953  ax-pre-lttri 9954  ax-pre-lttrn 9955  ax-pre-ltadd 9956
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-xor 1462  df-tru 1483  df-had 1530  df-cad 1543  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2912  df-rex 2913  df-rab 2916  df-v 3188  df-sbc 3418  df-csb 3515  df-dif 3558  df-un 3560  df-in 3562  df-ss 3569  df-nul 3892  df-if 4059  df-pw 4132  df-sn 4149  df-pr 4151  df-op 4155  df-uni 4403  df-br 4614  df-opab 4674  df-mpt 4675  df-id 4989  df-po 4995  df-so 4996  df-xp 5080  df-rel 5081  df-cnv 5082  df-co 5083  df-dm 5084  df-rn 5085  df-res 5086  df-ima 5087  df-iota 5810  df-fun 5849  df-fn 5850  df-f 5851  df-f1 5852  df-fo 5853  df-f1o 5854  df-fv 5855  df-ov 6607  df-er 7687  df-en 7900  df-dom 7901  df-sdom 7902  df-pnf 10020  df-mnf 10021  df-ltxr 10023  df-2 11023
This theorem is referenced by:  sadadd2lem  15105
  Copyright terms: Public domain W3C validator