Theorem addsasslem1 27894

Description: Lemma for addition associativity. Expand one form of the triple sum. (Contributed by Scott Fenton, 21-Jan-2025.)

Hypotheses

Ref	Expression
addsasslem.1	⊢ (𝜑 → 𝐴 ∈ No )
addsasslem.2	⊢ (𝜑 → 𝐵 ∈ No )
addsasslem.3	⊢ (𝜑 → 𝐶 ∈ No )

Assertion

Ref	Expression
addsasslem1	⊢ (𝜑 → ((𝐴 +s 𝐵) +s 𝐶) = ((({𝑦 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶)} ∪ {𝑧 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑧 = ((𝐴 +s 𝑚) +s 𝐶)}) ∪ {𝑤 ∣ ∃𝑛 ∈ ( L ‘𝐶)𝑤 = ((𝐴 +s 𝐵) +s 𝑛)}) |s (({𝑎 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶)} ∪ {𝑏 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑏 = ((𝐴 +s 𝑞) +s 𝐶)}) ∪ {𝑐 ∣ ∃𝑟 ∈ ( R ‘𝐶)𝑐 = ((𝐴 +s 𝐵) +s 𝑟)})))

Distinct variable groups:   𝐴,𝑎,𝑏,𝑐,𝑙,𝑚,𝑛,𝑝,𝑞,𝑟,𝑤,𝑦,𝑧   𝐵,𝑎,𝑏,𝑐,𝑙,𝑚,𝑛,𝑝,𝑞,𝑟,𝑤,𝑦,𝑧   𝐶,𝑎,𝑏,𝑐,𝑙,𝑚,𝑛,𝑝,𝑞,𝑟,𝑤,𝑦,𝑧   𝜑,𝑎,𝑏,𝑐,𝑙,𝑚,𝑛,𝑝,𝑞,𝑟,𝑤,𝑦,𝑧

Proof of Theorem addsasslem1

