Step | Hyp | Ref
| Expression |
1 | | simpr 485 |
. . . . . . . 8
โข ((๐ โง ๐ โ (0...๐)) โ ๐ โ (0...๐)) |
2 | | etransclem4.a |
. . . . . . . . . 10
โข (๐ โ ๐ด โ โ) |
3 | | cnex 11187 |
. . . . . . . . . . 11
โข โ
โ V |
4 | 3 | ssex 5320 |
. . . . . . . . . 10
โข (๐ด โ โ โ ๐ด โ V) |
5 | | mptexg 7219 |
. . . . . . . . . 10
โข (๐ด โ V โ (๐ฅ โ ๐ด โฆ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐))) โ V) |
6 | 2, 4, 5 | 3syl 18 |
. . . . . . . . 9
โข (๐ โ (๐ฅ โ ๐ด โฆ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐))) โ V) |
7 | 6 | adantr 481 |
. . . . . . . 8
โข ((๐ โง ๐ โ (0...๐)) โ (๐ฅ โ ๐ด โฆ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐))) โ V) |
8 | | etransclem4.h |
. . . . . . . . 9
โข ๐ป = (๐ โ (0...๐) โฆ (๐ฅ โ ๐ด โฆ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)))) |
9 | 8 | fvmpt2 7006 |
. . . . . . . 8
โข ((๐ โ (0...๐) โง (๐ฅ โ ๐ด โฆ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐))) โ V) โ (๐ปโ๐) = (๐ฅ โ ๐ด โฆ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)))) |
10 | 1, 7, 9 | syl2anc 584 |
. . . . . . 7
โข ((๐ โง ๐ โ (0...๐)) โ (๐ปโ๐) = (๐ฅ โ ๐ด โฆ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)))) |
11 | | ovexd 7440 |
. . . . . . 7
โข (((๐ โง ๐ โ (0...๐)) โง ๐ฅ โ ๐ด) โ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)) โ V) |
12 | 10, 11 | fvmpt2d 7008 |
. . . . . 6
โข (((๐ โง ๐ โ (0...๐)) โง ๐ฅ โ ๐ด) โ ((๐ปโ๐)โ๐ฅ) = ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐))) |
13 | 12 | an32s 650 |
. . . . 5
โข (((๐ โง ๐ฅ โ ๐ด) โง ๐ โ (0...๐)) โ ((๐ปโ๐)โ๐ฅ) = ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐))) |
14 | 13 | prodeq2dv 15863 |
. . . 4
โข ((๐ โง ๐ฅ โ ๐ด) โ โ๐ โ (0...๐)((๐ปโ๐)โ๐ฅ) = โ๐ โ (0...๐)((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐))) |
15 | | etransclem4.M |
. . . . . . 7
โข (๐ โ ๐ โ
โ0) |
16 | | nn0uz 12860 |
. . . . . . 7
โข
โ0 = (โคโฅโ0) |
17 | 15, 16 | eleqtrdi 2843 |
. . . . . 6
โข (๐ โ ๐ โ
(โคโฅโ0)) |
18 | 17 | adantr 481 |
. . . . 5
โข ((๐ โง ๐ฅ โ ๐ด) โ ๐ โ
(โคโฅโ0)) |
19 | 2 | sselda 3981 |
. . . . . . . 8
โข ((๐ โง ๐ฅ โ ๐ด) โ ๐ฅ โ โ) |
20 | 19 | adantr 481 |
. . . . . . 7
โข (((๐ โง ๐ฅ โ ๐ด) โง ๐ โ (0...๐)) โ ๐ฅ โ โ) |
21 | | elfzelz 13497 |
. . . . . . . . 9
โข (๐ โ (0...๐) โ ๐ โ โค) |
22 | 21 | zcnd 12663 |
. . . . . . . 8
โข (๐ โ (0...๐) โ ๐ โ โ) |
23 | 22 | adantl 482 |
. . . . . . 7
โข (((๐ โง ๐ฅ โ ๐ด) โง ๐ โ (0...๐)) โ ๐ โ โ) |
24 | 20, 23 | subcld 11567 |
. . . . . 6
โข (((๐ โง ๐ฅ โ ๐ด) โง ๐ โ (0...๐)) โ (๐ฅ โ ๐) โ โ) |
25 | | etransclem4.p |
. . . . . . . . 9
โข (๐ โ ๐ โ โ) |
26 | | nnm1nn0 12509 |
. . . . . . . . 9
โข (๐ โ โ โ (๐ โ 1) โ
โ0) |
27 | 25, 26 | syl 17 |
. . . . . . . 8
โข (๐ โ (๐ โ 1) โ
โ0) |
28 | 25 | nnnn0d 12528 |
. . . . . . . 8
โข (๐ โ ๐ โ
โ0) |
29 | 27, 28 | ifcld 4573 |
. . . . . . 7
โข (๐ โ if(๐ = 0, (๐ โ 1), ๐) โ
โ0) |
30 | 29 | ad2antrr 724 |
. . . . . 6
โข (((๐ โง ๐ฅ โ ๐ด) โง ๐ โ (0...๐)) โ if(๐ = 0, (๐ โ 1), ๐) โ
โ0) |
31 | 24, 30 | expcld 14107 |
. . . . 5
โข (((๐ โง ๐ฅ โ ๐ด) โง ๐ โ (0...๐)) โ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)) โ โ) |
32 | | oveq2 7413 |
. . . . . 6
โข (๐ = 0 โ (๐ฅ โ ๐) = (๐ฅ โ 0)) |
33 | | iftrue 4533 |
. . . . . 6
โข (๐ = 0 โ if(๐ = 0, (๐ โ 1), ๐) = (๐ โ 1)) |
34 | 32, 33 | oveq12d 7423 |
. . . . 5
โข (๐ = 0 โ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)) = ((๐ฅ โ 0)โ(๐ โ 1))) |
35 | 18, 31, 34 | fprod1p 15908 |
. . . 4
โข ((๐ โง ๐ฅ โ ๐ด) โ โ๐ โ (0...๐)((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)) = (((๐ฅ โ 0)โ(๐ โ 1)) ยท โ๐ โ ((0 + 1)...๐)((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)))) |
36 | 19 | subid1d 11556 |
. . . . . 6
โข ((๐ โง ๐ฅ โ ๐ด) โ (๐ฅ โ 0) = ๐ฅ) |
37 | 36 | oveq1d 7420 |
. . . . 5
โข ((๐ โง ๐ฅ โ ๐ด) โ ((๐ฅ โ 0)โ(๐ โ 1)) = (๐ฅโ(๐ โ 1))) |
38 | | 0p1e1 12330 |
. . . . . . . . 9
โข (0 + 1) =
1 |
39 | 38 | oveq1i 7415 |
. . . . . . . 8
โข ((0 +
1)...๐) = (1...๐) |
40 | 39 | a1i 11 |
. . . . . . 7
โข (๐ โ ((0 + 1)...๐) = (1...๐)) |
41 | | 0red 11213 |
. . . . . . . . . . . . 13
โข (๐ โ (1...๐) โ 0 โ โ) |
42 | | 1red 11211 |
. . . . . . . . . . . . 13
โข (๐ โ (1...๐) โ 1 โ โ) |
43 | | elfzelz 13497 |
. . . . . . . . . . . . . 14
โข (๐ โ (1...๐) โ ๐ โ โค) |
44 | 43 | zred 12662 |
. . . . . . . . . . . . 13
โข (๐ โ (1...๐) โ ๐ โ โ) |
45 | | 0lt1 11732 |
. . . . . . . . . . . . . 14
โข 0 <
1 |
46 | 45 | a1i 11 |
. . . . . . . . . . . . 13
โข (๐ โ (1...๐) โ 0 < 1) |
47 | | elfzle1 13500 |
. . . . . . . . . . . . 13
โข (๐ โ (1...๐) โ 1 โค ๐) |
48 | 41, 42, 44, 46, 47 | ltletrd 11370 |
. . . . . . . . . . . 12
โข (๐ โ (1...๐) โ 0 < ๐) |
49 | 48 | gt0ne0d 11774 |
. . . . . . . . . . 11
โข (๐ โ (1...๐) โ ๐ โ 0) |
50 | 49 | neneqd 2945 |
. . . . . . . . . 10
โข (๐ โ (1...๐) โ ยฌ ๐ = 0) |
51 | 50 | iffalsed 4538 |
. . . . . . . . 9
โข (๐ โ (1...๐) โ if(๐ = 0, (๐ โ 1), ๐) = ๐) |
52 | 51 | oveq2d 7421 |
. . . . . . . 8
โข (๐ โ (1...๐) โ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)) = ((๐ฅ โ ๐)โ๐)) |
53 | 52 | adantl 482 |
. . . . . . 7
โข ((๐ โง ๐ โ (1...๐)) โ ((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)) = ((๐ฅ โ ๐)โ๐)) |
54 | 40, 53 | prodeq12rdv 15867 |
. . . . . 6
โข (๐ โ โ๐ โ ((0 + 1)...๐)((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)) = โ๐ โ (1...๐)((๐ฅ โ ๐)โ๐)) |
55 | 54 | adantr 481 |
. . . . 5
โข ((๐ โง ๐ฅ โ ๐ด) โ โ๐ โ ((0 + 1)...๐)((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐)) = โ๐ โ (1...๐)((๐ฅ โ ๐)โ๐)) |
56 | 37, 55 | oveq12d 7423 |
. . . 4
โข ((๐ โง ๐ฅ โ ๐ด) โ (((๐ฅ โ 0)โ(๐ โ 1)) ยท โ๐ โ ((0 + 1)...๐)((๐ฅ โ ๐)โif(๐ = 0, (๐ โ 1), ๐))) = ((๐ฅโ(๐ โ 1)) ยท โ๐ โ (1...๐)((๐ฅ โ ๐)โ๐))) |
57 | 14, 35, 56 | 3eqtrrd 2777 |
. . 3
โข ((๐ โง ๐ฅ โ ๐ด) โ ((๐ฅโ(๐ โ 1)) ยท โ๐ โ (1...๐)((๐ฅ โ ๐)โ๐)) = โ๐ โ (0...๐)((๐ปโ๐)โ๐ฅ)) |
58 | 57 | mpteq2dva 5247 |
. 2
โข (๐ โ (๐ฅ โ ๐ด โฆ ((๐ฅโ(๐ โ 1)) ยท โ๐ โ (1...๐)((๐ฅ โ ๐)โ๐))) = (๐ฅ โ ๐ด โฆ โ๐ โ (0...๐)((๐ปโ๐)โ๐ฅ))) |
59 | | etransclem4.f |
. 2
โข ๐น = (๐ฅ โ ๐ด โฆ ((๐ฅโ(๐ โ 1)) ยท โ๐ โ (1...๐)((๐ฅ โ ๐)โ๐))) |
60 | | etransclem4.e |
. 2
โข ๐ธ = (๐ฅ โ ๐ด โฆ โ๐ โ (0...๐)((๐ปโ๐)โ๐ฅ)) |
61 | 58, 59, 60 | 3eqtr4g 2797 |
1
โข (๐ โ ๐น = ๐ธ) |