Metamath Proof Explorer


Theorem tfsconcat0b

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

Ref Expression
Hypothesis tfsconcat.op ⊢ + ˙ = a ∈ V , b ∈ V ⟼ a ∪ x y | x ∈ dom ⁡ a + 𝑜 dom ⁡ b ∖ dom ⁡ a ∧ ∃ z ∈ dom ⁡ b x = dom ⁡ a + 𝑜 z ∧ y = b ⁡ z
Assertion tfsconcat0b ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → A = ∅ ↔ A + ˙ B = B

Proof

Step Hyp Ref Expression
1 tfsconcat.op ⊢ + ˙ = a ∈ V , b ∈ V ⟼ a ∪ x y | x ∈ dom ⁡ a + 𝑜 dom ⁡ b ∖ dom ⁡ a ∧ ∃ z ∈ dom ⁡ b x = dom ⁡ a + 𝑜 z ∧ y = b ⁡ z
2 nnon ⊢ D ∈ ω → D ∈ On
3 2 anim2i ⊢ C ∈ On ∧ D ∈ ω → C ∈ On ∧ D ∈ On
4 3 anim2i ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ On
5 1 tfsconcat0i ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ On → A = ∅ → A + ˙ B = B
6 4 5 syl ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → A = ∅ → A + ˙ B = B
7 dmeq ⊢ A + ˙ B = B → dom ⁡ A + ˙ B = dom ⁡ B
8 nna0r ⊢ D ∈ ω → ∅ + 𝑜 D = D
9 8 adantl ⊢ C ∈ On ∧ D ∈ ω → ∅ + 𝑜 D = D
10 9 eqeq2d ⊢ C ∈ On ∧ D ∈ ω → C + 𝑜 D = ∅ + 𝑜 D ↔ C + 𝑜 D = D
11 eqcom ⊢ C + 𝑜 D = ∅ + 𝑜 D ↔ ∅ + 𝑜 D = C + 𝑜 D
12 10 11 bitr3di ⊢ C ∈ On ∧ D ∈ ω → C + 𝑜 D = D ↔ ∅ + 𝑜 D = C + 𝑜 D
13 on0eln0 ⊢ C ∈ On → ∅ ∈ C ↔ C ≠ ∅
14 13 adantr ⊢ C ∈ On ∧ D ∈ ω → ∅ ∈ C ↔ C ≠ ∅
15 df-ne ⊢ C ≠ ∅ ↔ ¬ C = ∅
16 14 15 bitr2di ⊢ C ∈ On ∧ D ∈ ω → ¬ C = ∅ ↔ ∅ ∈ C
17 peano1 ⊢ ∅ ∈ ω
18 nnaordr ⊢ ∅ ∈ ω ∧ C ∈ ω ∧ D ∈ ω → ∅ ∈ C ↔ ∅ + 𝑜 D ∈ C + 𝑜 D
19 17 18 mp3an1 ⊢ C ∈ ω ∧ D ∈ ω → ∅ ∈ C ↔ ∅ + 𝑜 D ∈ C + 𝑜 D
20 19 biimpd ⊢ C ∈ ω ∧ D ∈ ω → ∅ ∈ C → ∅ + 𝑜 D ∈ C + 𝑜 D
21 20 ex ⊢ C ∈ ω → D ∈ ω → ∅ ∈ C → ∅ + 𝑜 D ∈ C + 𝑜 D
22 21 a1i ⊢ C ∈ On → C ∈ ω → D ∈ ω → ∅ ∈ C → ∅ + 𝑜 D ∈ C + 𝑜 D
23 simpr ⊢ C ∈ On ∧ D ∈ ω ∧ ω ⊆ C → ω ⊆ C
24 oaword1 ⊢ C ∈ On ∧ D ∈ On → C ⊆ C + 𝑜 D
25 3 24 syl ⊢ C ∈ On ∧ D ∈ ω → C ⊆ C + 𝑜 D
26 25 adantr ⊢ C ∈ On ∧ D ∈ ω ∧ ω ⊆ C → C ⊆ C + 𝑜 D
27 23 26 sstrd ⊢ C ∈ On ∧ D ∈ ω ∧ ω ⊆ C → ω ⊆ C + 𝑜 D
28 id ⊢ D ∈ ω → D ∈ ω
29 8 28 eqeltrd ⊢ D ∈ ω → ∅ + 𝑜 D ∈ ω
30 29 ad2antlr ⊢ C ∈ On ∧ D ∈ ω ∧ ω ⊆ C → ∅ + 𝑜 D ∈ ω
31 27 30 sseldd ⊢ C ∈ On ∧ D ∈ ω ∧ ω ⊆ C → ∅ + 𝑜 D ∈ C + 𝑜 D
32 31 a1d ⊢ C ∈ On ∧ D ∈ ω ∧ ω ⊆ C → ∅ ∈ C → ∅ + 𝑜 D ∈ C + 𝑜 D
33 32 exp31 ⊢ C ∈ On → D ∈ ω → ω ⊆ C → ∅ ∈ C → ∅ + 𝑜 D ∈ C + 𝑜 D
34 33 com23 ⊢ C ∈ On → ω ⊆ C → D ∈ ω → ∅ ∈ C → ∅ + 𝑜 D ∈ C + 𝑜 D
35 eloni ⊢ C ∈ On → Ord ⁡ C
36 ordom ⊢ Ord ⁡ ω
37 ordtri2or ⊢ Ord ⁡ C ∧ Ord ⁡ ω → C ∈ ω ∨ ω ⊆ C
38 35 36 37 sylancl ⊢ C ∈ On → C ∈ ω ∨ ω ⊆ C
39 22 34 38 mpjaod ⊢ C ∈ On → D ∈ ω → ∅ ∈ C → ∅ + 𝑜 D ∈ C + 𝑜 D
40 39 imp ⊢ C ∈ On ∧ D ∈ ω → ∅ ∈ C → ∅ + 𝑜 D ∈ C + 𝑜 D
41 elneq ⊢ ∅ + 𝑜 D ∈ C + 𝑜 D → ∅ + 𝑜 D ≠ C + 𝑜 D
42 41 neneqd ⊢ ∅ + 𝑜 D ∈ C + 𝑜 D → ¬ ∅ + 𝑜 D = C + 𝑜 D
43 40 42 syl6 ⊢ C ∈ On ∧ D ∈ ω → ∅ ∈ C → ¬ ∅ + 𝑜 D = C + 𝑜 D
44 16 43 sylbid ⊢ C ∈ On ∧ D ∈ ω → ¬ C = ∅ → ¬ ∅ + 𝑜 D = C + 𝑜 D
45 44 con4d ⊢ C ∈ On ∧ D ∈ ω → ∅ + 𝑜 D = C + 𝑜 D → C = ∅
46 12 45 sylbid ⊢ C ∈ On ∧ D ∈ ω → C + 𝑜 D = D → C = ∅
47 46 adantl ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → C + 𝑜 D = D → C = ∅
48 1 tfsconcatfn ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ On → A + ˙ B Fn C + 𝑜 D
49 4 48 syl ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → A + ˙ B Fn C + 𝑜 D
50 49 fndmd ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → dom ⁡ A + ˙ B = C + 𝑜 D
51 fndm ⊢ B Fn D → dom ⁡ B = D
52 51 ad2antlr ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → dom ⁡ B = D
53 50 52 eqeq12d ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → dom ⁡ A + ˙ B = dom ⁡ B ↔ C + 𝑜 D = D
54 fnrel ⊢ A Fn C → Rel ⁡ A
55 reldm0 ⊢ Rel ⁡ A → A = ∅ ↔ dom ⁡ A = ∅
56 54 55 syl ⊢ A Fn C → A = ∅ ↔ dom ⁡ A = ∅
57 fndm ⊢ A Fn C → dom ⁡ A = C
58 57 eqeq1d ⊢ A Fn C → dom ⁡ A = ∅ ↔ C = ∅
59 56 58 bitrd ⊢ A Fn C → A = ∅ ↔ C = ∅
60 59 adantr ⊢ A Fn C ∧ B Fn D → A = ∅ ↔ C = ∅
61 60 adantr ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → A = ∅ ↔ C = ∅
62 47 53 61 3imtr4d ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → dom ⁡ A + ˙ B = dom ⁡ B → A = ∅
63 7 62 syl5 ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → A + ˙ B = B → A = ∅
64 6 63 impbid ⊢ A Fn C ∧ B Fn D ∧ C ∈ On ∧ D ∈ ω → A = ∅ ↔ A + ˙ B = B