Dummy variables 𝑑 𝑒 𝑓 𝑔 ℎ 𝑖 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		addsasslem.1	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ No )
2		addsasslem.2	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ No )
3	1, 2	addscut 27869	. . . . 5 ⊢ (𝜑 → ((𝐴 +s 𝐵) ∈ No ∧ ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}) <<s {(𝐴 +s 𝐵)} ∧ {(𝐴 +s 𝐵)} <<s ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})))
4	3	simp2d 1141	. . . 4 ⊢ (𝜑 → ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}) <<s {(𝐴 +s 𝐵)})
5	3	simp3d 1142	. . . 4 ⊢ (𝜑 → {(𝐴 +s 𝐵)} <<s ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)}))
6		ovex 7447	. . . . . 6 ⊢ (𝐴 +s 𝐵) ∈ V
7	6	snnz 4776	. . . . 5 ⊢ {(𝐴 +s 𝐵)} ≠ ∅
8		sslttr 27714	. . . . 5 ⊢ ((({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}) <<s {(𝐴 +s 𝐵)} ∧ {(𝐴 +s 𝐵)} <<s ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)}) ∧ {(𝐴 +s 𝐵)} ≠ ∅) → ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}) <<s ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)}))
9	7, 8	mp3an3 1447	. . . 4 ⊢ ((({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}) <<s {(𝐴 +s 𝐵)} ∧ {(𝐴 +s 𝐵)} <<s ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})) → ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}) <<s ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)}))
10	4, 5, 9	syl2anc 583	. . 3 ⊢ (𝜑 → ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}) <<s ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)}))
11		lltropt 27773	. . . 4 ⊢ ( L ‘𝐶) <<s ( R ‘𝐶)
12	11	a1i 11	. . 3 ⊢ (𝜑 → ( L ‘𝐶) <<s ( R ‘𝐶))
13		addsval2 27854	. . . 4 ⊢ ((𝐴 ∈ No ∧ 𝐵 ∈ No ) → (𝐴 +s 𝐵) = (({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}) |s ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})))
14	1, 2, 13	syl2anc 583	. . 3 ⊢ (𝜑 → (𝐴 +s 𝐵) = (({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}) |s ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})))
15		addsasslem.3	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ No )
16		lrcut 27803	. . . . 5 ⊢ (𝐶 ∈ No → (( L ‘𝐶) |s ( R ‘𝐶)) = 𝐶)
17	15, 16	syl 17	. . . 4 ⊢ (𝜑 → (( L ‘𝐶) |s ( R ‘𝐶)) = 𝐶)
18	17	eqcomd 2733	. . 3 ⊢ (𝜑 → 𝐶 = (( L ‘𝐶) |s ( R ‘𝐶)))
19	10, 12, 14, 18	addsunif 27893	. 2 ⊢ (𝜑 → ((𝐴 +s 𝐵) +s 𝐶) = (({𝑦 ∣ ∃ℎ ∈ ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)})𝑦 = (ℎ +s 𝐶)} ∪ {𝑤 ∣ ∃𝑛 ∈ ( L ‘𝐶)𝑤 = ((𝐴 +s 𝐵) +s 𝑛)}) |s ({𝑎 ∣ ∃𝑖 ∈ ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})𝑎 = (𝑖 +s 𝐶)} ∪ {𝑐 ∣ ∃𝑟 ∈ ( R ‘𝐶)𝑐 = ((𝐴 +s 𝐵) +s 𝑟)})))
20		unab 4294	. . . . 5 ⊢ ({𝑦 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶)} ∪ {𝑦 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶)}) = {𝑦 ∣ (∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶) ∨ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶))}
21		eqeq1 2731	. . . . . . . 8 ⊢ (𝑧 = 𝑦 → (𝑧 = ((𝐴 +s 𝑚) +s 𝐶) ↔ 𝑦 = ((𝐴 +s 𝑚) +s 𝐶)))
22	21	rexbidv 3173	. . . . . . 7 ⊢ (𝑧 = 𝑦 → (∃𝑚 ∈ ( L ‘𝐵)𝑧 = ((𝐴 +s 𝑚) +s 𝐶) ↔ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶)))
23	22	cbvabv 2800	. . . . . 6 ⊢ {𝑧 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑧 = ((𝐴 +s 𝑚) +s 𝐶)} = {𝑦 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶)}
24	23	uneq2i 4156	. . . . 5 ⊢ ({𝑦 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶)} ∪ {𝑧 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑧 = ((𝐴 +s 𝑚) +s 𝐶)}) = ({𝑦 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶)} ∪ {𝑦 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶)})
25		rexun 4186	. . . . . . 7 ⊢ (∃ℎ ∈ ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)})𝑦 = (ℎ +s 𝐶) ↔ (∃ℎ ∈ {𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)}𝑦 = (ℎ +s 𝐶) ∨ ∃ℎ ∈ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}𝑦 = (ℎ +s 𝐶)))
26		eqeq1 2731	. . . . . . . . . . 11 ⊢ (𝑑 = ℎ → (𝑑 = (𝑙 +s 𝐵) ↔ ℎ = (𝑙 +s 𝐵)))
27	26	rexbidv 3173	. . . . . . . . . 10 ⊢ (𝑑 = ℎ → (∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵) ↔ ∃𝑙 ∈ ( L ‘𝐴)ℎ = (𝑙 +s 𝐵)))
28	27	rexab 3687	. . . . . . . . 9 ⊢ (∃ℎ ∈ {𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)}𝑦 = (ℎ +s 𝐶) ↔ ∃ℎ(∃𝑙 ∈ ( L ‘𝐴)ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)))
29		rexcom4 3280	. . . . . . . . . 10 ⊢ (∃𝑙 ∈ ( L ‘𝐴)∃ℎ(ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ ∃ℎ∃𝑙 ∈ ( L ‘𝐴)(ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)))
30		ovex 7447	. . . . . . . . . . . 12 ⊢ (𝑙 +s 𝐵) ∈ V
31		oveq1 7421	. . . . . . . . . . . . 13 ⊢ (ℎ = (𝑙 +s 𝐵) → (ℎ +s 𝐶) = ((𝑙 +s 𝐵) +s 𝐶))
32	31	eqeq2d 2738	. . . . . . . . . . . 12 ⊢ (ℎ = (𝑙 +s 𝐵) → (𝑦 = (ℎ +s 𝐶) ↔ 𝑦 = ((𝑙 +s 𝐵) +s 𝐶)))
33	30, 32	ceqsexv 3521	. . . . . . . . . . 11 ⊢ (∃ℎ(ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ 𝑦 = ((𝑙 +s 𝐵) +s 𝐶))
34	33	rexbii 3089	. . . . . . . . . 10 ⊢ (∃𝑙 ∈ ( L ‘𝐴)∃ℎ(ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶))
35		r19.41v 3183	. . . . . . . . . . 11 ⊢ (∃𝑙 ∈ ( L ‘𝐴)(ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ (∃𝑙 ∈ ( L ‘𝐴)ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)))
36	35	exbii 1843	. . . . . . . . . 10 ⊢ (∃ℎ∃𝑙 ∈ ( L ‘𝐴)(ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ ∃ℎ(∃𝑙 ∈ ( L ‘𝐴)ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)))
37	29, 34, 36	3bitr3ri 302	. . . . . . . . 9 ⊢ (∃ℎ(∃𝑙 ∈ ( L ‘𝐴)ℎ = (𝑙 +s 𝐵) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶))
38	28, 37	bitri 275	. . . . . . . 8 ⊢ (∃ℎ ∈ {𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)}𝑦 = (ℎ +s 𝐶) ↔ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶))
39		eqeq1 2731	. . . . . . . . . . 11 ⊢ (𝑒 = ℎ → (𝑒 = (𝐴 +s 𝑚) ↔ ℎ = (𝐴 +s 𝑚)))
40	39	rexbidv 3173	. . . . . . . . . 10 ⊢ (𝑒 = ℎ → (∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚) ↔ ∃𝑚 ∈ ( L ‘𝐵)ℎ = (𝐴 +s 𝑚)))
41	40	rexab 3687	. . . . . . . . 9 ⊢ (∃ℎ ∈ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}𝑦 = (ℎ +s 𝐶) ↔ ∃ℎ(∃𝑚 ∈ ( L ‘𝐵)ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)))
42		rexcom4 3280	. . . . . . . . . 10 ⊢ (∃𝑚 ∈ ( L ‘𝐵)∃ℎ(ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ ∃ℎ∃𝑚 ∈ ( L ‘𝐵)(ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)))
43		ovex 7447	. . . . . . . . . . . 12 ⊢ (𝐴 +s 𝑚) ∈ V
44		oveq1 7421	. . . . . . . . . . . . 13 ⊢ (ℎ = (𝐴 +s 𝑚) → (ℎ +s 𝐶) = ((𝐴 +s 𝑚) +s 𝐶))
45	44	eqeq2d 2738	. . . . . . . . . . . 12 ⊢ (ℎ = (𝐴 +s 𝑚) → (𝑦 = (ℎ +s 𝐶) ↔ 𝑦 = ((𝐴 +s 𝑚) +s 𝐶)))
46	43, 45	ceqsexv 3521	. . . . . . . . . . 11 ⊢ (∃ℎ(ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ 𝑦 = ((𝐴 +s 𝑚) +s 𝐶))
47	46	rexbii 3089	. . . . . . . . . 10 ⊢ (∃𝑚 ∈ ( L ‘𝐵)∃ℎ(ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶))
48		r19.41v 3183	. . . . . . . . . . 11 ⊢ (∃𝑚 ∈ ( L ‘𝐵)(ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ (∃𝑚 ∈ ( L ‘𝐵)ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)))
49	48	exbii 1843	. . . . . . . . . 10 ⊢ (∃ℎ∃𝑚 ∈ ( L ‘𝐵)(ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ ∃ℎ(∃𝑚 ∈ ( L ‘𝐵)ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)))
50	42, 47, 49	3bitr3ri 302	. . . . . . . . 9 ⊢ (∃ℎ(∃𝑚 ∈ ( L ‘𝐵)ℎ = (𝐴 +s 𝑚) ∧ 𝑦 = (ℎ +s 𝐶)) ↔ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶))
51	41, 50	bitri 275	. . . . . . . 8 ⊢ (∃ℎ ∈ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}𝑦 = (ℎ +s 𝐶) ↔ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶))
52	38, 51	orbi12i 913	. . . . . . 7 ⊢ ((∃ℎ ∈ {𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)}𝑦 = (ℎ +s 𝐶) ∨ ∃ℎ ∈ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)}𝑦 = (ℎ +s 𝐶)) ↔ (∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶) ∨ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶)))
53	25, 52	bitri 275	. . . . . 6 ⊢ (∃ℎ ∈ ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)})𝑦 = (ℎ +s 𝐶) ↔ (∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶) ∨ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶)))
54	53	abbii 2797	. . . . 5 ⊢ {𝑦 ∣ ∃ℎ ∈ ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)})𝑦 = (ℎ +s 𝐶)} = {𝑦 ∣ (∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶) ∨ ∃𝑚 ∈ ( L ‘𝐵)𝑦 = ((𝐴 +s 𝑚) +s 𝐶))}
55	20, 24, 54	3eqtr4ri 2766	. . . 4 ⊢ {𝑦 ∣ ∃ℎ ∈ ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)})𝑦 = (ℎ +s 𝐶)} = ({𝑦 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶)} ∪ {𝑧 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑧 = ((𝐴 +s 𝑚) +s 𝐶)})
56	55	uneq1i 4155	. . 3 ⊢ ({𝑦 ∣ ∃ℎ ∈ ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)})𝑦 = (ℎ +s 𝐶)} ∪ {𝑤 ∣ ∃𝑛 ∈ ( L ‘𝐶)𝑤 = ((𝐴 +s 𝐵) +s 𝑛)}) = (({𝑦 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶)} ∪ {𝑧 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑧 = ((𝐴 +s 𝑚) +s 𝐶)}) ∪ {𝑤 ∣ ∃𝑛 ∈ ( L ‘𝐶)𝑤 = ((𝐴 +s 𝐵) +s 𝑛)})
57		unab 4294	. . . . 5 ⊢ ({𝑎 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶)} ∪ {𝑎 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶)}) = {𝑎 ∣ (∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶) ∨ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶))}
58		eqeq1 2731	. . . . . . . 8 ⊢ (𝑏 = 𝑎 → (𝑏 = ((𝐴 +s 𝑞) +s 𝐶) ↔ 𝑎 = ((𝐴 +s 𝑞) +s 𝐶)))
59	58	rexbidv 3173	. . . . . . 7 ⊢ (𝑏 = 𝑎 → (∃𝑞 ∈ ( R ‘𝐵)𝑏 = ((𝐴 +s 𝑞) +s 𝐶) ↔ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶)))
60	59	cbvabv 2800	. . . . . 6 ⊢ {𝑏 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑏 = ((𝐴 +s 𝑞) +s 𝐶)} = {𝑎 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶)}
61	60	uneq2i 4156	. . . . 5 ⊢ ({𝑎 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶)} ∪ {𝑏 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑏 = ((𝐴 +s 𝑞) +s 𝐶)}) = ({𝑎 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶)} ∪ {𝑎 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶)})
62		rexun 4186	. . . . . . 7 ⊢ (∃𝑖 ∈ ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})𝑎 = (𝑖 +s 𝐶) ↔ (∃𝑖 ∈ {𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)}𝑎 = (𝑖 +s 𝐶) ∨ ∃𝑖 ∈ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)}𝑎 = (𝑖 +s 𝐶)))
63		eqeq1 2731	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑖 → (𝑓 = (𝑝 +s 𝐵) ↔ 𝑖 = (𝑝 +s 𝐵)))
64	63	rexbidv 3173	. . . . . . . . . 10 ⊢ (𝑓 = 𝑖 → (∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵) ↔ ∃𝑝 ∈ ( R ‘𝐴)𝑖 = (𝑝 +s 𝐵)))
65	64	rexab 3687	. . . . . . . . 9 ⊢ (∃𝑖 ∈ {𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)}𝑎 = (𝑖 +s 𝐶) ↔ ∃𝑖(∃𝑝 ∈ ( R ‘𝐴)𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)))
66		rexcom4 3280	. . . . . . . . . 10 ⊢ (∃𝑝 ∈ ( R ‘𝐴)∃𝑖(𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ ∃𝑖∃𝑝 ∈ ( R ‘𝐴)(𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)))
67		ovex 7447	. . . . . . . . . . . 12 ⊢ (𝑝 +s 𝐵) ∈ V
68		oveq1 7421	. . . . . . . . . . . . 13 ⊢ (𝑖 = (𝑝 +s 𝐵) → (𝑖 +s 𝐶) = ((𝑝 +s 𝐵) +s 𝐶))
69	68	eqeq2d 2738	. . . . . . . . . . . 12 ⊢ (𝑖 = (𝑝 +s 𝐵) → (𝑎 = (𝑖 +s 𝐶) ↔ 𝑎 = ((𝑝 +s 𝐵) +s 𝐶)))
70	67, 69	ceqsexv 3521	. . . . . . . . . . 11 ⊢ (∃𝑖(𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ 𝑎 = ((𝑝 +s 𝐵) +s 𝐶))
71	70	rexbii 3089	. . . . . . . . . 10 ⊢ (∃𝑝 ∈ ( R ‘𝐴)∃𝑖(𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶))
72		r19.41v 3183	. . . . . . . . . . 11 ⊢ (∃𝑝 ∈ ( R ‘𝐴)(𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ (∃𝑝 ∈ ( R ‘𝐴)𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)))
73	72	exbii 1843	. . . . . . . . . 10 ⊢ (∃𝑖∃𝑝 ∈ ( R ‘𝐴)(𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ ∃𝑖(∃𝑝 ∈ ( R ‘𝐴)𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)))
74	66, 71, 73	3bitr3ri 302	. . . . . . . . 9 ⊢ (∃𝑖(∃𝑝 ∈ ( R ‘𝐴)𝑖 = (𝑝 +s 𝐵) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶))
75	65, 74	bitri 275	. . . . . . . 8 ⊢ (∃𝑖 ∈ {𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)}𝑎 = (𝑖 +s 𝐶) ↔ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶))
76		eqeq1 2731	. . . . . . . . . . 11 ⊢ (𝑔 = 𝑖 → (𝑔 = (𝐴 +s 𝑞) ↔ 𝑖 = (𝐴 +s 𝑞)))
77	76	rexbidv 3173	. . . . . . . . . 10 ⊢ (𝑔 = 𝑖 → (∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞) ↔ ∃𝑞 ∈ ( R ‘𝐵)𝑖 = (𝐴 +s 𝑞)))
78	77	rexab 3687	. . . . . . . . 9 ⊢ (∃𝑖 ∈ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)}𝑎 = (𝑖 +s 𝐶) ↔ ∃𝑖(∃𝑞 ∈ ( R ‘𝐵)𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)))
79		rexcom4 3280	. . . . . . . . . 10 ⊢ (∃𝑞 ∈ ( R ‘𝐵)∃𝑖(𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ ∃𝑖∃𝑞 ∈ ( R ‘𝐵)(𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)))
80		ovex 7447	. . . . . . . . . . . 12 ⊢ (𝐴 +s 𝑞) ∈ V
81		oveq1 7421	. . . . . . . . . . . . 13 ⊢ (𝑖 = (𝐴 +s 𝑞) → (𝑖 +s 𝐶) = ((𝐴 +s 𝑞) +s 𝐶))
82	81	eqeq2d 2738	. . . . . . . . . . . 12 ⊢ (𝑖 = (𝐴 +s 𝑞) → (𝑎 = (𝑖 +s 𝐶) ↔ 𝑎 = ((𝐴 +s 𝑞) +s 𝐶)))
83	80, 82	ceqsexv 3521	. . . . . . . . . . 11 ⊢ (∃𝑖(𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ 𝑎 = ((𝐴 +s 𝑞) +s 𝐶))
84	83	rexbii 3089	. . . . . . . . . 10 ⊢ (∃𝑞 ∈ ( R ‘𝐵)∃𝑖(𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶))
85		r19.41v 3183	. . . . . . . . . . 11 ⊢ (∃𝑞 ∈ ( R ‘𝐵)(𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ (∃𝑞 ∈ ( R ‘𝐵)𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)))
86	85	exbii 1843	. . . . . . . . . 10 ⊢ (∃𝑖∃𝑞 ∈ ( R ‘𝐵)(𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ ∃𝑖(∃𝑞 ∈ ( R ‘𝐵)𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)))
87	79, 84, 86	3bitr3ri 302	. . . . . . . . 9 ⊢ (∃𝑖(∃𝑞 ∈ ( R ‘𝐵)𝑖 = (𝐴 +s 𝑞) ∧ 𝑎 = (𝑖 +s 𝐶)) ↔ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶))
88	78, 87	bitri 275	. . . . . . . 8 ⊢ (∃𝑖 ∈ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)}𝑎 = (𝑖 +s 𝐶) ↔ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶))
89	75, 88	orbi12i 913	. . . . . . 7 ⊢ ((∃𝑖 ∈ {𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)}𝑎 = (𝑖 +s 𝐶) ∨ ∃𝑖 ∈ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)}𝑎 = (𝑖 +s 𝐶)) ↔ (∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶) ∨ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶)))
90	62, 89	bitri 275	. . . . . 6 ⊢ (∃𝑖 ∈ ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})𝑎 = (𝑖 +s 𝐶) ↔ (∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶) ∨ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶)))
91	90	abbii 2797	. . . . 5 ⊢ {𝑎 ∣ ∃𝑖 ∈ ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})𝑎 = (𝑖 +s 𝐶)} = {𝑎 ∣ (∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶) ∨ ∃𝑞 ∈ ( R ‘𝐵)𝑎 = ((𝐴 +s 𝑞) +s 𝐶))}
92	57, 61, 91	3eqtr4ri 2766	. . . 4 ⊢ {𝑎 ∣ ∃𝑖 ∈ ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})𝑎 = (𝑖 +s 𝐶)} = ({𝑎 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶)} ∪ {𝑏 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑏 = ((𝐴 +s 𝑞) +s 𝐶)})
93	92	uneq1i 4155	. . 3 ⊢ ({𝑎 ∣ ∃𝑖 ∈ ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})𝑎 = (𝑖 +s 𝐶)} ∪ {𝑐 ∣ ∃𝑟 ∈ ( R ‘𝐶)𝑐 = ((𝐴 +s 𝐵) +s 𝑟)}) = (({𝑎 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶)} ∪ {𝑏 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑏 = ((𝐴 +s 𝑞) +s 𝐶)}) ∪ {𝑐 ∣ ∃𝑟 ∈ ( R ‘𝐶)𝑐 = ((𝐴 +s 𝐵) +s 𝑟)})
94	56, 93	oveq12i 7426	. 2 ⊢ (({𝑦 ∣ ∃ℎ ∈ ({𝑑 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑑 = (𝑙 +s 𝐵)} ∪ {𝑒 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑒 = (𝐴 +s 𝑚)})𝑦 = (ℎ +s 𝐶)} ∪ {𝑤 ∣ ∃𝑛 ∈ ( L ‘𝐶)𝑤 = ((𝐴 +s 𝐵) +s 𝑛)}) |s ({𝑎 ∣ ∃𝑖 ∈ ({𝑓 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑓 = (𝑝 +s 𝐵)} ∪ {𝑔 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑔 = (𝐴 +s 𝑞)})𝑎 = (𝑖 +s 𝐶)} ∪ {𝑐 ∣ ∃𝑟 ∈ ( R ‘𝐶)𝑐 = ((𝐴 +s 𝐵) +s 𝑟)})) = ((({𝑦 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶)} ∪ {𝑧 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑧 = ((𝐴 +s 𝑚) +s 𝐶)}) ∪ {𝑤 ∣ ∃𝑛 ∈ ( L ‘𝐶)𝑤 = ((𝐴 +s 𝐵) +s 𝑛)}) |s (({𝑎 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶)} ∪ {𝑏 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑏 = ((𝐴 +s 𝑞) +s 𝐶)}) ∪ {𝑐 ∣ ∃𝑟 ∈ ( R ‘𝐶)𝑐 = ((𝐴 +s 𝐵) +s 𝑟)}))
95	19, 94	eqtrdi 2783	1 ⊢ (𝜑 → ((𝐴 +s 𝐵) +s 𝐶) = ((({𝑦 ∣ ∃𝑙 ∈ ( L ‘𝐴)𝑦 = ((𝑙 +s 𝐵) +s 𝐶)} ∪ {𝑧 ∣ ∃𝑚 ∈ ( L ‘𝐵)𝑧 = ((𝐴 +s 𝑚) +s 𝐶)}) ∪ {𝑤 ∣ ∃𝑛 ∈ ( L ‘𝐶)𝑤 = ((𝐴 +s 𝐵) +s 𝑛)}) |s (({𝑎 ∣ ∃𝑝 ∈ ( R ‘𝐴)𝑎 = ((𝑝 +s 𝐵) +s 𝐶)} ∪ {𝑏 ∣ ∃𝑞 ∈ ( R ‘𝐵)𝑏 = ((𝐴 +s 𝑞) +s 𝐶)}) ∪ {𝑐 ∣ ∃𝑟 ∈ ( R ‘𝐶)𝑐 = ((𝐴 +s 𝐵) +s 𝑟)})))

