Step | Hyp | Ref
| Expression |
1 | | fprodntriv.2 |
. . . . 5
โข (๐ โ ๐ โ ๐) |
2 | | fprodntriv.1 |
. . . . 5
โข ๐ =
(โคโฅโ๐) |
3 | 1, 2 | eleqtrdi 2843 |
. . . 4
โข (๐ โ ๐ โ (โคโฅโ๐)) |
4 | | peano2uz 12881 |
. . . 4
โข (๐ โ
(โคโฅโ๐) โ (๐ + 1) โ
(โคโฅโ๐)) |
5 | 3, 4 | syl 17 |
. . 3
โข (๐ โ (๐ + 1) โ
(โคโฅโ๐)) |
6 | 5, 2 | eleqtrrdi 2844 |
. 2
โข (๐ โ (๐ + 1) โ ๐) |
7 | | ax-1ne0 11175 |
. . 3
โข 1 โ
0 |
8 | | eqid 2732 |
. . . 4
โข
(โคโฅโ(๐ + 1)) =
(โคโฅโ(๐ + 1)) |
9 | | eluzelz 12828 |
. . . . . . 7
โข (๐ โ
(โคโฅโ๐) โ ๐ โ โค) |
10 | 9, 2 | eleq2s 2851 |
. . . . . 6
โข (๐ โ ๐ โ ๐ โ โค) |
11 | 1, 10 | syl 17 |
. . . . 5
โข (๐ โ ๐ โ โค) |
12 | 11 | peano2zd 12665 |
. . . 4
โข (๐ โ (๐ + 1) โ โค) |
13 | | seqex 13964 |
. . . . 5
โข seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ V |
14 | 13 | a1i 11 |
. . . 4
โข (๐ โ seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ V) |
15 | | 1cnd 11205 |
. . . 4
โข (๐ โ 1 โ
โ) |
16 | | simpr 485 |
. . . . . 6
โข ((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โ ๐ โ
(โคโฅโ(๐ + 1))) |
17 | | fprodntriv.3 |
. . . . . . . . . 10
โข (๐ โ ๐ด โ (๐...๐)) |
18 | 17 | ad2antrr 724 |
. . . . . . . . 9
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ๐ด โ (๐...๐)) |
19 | 11 | ad2antrr 724 |
. . . . . . . . . . . . . . 15
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ๐ โ โค) |
20 | 19 | zred 12662 |
. . . . . . . . . . . . . 14
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ๐ โ โ) |
21 | 19 | peano2zd 12665 |
. . . . . . . . . . . . . . 15
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ (๐ + 1) โ โค) |
22 | 21 | zred 12662 |
. . . . . . . . . . . . . 14
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ (๐ + 1) โ โ) |
23 | | elfzelz 13497 |
. . . . . . . . . . . . . . . 16
โข (๐ โ ((๐ + 1)...๐) โ ๐ โ โค) |
24 | 23 | adantl 482 |
. . . . . . . . . . . . . . 15
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ๐ โ โค) |
25 | 24 | zred 12662 |
. . . . . . . . . . . . . 14
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ๐ โ โ) |
26 | 20 | ltp1d 12140 |
. . . . . . . . . . . . . 14
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ๐ < (๐ + 1)) |
27 | | elfzle1 13500 |
. . . . . . . . . . . . . . 15
โข (๐ โ ((๐ + 1)...๐) โ (๐ + 1) โค ๐) |
28 | 27 | adantl 482 |
. . . . . . . . . . . . . 14
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ (๐ + 1) โค ๐) |
29 | 20, 22, 25, 26, 28 | ltletrd 11370 |
. . . . . . . . . . . . 13
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ๐ < ๐) |
30 | 20, 25 | ltnled 11357 |
. . . . . . . . . . . . 13
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ (๐ < ๐ โ ยฌ ๐ โค ๐)) |
31 | 29, 30 | mpbid 231 |
. . . . . . . . . . . 12
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ยฌ ๐ โค ๐) |
32 | 31 | intnand 489 |
. . . . . . . . . . 11
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ยฌ (๐ โค ๐ โง ๐ โค ๐)) |
33 | 32 | intnand 489 |
. . . . . . . . . 10
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ยฌ ((๐ โ โค โง ๐ โ โค โง ๐ โ โค) โง (๐ โค ๐ โง ๐ โค ๐))) |
34 | | elfz2 13487 |
. . . . . . . . . 10
โข (๐ โ (๐...๐) โ ((๐ โ โค โง ๐ โ โค โง ๐ โ โค) โง (๐ โค ๐ โง ๐ โค ๐))) |
35 | 33, 34 | sylnibr 328 |
. . . . . . . . 9
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ยฌ ๐ โ (๐...๐)) |
36 | 18, 35 | ssneldd 3984 |
. . . . . . . 8
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ยฌ ๐ โ ๐ด) |
37 | 36 | iffalsed 4538 |
. . . . . . 7
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ if(๐ โ ๐ด, โฆ๐ / ๐โฆ๐ต, 1) = 1) |
38 | | fzssuz 13538 |
. . . . . . . . . 10
โข ((๐ + 1)...๐) โ
(โคโฅโ(๐ + 1)) |
39 | 5 | adantr 481 |
. . . . . . . . . . . 12
โข ((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โ (๐ + 1) โ
(โคโฅโ๐)) |
40 | | uzss 12841 |
. . . . . . . . . . . 12
โข ((๐ + 1) โ
(โคโฅโ๐) โ
(โคโฅโ(๐ + 1)) โ
(โคโฅโ๐)) |
41 | 39, 40 | syl 17 |
. . . . . . . . . . 11
โข ((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โ
(โคโฅโ(๐ + 1)) โ
(โคโฅโ๐)) |
42 | 41, 2 | sseqtrrdi 4032 |
. . . . . . . . . 10
โข ((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โ
(โคโฅโ(๐ + 1)) โ ๐) |
43 | 38, 42 | sstrid 3992 |
. . . . . . . . 9
โข ((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โ ((๐ + 1)...๐) โ ๐) |
44 | 43 | sselda 3981 |
. . . . . . . 8
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ๐ โ ๐) |
45 | | ax-1cn 11164 |
. . . . . . . . 9
โข 1 โ
โ |
46 | 37, 45 | eqeltrdi 2841 |
. . . . . . . 8
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ if(๐ โ ๐ด, โฆ๐ / ๐โฆ๐ต, 1) โ โ) |
47 | | nfcv 2903 |
. . . . . . . . 9
โข
โฒ๐๐ |
48 | | nfv 1917 |
. . . . . . . . . 10
โข
โฒ๐ ๐ โ ๐ด |
49 | | nfcsb1v 3917 |
. . . . . . . . . 10
โข
โฒ๐โฆ๐ / ๐โฆ๐ต |
50 | | nfcv 2903 |
. . . . . . . . . 10
โข
โฒ๐1 |
51 | 48, 49, 50 | nfif 4557 |
. . . . . . . . 9
โข
โฒ๐if(๐ โ ๐ด, โฆ๐ / ๐โฆ๐ต, 1) |
52 | | eleq1w 2816 |
. . . . . . . . . 10
โข (๐ = ๐ โ (๐ โ ๐ด โ ๐ โ ๐ด)) |
53 | | csbeq1a 3906 |
. . . . . . . . . 10
โข (๐ = ๐ โ ๐ต = โฆ๐ / ๐โฆ๐ต) |
54 | 52, 53 | ifbieq1d 4551 |
. . . . . . . . 9
โข (๐ = ๐ โ if(๐ โ ๐ด, ๐ต, 1) = if(๐ โ ๐ด, โฆ๐ / ๐โฆ๐ต, 1)) |
55 | | eqid 2732 |
. . . . . . . . 9
โข (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1)) = (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1)) |
56 | 47, 51, 54, 55 | fvmptf 7016 |
. . . . . . . 8
โข ((๐ โ ๐ โง if(๐ โ ๐ด, โฆ๐ / ๐โฆ๐ต, 1) โ โ) โ ((๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))โ๐) = if(๐ โ ๐ด, โฆ๐ / ๐โฆ๐ต, 1)) |
57 | 44, 46, 56 | syl2anc 584 |
. . . . . . 7
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ((๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))โ๐) = if(๐ โ ๐ด, โฆ๐ / ๐โฆ๐ต, 1)) |
58 | | elfzuz 13493 |
. . . . . . . . 9
โข (๐ โ ((๐ + 1)...๐) โ ๐ โ (โคโฅโ(๐ + 1))) |
59 | 58 | adantl 482 |
. . . . . . . 8
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ๐ โ (โคโฅโ(๐ + 1))) |
60 | | 1ex 11206 |
. . . . . . . . 9
โข 1 โ
V |
61 | 60 | fvconst2 7201 |
. . . . . . . 8
โข (๐ โ
(โคโฅโ(๐ + 1)) โ
(((โคโฅโ(๐ + 1)) ร {1})โ๐) = 1) |
62 | 59, 61 | syl 17 |
. . . . . . 7
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ
(((โคโฅโ(๐ + 1)) ร {1})โ๐) = 1) |
63 | 37, 57, 62 | 3eqtr4d 2782 |
. . . . . 6
โข (((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โง ๐ โ ((๐ + 1)...๐)) โ ((๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))โ๐) = (((โคโฅโ(๐ + 1)) ร {1})โ๐)) |
64 | 16, 63 | seqfveq 13988 |
. . . . 5
โข ((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โ (seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1)))โ๐) = (seq(๐ + 1)( ยท ,
((โคโฅโ(๐ + 1)) ร {1}))โ๐)) |
65 | 8 | prodf1 15833 |
. . . . . 6
โข (๐ โ
(โคโฅโ(๐ + 1)) โ (seq(๐ + 1)( ยท ,
((โคโฅโ(๐ + 1)) ร {1}))โ๐) = 1) |
66 | 65 | adantl 482 |
. . . . 5
โข ((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โ (seq(๐ + 1)( ยท ,
((โคโฅโ(๐ + 1)) ร {1}))โ๐) = 1) |
67 | 64, 66 | eqtrd 2772 |
. . . 4
โข ((๐ โง ๐ โ (โคโฅโ(๐ + 1))) โ (seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1)))โ๐) = 1) |
68 | 8, 12, 14, 15, 67 | climconst 15483 |
. . 3
โข (๐ โ seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ 1) |
69 | | neeq1 3003 |
. . . . 5
โข (๐ฆ = 1 โ (๐ฆ โ 0 โ 1 โ 0)) |
70 | | breq2 5151 |
. . . . 5
โข (๐ฆ = 1 โ (seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ โ seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ 1)) |
71 | 69, 70 | anbi12d 631 |
. . . 4
โข (๐ฆ = 1 โ ((๐ฆ โ 0 โง seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โ (1 โ 0 โง seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ 1))) |
72 | 60, 71 | spcev 3596 |
. . 3
โข ((1 โ
0 โง seq(๐ + 1)(
ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ 1) โ โ๐ฆ(๐ฆ โ 0 โง seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ)) |
73 | 7, 68, 72 | sylancr 587 |
. 2
โข (๐ โ โ๐ฆ(๐ฆ โ 0 โง seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ)) |
74 | | seqeq1 13965 |
. . . . . 6
โข (๐ = (๐ + 1) โ seq๐( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) = seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1)))) |
75 | 74 | breq1d 5157 |
. . . . 5
โข (๐ = (๐ + 1) โ (seq๐( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ โ seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ)) |
76 | 75 | anbi2d 629 |
. . . 4
โข (๐ = (๐ + 1) โ ((๐ฆ โ 0 โง seq๐( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โ (๐ฆ โ 0 โง seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ))) |
77 | 76 | exbidv 1924 |
. . 3
โข (๐ = (๐ + 1) โ (โ๐ฆ(๐ฆ โ 0 โง seq๐( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โ โ๐ฆ(๐ฆ โ 0 โง seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ))) |
78 | 77 | rspcev 3612 |
. 2
โข (((๐ + 1) โ ๐ โง โ๐ฆ(๐ฆ โ 0 โง seq(๐ + 1)( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ)) โ โ๐ โ ๐ โ๐ฆ(๐ฆ โ 0 โง seq๐( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ)) |
79 | 6, 73, 78 | syl2anc 584 |
1
โข (๐ โ โ๐ โ ๐ โ๐ฆ(๐ฆ โ 0 โง seq๐( ยท , (๐ โ ๐ โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ)) |