Theorem tfsconcat0b 43319

Description: The concatentation with the empty series leaves the finite series unchanged. (Contributed by RP, 1-Mar-2025.)

Hypothesis

Ref	Expression
tfsconcat.op	⊢ + = (𝑎 ∈ V, 𝑏 ∈ V ↦ (𝑎 ∪ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ ((dom 𝑎 +o dom 𝑏) ∖ dom 𝑎) ∧ ∃𝑧 ∈ dom 𝑏(𝑥 = (dom 𝑎 +o 𝑧) ∧ 𝑦 = (𝑏‘𝑧)))}))

Assertion

Ref	Expression
tfsconcat0b	⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → (𝐴 = ∅ ↔ (𝐴 + 𝐵) = 𝐵))

Distinct variable groups:   𝐴,𝑎,𝑏,𝑥,𝑦,𝑧   𝐵,𝑎,𝑏,𝑥,𝑦,𝑧   𝐶,𝑎,𝑏,𝑥,𝑦,𝑧   𝐷,𝑎,𝑏,𝑥,𝑦,𝑧

Allowed substitution hints:   + (𝑥,𝑦,𝑧,𝑎,𝑏)

Proof of Theorem tfsconcat0b

Step	Hyp	Ref	Expression
1		nnon 7812	. . . . 5 ⊢ (𝐷 ∈ ω → 𝐷 ∈ On)
2	1	anim2i 617	. . . 4 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → (𝐶 ∈ On ∧ 𝐷 ∈ On))
3	2	anim2i 617	. . 3 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → ((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ On)))
4		tfsconcat.op	. . . 4 ⊢ + = (𝑎 ∈ V, 𝑏 ∈ V ↦ (𝑎 ∪ {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ ((dom 𝑎 +o dom 𝑏) ∖ dom 𝑎) ∧ ∃𝑧 ∈ dom 𝑏(𝑥 = (dom 𝑎 +o 𝑧) ∧ 𝑦 = (𝑏‘𝑧)))}))
5	4	tfsconcat0i 43318	. . 3 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ On)) → (𝐴 = ∅ → (𝐴 + 𝐵) = 𝐵))
6	3, 5	syl 17	. 2 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → (𝐴 = ∅ → (𝐴 + 𝐵) = 𝐵))
7		dmeq 5850	. . 3 ⊢ ((𝐴 + 𝐵) = 𝐵 → dom (𝐴 + 𝐵) = dom 𝐵)
8		nna0r 8534	. . . . . . . . 9 ⊢ (𝐷 ∈ ω → (∅ +o 𝐷) = 𝐷)
9	8	adantl 481	. . . . . . . 8 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → (∅ +o 𝐷) = 𝐷)
10	9	eqeq2d 2740	. . . . . . 7 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → ((𝐶 +o 𝐷) = (∅ +o 𝐷) ↔ (𝐶 +o 𝐷) = 𝐷))
11		eqcom 2736	. . . . . . 7 ⊢ ((𝐶 +o 𝐷) = (∅ +o 𝐷) ↔ (∅ +o 𝐷) = (𝐶 +o 𝐷))
12	10, 11	bitr3di 286	. . . . . 6 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → ((𝐶 +o 𝐷) = 𝐷 ↔ (∅ +o 𝐷) = (𝐶 +o 𝐷)))
13		on0eln0 6368	. . . . . . . . . 10 ⊢ (𝐶 ∈ On → (∅ ∈ 𝐶 ↔ 𝐶 ≠ ∅))
14	13	adantr 480	. . . . . . . . 9 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → (∅ ∈ 𝐶 ↔ 𝐶 ≠ ∅))
15		df-ne 2926	. . . . . . . . 9 ⊢ (𝐶 ≠ ∅ ↔ ¬ 𝐶 = ∅)
16	14, 15	bitr2di 288	. . . . . . . 8 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → (¬ 𝐶 = ∅ ↔ ∅ ∈ 𝐶))
17		peano1 7829	. . . . . . . . . . . . . . 15 ⊢ ∅ ∈ ω
18		nnaordr 8545	. . . . . . . . . . . . . . 15 ⊢ ((∅ ∈ ω ∧ 𝐶 ∈ ω ∧ 𝐷 ∈ ω) → (∅ ∈ 𝐶 ↔ (∅ +o 𝐷) ∈ (𝐶 +o 𝐷)))
19	17, 18	mp3an1 1450	. . . . . . . . . . . . . 14 ⊢ ((𝐶 ∈ ω ∧ 𝐷 ∈ ω) → (∅ ∈ 𝐶 ↔ (∅ +o 𝐷) ∈ (𝐶 +o 𝐷)))
20	19	biimpd 229	. . . . . . . . . . . . 13 ⊢ ((𝐶 ∈ ω ∧ 𝐷 ∈ ω) → (∅ ∈ 𝐶 → (∅ +o 𝐷) ∈ (𝐶 +o 𝐷)))
21	20	ex 412	. . . . . . . . . . . 12 ⊢ (𝐶 ∈ ω → (𝐷 ∈ ω → (∅ ∈ 𝐶 → (∅ +o 𝐷) ∈ (𝐶 +o 𝐷))))
22	21	a1i 11	. . . . . . . . . . 11 ⊢ (𝐶 ∈ On → (𝐶 ∈ ω → (𝐷 ∈ ω → (∅ ∈ 𝐶 → (∅ +o 𝐷) ∈ (𝐶 +o 𝐷)))))
23		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝐶 ∈ On ∧ 𝐷 ∈ ω) ∧ ω ⊆ 𝐶) → ω ⊆ 𝐶)
24		oaword1 8477	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ On) → 𝐶 ⊆ (𝐶 +o 𝐷))
25	2, 24	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → 𝐶 ⊆ (𝐶 +o 𝐷))
26	25	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝐶 ∈ On ∧ 𝐷 ∈ ω) ∧ ω ⊆ 𝐶) → 𝐶 ⊆ (𝐶 +o 𝐷))
27	23, 26	sstrd 3948	. . . . . . . . . . . . . . 15 ⊢ (((𝐶 ∈ On ∧ 𝐷 ∈ ω) ∧ ω ⊆ 𝐶) → ω ⊆ (𝐶 +o 𝐷))
28		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝐷 ∈ ω → 𝐷 ∈ ω)
29	8, 28	eqeltrd 2828	. . . . . . . . . . . . . . . 16 ⊢ (𝐷 ∈ ω → (∅ +o 𝐷) ∈ ω)
30	29	ad2antlr 727	. . . . . . . . . . . . . . 15 ⊢ (((𝐶 ∈ On ∧ 𝐷 ∈ ω) ∧ ω ⊆ 𝐶) → (∅ +o 𝐷) ∈ ω)
31	27, 30	sseldd 3938	. . . . . . . . . . . . . 14 ⊢ (((𝐶 ∈ On ∧ 𝐷 ∈ ω) ∧ ω ⊆ 𝐶) → (∅ +o 𝐷) ∈ (𝐶 +o 𝐷))
32	31	a1d 25	. . . . . . . . . . . . 13 ⊢ (((𝐶 ∈ On ∧ 𝐷 ∈ ω) ∧ ω ⊆ 𝐶) → (∅ ∈ 𝐶 → (∅ +o 𝐷) ∈ (𝐶 +o 𝐷)))
33	32	exp31 419	. . . . . . . . . . . 12 ⊢ (𝐶 ∈ On → (𝐷 ∈ ω → (ω ⊆ 𝐶 → (∅ ∈ 𝐶 → (∅ +o 𝐷) ∈ (𝐶 +o 𝐷)))))
34	33	com23 86	. . . . . . . . . . 11 ⊢ (𝐶 ∈ On → (ω ⊆ 𝐶 → (𝐷 ∈ ω → (∅ ∈ 𝐶 → (∅ +o 𝐷) ∈ (𝐶 +o 𝐷)))))
35		eloni 6321	. . . . . . . . . . . 12 ⊢ (𝐶 ∈ On → Ord 𝐶)
36		ordom 7816	. . . . . . . . . . . 12 ⊢ Ord ω
37		ordtri2or 6411	. . . . . . . . . . . 12 ⊢ ((Ord 𝐶 ∧ Ord ω) → (𝐶 ∈ ω ∨ ω ⊆ 𝐶))
38	35, 36, 37	sylancl 586	. . . . . . . . . . 11 ⊢ (𝐶 ∈ On → (𝐶 ∈ ω ∨ ω ⊆ 𝐶))
39	22, 34, 38	mpjaod 860	. . . . . . . . . 10 ⊢ (𝐶 ∈ On → (𝐷 ∈ ω → (∅ ∈ 𝐶 → (∅ +o 𝐷) ∈ (𝐶 +o 𝐷))))
40	39	imp 406	. . . . . . . . 9 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → (∅ ∈ 𝐶 → (∅ +o 𝐷) ∈ (𝐶 +o 𝐷)))
41		elneq 9511	. . . . . . . . . 10 ⊢ ((∅ +o 𝐷) ∈ (𝐶 +o 𝐷) → (∅ +o 𝐷) ≠ (𝐶 +o 𝐷))
42	41	neneqd 2930	. . . . . . . . 9 ⊢ ((∅ +o 𝐷) ∈ (𝐶 +o 𝐷) → ¬ (∅ +o 𝐷) = (𝐶 +o 𝐷))
43	40, 42	syl6 35	. . . . . . . 8 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → (∅ ∈ 𝐶 → ¬ (∅ +o 𝐷) = (𝐶 +o 𝐷)))
44	16, 43	sylbid 240	. . . . . . 7 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → (¬ 𝐶 = ∅ → ¬ (∅ +o 𝐷) = (𝐶 +o 𝐷)))
45	44	con4d 115	. . . . . 6 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → ((∅ +o 𝐷) = (𝐶 +o 𝐷) → 𝐶 = ∅))
46	12, 45	sylbid 240	. . . . 5 ⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ ω) → ((𝐶 +o 𝐷) = 𝐷 → 𝐶 = ∅))
47	46	adantl 481	. . . 4 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → ((𝐶 +o 𝐷) = 𝐷 → 𝐶 = ∅))
48	4	tfsconcatfn 43311	. . . . . . 7 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ On)) → (𝐴 + 𝐵) Fn (𝐶 +o 𝐷))
49	3, 48	syl 17	. . . . . 6 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → (𝐴 + 𝐵) Fn (𝐶 +o 𝐷))
50	49	fndmd 6591	. . . . 5 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → dom (𝐴 + 𝐵) = (𝐶 +o 𝐷))
51		fndm 6589	. . . . . 6 ⊢ (𝐵 Fn 𝐷 → dom 𝐵 = 𝐷)
52	51	ad2antlr 727	. . . . 5 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → dom 𝐵 = 𝐷)
53	50, 52	eqeq12d 2745	. . . 4 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → (dom (𝐴 + 𝐵) = dom 𝐵 ↔ (𝐶 +o 𝐷) = 𝐷))
54		fnrel 6588	. . . . . . . 8 ⊢ (𝐴 Fn 𝐶 → Rel 𝐴)
55		reldm0 5874	. . . . . . . 8 ⊢ (Rel 𝐴 → (𝐴 = ∅ ↔ dom 𝐴 = ∅))
56	54, 55	syl 17	. . . . . . 7 ⊢ (𝐴 Fn 𝐶 → (𝐴 = ∅ ↔ dom 𝐴 = ∅))
57		fndm 6589	. . . . . . . 8 ⊢ (𝐴 Fn 𝐶 → dom 𝐴 = 𝐶)
58	57	eqeq1d 2731	. . . . . . 7 ⊢ (𝐴 Fn 𝐶 → (dom 𝐴 = ∅ ↔ 𝐶 = ∅))
59	56, 58	bitrd 279	. . . . . 6 ⊢ (𝐴 Fn 𝐶 → (𝐴 = ∅ ↔ 𝐶 = ∅))
60	59	adantr 480	. . . . 5 ⊢ ((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) → (𝐴 = ∅ ↔ 𝐶 = ∅))
61	60	adantr 480	. . . 4 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → (𝐴 = ∅ ↔ 𝐶 = ∅))
62	47, 53, 61	3imtr4d 294	. . 3 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → (dom (𝐴 + 𝐵) = dom 𝐵 → 𝐴 = ∅))
63	7, 62	syl5 34	. 2 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → ((𝐴 + 𝐵) = 𝐵 → 𝐴 = ∅))
64	6, 63	impbid 212	1 ⊢ (((𝐴 Fn 𝐶 ∧ 𝐵 Fn 𝐷) ∧ (𝐶 ∈ On ∧ 𝐷 ∈ ω)) → (𝐴 = ∅ ↔ (𝐴 + 𝐵) = 𝐵))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1540   ∈ wcel 2109   ≠ wne 2925  ∃wrex 3053  Vcvv 3438   ∖ cdif 3902   ∪ cun 3903   ⊆ wss 3905  ∅c0 4286  {copab 5157  dom cdm 5623  Rel wrel 5628  Ord word 6310  Oncon0 6311   Fn wfn 6481  ‘cfv 6486  (class class class)co 7353   ∈ cmpo 7355  ωcom 7806   +_o coa 8392

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7675  ax-reg 9503

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rmo 3345  df-reu 3346  df-rab 3397  df-v 3440  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4862  df-int 4900  df-iun 4946  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-ov 7356  df-oprab 7357  df-mpo 7358  df-om 7807  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-oadd 8399

This theorem is referenced by: (None)