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