Theorem sadadd2lem2 16387

Description: The core of the proof of sadadd2 16397. 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

Step	Hyp	Ref	Expression
1		0cn 11202	. . . . . . . . 9 ⊢ 0 ∈ ℂ
2		ifcl 4572	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 0 ∈ ℂ) → if(𝜓, 𝐴, 0) ∈ ℂ)
3	1, 2	mpan2 689	. . . . . . . 8 ⊢ (𝐴 ∈ ℂ → if(𝜓, 𝐴, 0) ∈ ℂ)
4	3	ad2antrr 724	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if(𝜓, 𝐴, 0) ∈ ℂ)
5		simpll 765	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → 𝐴 ∈ ℂ)
6	4, 5, 5	add12d 11436	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if(𝜓, 𝐴, 0) + (𝐴 + 𝐴)) = (𝐴 + (if(𝜓, 𝐴, 0) + 𝐴)))
7	5, 4, 5	addassd 11232	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → ((𝐴 + if(𝜓, 𝐴, 0)) + 𝐴) = (𝐴 + (if(𝜓, 𝐴, 0) + 𝐴)))
8	6, 7	eqtr4d 2775	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if(𝜓, 𝐴, 0) + (𝐴 + 𝐴)) = ((𝐴 + if(𝜓, 𝐴, 0)) + 𝐴))
9		pm5.501 366	. . . . . . . . 9 ⊢ (𝜑 → (𝜓 ↔ (𝜑 ↔ 𝜓)))
10	9	adantl 482	. . . . . . . 8 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (𝜓 ↔ (𝜑 ↔ 𝜓)))
11	10	bicomd 222	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → ((𝜑 ↔ 𝜓) ↔ 𝜓))
12	11	ifbid 4550	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if((𝜑 ↔ 𝜓), 𝐴, 0) = if(𝜓, 𝐴, 0))
13		animorrl 979	. . . . . . . 8 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (𝜑 ∨ 𝜓))
14		iftrue 4533	. . . . . . . 8 ⊢ ((𝜑 ∨ 𝜓) → if((𝜑 ∨ 𝜓), (2 · 𝐴), 0) = (2 · 𝐴))
15	13, 14	syl 17	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if((𝜑 ∨ 𝜓), (2 · 𝐴), 0) = (2 · 𝐴))
16	5	2timesd 12451	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (2 · 𝐴) = (𝐴 + 𝐴))
17	15, 16	eqtrd 2772	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if((𝜑 ∨ 𝜓), (2 · 𝐴), 0) = (𝐴 + 𝐴))
18	12, 17	oveq12d 7423	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if((𝜑 ↔ 𝜓), 𝐴, 0) + if((𝜑 ∨ 𝜓), (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + (𝐴 + 𝐴)))
19		iftrue 4533	. . . . . . . 8 ⊢ (𝜑 → if(𝜑, 𝐴, 0) = 𝐴)
20	19	adantl 482	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → if(𝜑, 𝐴, 0) = 𝐴)
21	20	oveq1d 7420	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
22	21	oveq1d 7420	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴) = ((𝐴 + if(𝜓, 𝐴, 0)) + 𝐴))
23	8, 18, 22	3eqtr4d 2782	. . . 4 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ 𝜑) → (if((𝜑 ↔ 𝜓), 𝐴, 0) + if((𝜑 ∨ 𝜓), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴))
24		iffalse 4536	. . . . . . . . 9 ⊢ (¬ 𝜑 → if(𝜑, 𝐴, 0) = 0)
25	24	adantl 482	. . . . . . . 8 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(𝜑, 𝐴, 0) = 0)
26	25	oveq1d 7420	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = (0 + if(𝜓, 𝐴, 0)))
27	3	ad2antrr 724	. . . . . . . 8 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(𝜓, 𝐴, 0) ∈ ℂ)
28	27	addlidd 11411	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (0 + if(𝜓, 𝐴, 0)) = if(𝜓, 𝐴, 0))
29	26, 28	eqtrd 2772	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = if(𝜓, 𝐴, 0))
30	29	oveq1d 7420	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴) = (if(𝜓, 𝐴, 0) + 𝐴))
31		2cnd 12286	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → 2 ∈ ℂ)
32		id 22	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → 𝐴 ∈ ℂ)
33	31, 32	mulcld 11230	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℂ → (2 · 𝐴) ∈ ℂ)
34	33	addlidd 11411	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (0 + (2 · 𝐴)) = (2 · 𝐴))
35		2times 12344	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℂ → (2 · 𝐴) = (𝐴 + 𝐴))
36	34, 35	eqtrd 2772	. . . . . . . . 9 ⊢ (𝐴 ∈ ℂ → (0 + (2 · 𝐴)) = (𝐴 + 𝐴))
37	36	adantr 481	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝜓) → (0 + (2 · 𝐴)) = (𝐴 + 𝐴))
38		iftrue 4533	. . . . . . . . . 10 ⊢ (𝜓 → if(𝜓, 0, 𝐴) = 0)
39	38	adantl 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝜓) → if(𝜓, 0, 𝐴) = 0)
40		iftrue 4533	. . . . . . . . . 10 ⊢ (𝜓 → if(𝜓, (2 · 𝐴), 0) = (2 · 𝐴))
41	40	adantl 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝜓) → if(𝜓, (2 · 𝐴), 0) = (2 · 𝐴))
42	39, 41	oveq12d 7423	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (0 + (2 · 𝐴)))
43		iftrue 4533	. . . . . . . . . 10 ⊢ (𝜓 → if(𝜓, 𝐴, 0) = 𝐴)
44	43	adantl 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝜓) → if(𝜓, 𝐴, 0) = 𝐴)
45	44	oveq1d 7420	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝜓) → (if(𝜓, 𝐴, 0) + 𝐴) = (𝐴 + 𝐴))
46	37, 42, 45	3eqtr4d 2782	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 𝐴))
47		simpl 483	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → 𝐴 ∈ ℂ)
48		0cnd 11203	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → 0 ∈ ℂ)
49	47, 48	addcomd 11412	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (𝐴 + 0) = (0 + 𝐴))
50		iffalse 4536	. . . . . . . . . 10 ⊢ (¬ 𝜓 → if(𝜓, 0, 𝐴) = 𝐴)
51	50	adantl 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → if(𝜓, 0, 𝐴) = 𝐴)
52		iffalse 4536	. . . . . . . . . 10 ⊢ (¬ 𝜓 → if(𝜓, (2 · 𝐴), 0) = 0)
53	52	adantl 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → if(𝜓, (2 · 𝐴), 0) = 0)
54	51, 53	oveq12d 7423	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + 0))
55		iffalse 4536	. . . . . . . . . 10 ⊢ (¬ 𝜓 → if(𝜓, 𝐴, 0) = 0)
56	55	adantl 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → if(𝜓, 𝐴, 0) = 0)
57	56	oveq1d 7420	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (if(𝜓, 𝐴, 0) + 𝐴) = (0 + 𝐴))
58	49, 54, 57	3eqtr4d 2782	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 𝐴))
59	46, 58	pm2.61dan 811	. . . . . 6 ⊢ (𝐴 ∈ ℂ → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 𝐴))
60	59	ad2antrr 724	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 𝐴))
61		ifnot 4579	. . . . . . 7 ⊢ if(¬ 𝜓, 𝐴, 0) = if(𝜓, 0, 𝐴)
62		nbn2 370	. . . . . . . . 9 ⊢ (¬ 𝜑 → (¬ 𝜓 ↔ (𝜑 ↔ 𝜓)))
63	62	adantl 482	. . . . . . . 8 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (¬ 𝜓 ↔ (𝜑 ↔ 𝜓)))
64	63	ifbid 4550	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(¬ 𝜓, 𝐴, 0) = if((𝜑 ↔ 𝜓), 𝐴, 0))
65	61, 64	eqtr3id 2786	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(𝜓, 0, 𝐴) = if((𝜑 ↔ 𝜓), 𝐴, 0))
66		biorf 935	. . . . . . . 8 ⊢ (¬ 𝜑 → (𝜓 ↔ (𝜑 ∨ 𝜓)))
67	66	adantl 482	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (𝜓 ↔ (𝜑 ∨ 𝜓)))
68	67	ifbid 4550	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → if(𝜓, (2 · 𝐴), 0) = if((𝜑 ∨ 𝜓), (2 · 𝐴), 0))
69	65, 68	oveq12d 7423	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if((𝜑 ↔ 𝜓), 𝐴, 0) + if((𝜑 ∨ 𝜓), (2 · 𝐴), 0)))
70	30, 60, 69	3eqtr2rd 2779	. . . 4 ⊢ (((𝐴 ∈ ℂ ∧ 𝜒) ∧ ¬ 𝜑) → (if((𝜑 ↔ 𝜓), 𝐴, 0) + if((𝜑 ∨ 𝜓), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴))
71	23, 70	pm2.61dan 811	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ 𝜒) → (if((𝜑 ↔ 𝜓), 𝐴, 0) + if((𝜑 ∨ 𝜓), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴))
72		hadrot 1602	. . . . . . 7 ⊢ (hadd(𝜒, 𝜑, 𝜓) ↔ hadd(𝜑, 𝜓, 𝜒))
73		had1 1604	. . . . . . 7 ⊢ (𝜒 → (hadd(𝜒, 𝜑, 𝜓) ↔ (𝜑 ↔ 𝜓)))
74	72, 73	bitr3id 284	. . . . . 6 ⊢ (𝜒 → (hadd(𝜑, 𝜓, 𝜒) ↔ (𝜑 ↔ 𝜓)))
75	74	adantl 482	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝜒) → (hadd(𝜑, 𝜓, 𝜒) ↔ (𝜑 ↔ 𝜓)))
76	75	ifbid 4550	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ 𝜒) → if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) = if((𝜑 ↔ 𝜓), 𝐴, 0))
77		cad1 1618	. . . . . 6 ⊢ (𝜒 → (cadd(𝜑, 𝜓, 𝜒) ↔ (𝜑 ∨ 𝜓)))
78	77	adantl 482	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝜒) → (cadd(𝜑, 𝜓, 𝜒) ↔ (𝜑 ∨ 𝜓)))
79	78	ifbid 4550	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ 𝜒) → if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0) = if((𝜑 ∨ 𝜓), (2 · 𝐴), 0))
80	76, 79	oveq12d 7423	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ 𝜒) → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = (if((𝜑 ↔ 𝜓), 𝐴, 0) + if((𝜑 ∨ 𝜓), (2 · 𝐴), 0)))
81		iftrue 4533	. . . . 5 ⊢ (𝜒 → if(𝜒, 𝐴, 0) = 𝐴)
82	81	adantl 482	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ 𝜒) → if(𝜒, 𝐴, 0) = 𝐴)
83	82	oveq2d 7421	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ 𝜒) → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 𝐴))
84	71, 80, 83	3eqtr4d 2782	. 2 ⊢ ((𝐴 ∈ ℂ ∧ 𝜒) → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)))
85	19	adantl 482	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → if(𝜑, 𝐴, 0) = 𝐴)
86	85	oveq1d 7420	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
87	44	oveq2d 7421	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝜓) → (𝐴 + if(𝜓, 𝐴, 0)) = (𝐴 + 𝐴))
88	37, 42, 87	3eqtr4d 2782	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
89	53, 56	eqtr4d 2775	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → if(𝜓, (2 · 𝐴), 0) = if(𝜓, 𝐴, 0))
90	51, 89	oveq12d 7423	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜓) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
91	88, 90	pm2.61dan 811	. . . . . 6 ⊢ (𝐴 ∈ ℂ → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
92	91	ad2antrr 724	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (𝐴 + if(𝜓, 𝐴, 0)))
93	9	adantl 482	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (𝜓 ↔ (𝜑 ↔ 𝜓)))
94	93	notbid 317	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (¬ 𝜓 ↔ ¬ (𝜑 ↔ 𝜓)))
95		df-xor 1510	. . . . . . . . 9 ⊢ ((𝜑 ⊻ 𝜓) ↔ ¬ (𝜑 ↔ 𝜓))
96	94, 95	bitr4di 288	. . . . . . . 8 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (¬ 𝜓 ↔ (𝜑 ⊻ 𝜓)))
97	96	ifbid 4550	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → if(¬ 𝜓, 𝐴, 0) = if((𝜑 ⊻ 𝜓), 𝐴, 0))
98	61, 97	eqtr3id 2786	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → if(𝜓, 0, 𝐴) = if((𝜑 ⊻ 𝜓), 𝐴, 0))
99		ibar 529	. . . . . . . 8 ⊢ (𝜑 → (𝜓 ↔ (𝜑 ∧ 𝜓)))
100	99	adantl 482	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (𝜓 ↔ (𝜑 ∧ 𝜓)))
101	100	ifbid 4550	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → if(𝜓, (2 · 𝐴), 0) = if((𝜑 ∧ 𝜓), (2 · 𝐴), 0))
102	98, 101	oveq12d 7423	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (if(𝜓, 0, 𝐴) + if(𝜓, (2 · 𝐴), 0)) = (if((𝜑 ⊻ 𝜓), 𝐴, 0) + if((𝜑 ∧ 𝜓), (2 · 𝐴), 0)))
103	86, 92, 102	3eqtr2rd 2779	. . . 4 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ 𝜑) → (if((𝜑 ⊻ 𝜓), 𝐴, 0) + if((𝜑 ∧ 𝜓), (2 · 𝐴), 0)) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
104		simplll 773	. . . . . . 7 ⊢ ((((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) ∧ 𝜓) → 𝐴 ∈ ℂ)
105		0cnd 11203	. . . . . . 7 ⊢ ((((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) ∧ ¬ 𝜓) → 0 ∈ ℂ)
106	104, 105	ifclda 4562	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → if(𝜓, 𝐴, 0) ∈ ℂ)
107		0cnd 11203	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → 0 ∈ ℂ)
108	106, 107	addcomd 11412	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (if(𝜓, 𝐴, 0) + 0) = (0 + if(𝜓, 𝐴, 0)))
109	62	adantl 482	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (¬ 𝜓 ↔ (𝜑 ↔ 𝜓)))
110	109	con1bid 355	. . . . . . . 8 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (¬ (𝜑 ↔ 𝜓) ↔ 𝜓))
111	95, 110	bitrid 282	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → ((𝜑 ⊻ 𝜓) ↔ 𝜓))
112	111	ifbid 4550	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → if((𝜑 ⊻ 𝜓), 𝐴, 0) = if(𝜓, 𝐴, 0))
113		simpr 485	. . . . . . . 8 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → ¬ 𝜑)
114	113	intnanrd 490	. . . . . . 7 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → ¬ (𝜑 ∧ 𝜓))
115		iffalse 4536	. . . . . . 7 ⊢ (¬ (𝜑 ∧ 𝜓) → if((𝜑 ∧ 𝜓), (2 · 𝐴), 0) = 0)
116	114, 115	syl 17	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → if((𝜑 ∧ 𝜓), (2 · 𝐴), 0) = 0)
117	112, 116	oveq12d 7423	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (if((𝜑 ⊻ 𝜓), 𝐴, 0) + if((𝜑 ∧ 𝜓), (2 · 𝐴), 0)) = (if(𝜓, 𝐴, 0) + 0))
118	24	adantl 482	. . . . . 6 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → if(𝜑, 𝐴, 0) = 0)
119	118	oveq1d 7420	. . . . 5 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) = (0 + if(𝜓, 𝐴, 0)))
120	108, 117, 119	3eqtr4d 2782	. . . 4 ⊢ (((𝐴 ∈ ℂ ∧ ¬ 𝜒) ∧ ¬ 𝜑) → (if((𝜑 ⊻ 𝜓), 𝐴, 0) + if((𝜑 ∧ 𝜓), (2 · 𝐴), 0)) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
121	103, 120	pm2.61dan 811	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (if((𝜑 ⊻ 𝜓), 𝐴, 0) + if((𝜑 ∧ 𝜓), (2 · 𝐴), 0)) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
122		had0 1605	. . . . . . 7 ⊢ (¬ 𝜒 → (hadd(𝜒, 𝜑, 𝜓) ↔ (𝜑 ⊻ 𝜓)))
123	72, 122	bitr3id 284	. . . . . 6 ⊢ (¬ 𝜒 → (hadd(𝜑, 𝜓, 𝜒) ↔ (𝜑 ⊻ 𝜓)))
124	123	adantl 482	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (hadd(𝜑, 𝜓, 𝜒) ↔ (𝜑 ⊻ 𝜓)))
125	124	ifbid 4550	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) = if((𝜑 ⊻ 𝜓), 𝐴, 0))
126		cad0 1619	. . . . . 6 ⊢ (¬ 𝜒 → (cadd(𝜑, 𝜓, 𝜒) ↔ (𝜑 ∧ 𝜓)))
127	126	adantl 482	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (cadd(𝜑, 𝜓, 𝜒) ↔ (𝜑 ∧ 𝜓)))
128	127	ifbid 4550	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0) = if((𝜑 ∧ 𝜓), (2 · 𝐴), 0))
129	125, 128	oveq12d 7423	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = (if((𝜑 ⊻ 𝜓), 𝐴, 0) + if((𝜑 ∧ 𝜓), (2 · 𝐴), 0)))
130		iffalse 4536	. . . . 5 ⊢ (¬ 𝜒 → if(𝜒, 𝐴, 0) = 0)
131	130	oveq2d 7421	. . . 4 ⊢ (¬ 𝜒 → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 0))
132		ifcl 4572	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 0 ∈ ℂ) → if(𝜑, 𝐴, 0) ∈ ℂ)
133	1, 132	mpan2 689	. . . . . 6 ⊢ (𝐴 ∈ ℂ → if(𝜑, 𝐴, 0) ∈ ℂ)
134	133, 3	addcld 11229	. . . . 5 ⊢ (𝐴 ∈ ℂ → (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) ∈ ℂ)
135	134	addridd 11410	. . . 4 ⊢ (𝐴 ∈ ℂ → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + 0) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
136	131, 135	sylan9eqr 2794	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)) = (if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)))
137	121, 129, 136	3eqtr4d 2782	. 2 ⊢ ((𝐴 ∈ ℂ ∧ ¬ 𝜒) → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)))
138	84, 137	pm2.61dan 811	1 ⊢ (𝐴 ∈ ℂ → (if(hadd(𝜑, 𝜓, 𝜒), 𝐴, 0) + if(cadd(𝜑, 𝜓, 𝜒), (2 · 𝐴), 0)) = ((if(𝜑, 𝐴, 0) + if(𝜓, 𝐴, 0)) + if(𝜒, 𝐴, 0)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 845   ⊻ wxo 1509   = wceq 1541  haddwhad 1594  caddwcad 1607   ∈ wcel 2106  ifcif 4527  (class class class)co 7405  ℂcc 11104  0cc0 11106   + caddc 11109   · cmul 11111  2c2 12263

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-xor 1510  df-tru 1544  df-fal 1554  df-had 1595  df-cad 1608  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-br 5148  df-opab 5210  df-mpt 5231  df-id 5573  df-po 5587  df-so 5588  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-ov 7408  df-er 8699  df-en 8936  df-dom 8937  df-sdom 8938  df-pnf 11246  df-mnf 11247  df-ltxr 11249  df-2 12271

This theorem is referenced by:  sadadd2lem  16396