Syntax hints:   → wi 4   ∧ wa 395   ∨ wo 846   = wceq 1534  ∃wex 1774   ∈ wcel 2099  {cab 2704   ≠ wne 2935  ∃wrex 3065   ∪ cun 3942  ∅c0 4318  {csn 4624   class class class wbr 5142  ‘cfv 6542  (class class class)co 7414   No csur 27547   <<s csslt 27687   |s cscut 27689   L cleft 27746   R cright 27747   +_s cadds 27850

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2164  ax-ext 2698  ax-rep 5279  ax-sep 5293  ax-nul 5300  ax-pow 5359  ax-pr 5423  ax-un 7732

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2705  df-cleq 2719  df-clel 2805  df-nfc 2880  df-ne 2936  df-ral 3057  df-rex 3066  df-rmo 3371  df-reu 3372  df-rab 3428  df-v 3471  df-sbc 3775  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3963  df-nul 4319  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-tp 4629  df-op 4631  df-ot 4633  df-uni 4904  df-int 4945  df-iun 4993  df-br 5143  df-opab 5205  df-mpt 5226  df-tr 5260  df-id 5570  df-eprel 5576  df-po 5584  df-so 5585  df-fr 5627  df-se 5628  df-we 5629  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-pred 6299  df-ord 6366  df-on 6367  df-suc 6369  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-riota 7370  df-ov 7417  df-oprab 7418  df-mpo 7419  df-1st 7985  df-2nd 7986  df-frecs 8278  df-wrecs 8309  df-recs 8383  df-1o 8478  df-2o 8479  df-nadd 8678  df-no 27550  df-slt 27551  df-bday 27552  df-sle 27652  df-sslt 27688  df-scut 27690  df-0s 27731  df-made 27748  df-old 27749  df-left 27751  df-right 27752  df-norec2 27840  df-adds 27851

This theorem is referenced by:  addsass  27896