Step | Hyp | Ref
| Expression |
1 | | cbvprod.2 |
. . . . . . . . . . . . . . 15
โข
โฒ๐๐ด |
2 | 1 | nfcri 2313 |
. . . . . . . . . . . . . 14
โข
โฒ๐ ๐ โ ๐ด |
3 | | cbvprod.4 |
. . . . . . . . . . . . . 14
โข
โฒ๐๐ต |
4 | | nfcv 2319 |
. . . . . . . . . . . . . 14
โข
โฒ๐1 |
5 | 2, 3, 4 | nfif 3562 |
. . . . . . . . . . . . 13
โข
โฒ๐if(๐ โ ๐ด, ๐ต, 1) |
6 | | cbvprod.3 |
. . . . . . . . . . . . . . 15
โข
โฒ๐๐ด |
7 | 6 | nfcri 2313 |
. . . . . . . . . . . . . 14
โข
โฒ๐ ๐ โ ๐ด |
8 | | cbvprod.5 |
. . . . . . . . . . . . . 14
โข
โฒ๐๐ถ |
9 | | nfcv 2319 |
. . . . . . . . . . . . . 14
โข
โฒ๐1 |
10 | 7, 8, 9 | nfif 3562 |
. . . . . . . . . . . . 13
โข
โฒ๐if(๐ โ ๐ด, ๐ถ, 1) |
11 | | eleq1w 2238 |
. . . . . . . . . . . . . 14
โข (๐ = ๐ โ (๐ โ ๐ด โ ๐ โ ๐ด)) |
12 | | cbvprod.1 |
. . . . . . . . . . . . . 14
โข (๐ = ๐ โ ๐ต = ๐ถ) |
13 | 11, 12 | ifbieq1d 3556 |
. . . . . . . . . . . . 13
โข (๐ = ๐ โ if(๐ โ ๐ด, ๐ต, 1) = if(๐ โ ๐ด, ๐ถ, 1)) |
14 | 5, 10, 13 | cbvmpt 4098 |
. . . . . . . . . . . 12
โข (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1)) = (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1)) |
15 | | seqeq3 10449 |
. . . . . . . . . . . 12
โข ((๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1)) = (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1)) โ seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) = seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1)))) |
16 | 14, 15 | ax-mp 5 |
. . . . . . . . . . 11
โข seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) = seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) |
17 | 16 | breq1i 4010 |
. . . . . . . . . 10
โข (seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ โ seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ) |
18 | 17 | anbi2i 457 |
. . . . . . . . 9
โข ((๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โ (๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ)) |
19 | 18 | exbii 1605 |
. . . . . . . 8
โข
(โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โ โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ)) |
20 | 19 | rexbii 2484 |
. . . . . . 7
โข
(โ๐ โ
(โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โ โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ)) |
21 | | seqeq3 10449 |
. . . . . . . . 9
โข ((๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1)) = (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1)) โ seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) = seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1)))) |
22 | 14, 21 | ax-mp 5 |
. . . . . . . 8
โข seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) = seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) |
23 | 22 | breq1i 4010 |
. . . . . . 7
โข (seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฅ โ seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฅ) |
24 | 20, 23 | anbi12i 460 |
. . . . . 6
โข
((โ๐ โ
(โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฅ) โ (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฅ)) |
25 | 24 | anbi2i 457 |
. . . . 5
โข (((๐ด โ
(โคโฅโ๐) โง โ๐ โ (โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฅ)) โ ((๐ด โ (โคโฅโ๐) โง โ๐ โ
(โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฅ))) |
26 | 25 | rexbii 2484 |
. . . 4
โข
(โ๐ โ
โค ((๐ด โ
(โคโฅโ๐) โง โ๐ โ (โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฅ)) โ โ๐ โ โค ((๐ด โ (โคโฅโ๐) โง โ๐ โ
(โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฅ))) |
27 | 3, 8, 12 | cbvcsbw 3061 |
. . . . . . . . . . . 12
โข
โฆ(๐โ๐) / ๐โฆ๐ต = โฆ(๐โ๐) / ๐โฆ๐ถ |
28 | | ifeq1 3537 |
. . . . . . . . . . . 12
โข
(โฆ(๐โ๐) / ๐โฆ๐ต = โฆ(๐โ๐) / ๐โฆ๐ถ โ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1) = if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)) |
29 | 27, 28 | ax-mp 5 |
. . . . . . . . . . 11
โข if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1) = if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1) |
30 | 29 | mpteq2i 4090 |
. . . . . . . . . 10
โข (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)) = (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)) |
31 | | seqeq3 10449 |
. . . . . . . . . 10
โข ((๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)) = (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)) โ seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1))) = seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)))) |
32 | 30, 31 | ax-mp 5 |
. . . . . . . . 9
โข seq1(
ยท , (๐ โ
โ โฆ if(๐ โค
๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1))) = seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1))) |
33 | 32 | fveq1i 5516 |
. . . . . . . 8
โข (seq1(
ยท , (๐ โ
โ โฆ if(๐ โค
๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)))โ๐) = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)))โ๐) |
34 | 33 | eqeq2i 2188 |
. . . . . . 7
โข (๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)))โ๐) โ ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)))โ๐)) |
35 | 34 | anbi2i 457 |
. . . . . 6
โข ((๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)))โ๐)) โ (๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)))โ๐))) |
36 | 35 | exbii 1605 |
. . . . 5
โข
(โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)))โ๐)) โ โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)))โ๐))) |
37 | 36 | rexbii 2484 |
. . . 4
โข
(โ๐ โ
โ โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)))โ๐)) โ โ๐ โ โ โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)))โ๐))) |
38 | 26, 37 | orbi12i 764 |
. . 3
โข
((โ๐ โ
โค ((๐ด โ
(โคโฅโ๐) โง โ๐ โ (โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฅ)) โจ โ๐ โ โ โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)))โ๐))) โ (โ๐ โ โค ((๐ด โ (โคโฅโ๐) โง โ๐ โ
(โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฅ)) โจ โ๐ โ โ โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)))โ๐)))) |
39 | 38 | iotabii 5200 |
. 2
โข
(โฉ๐ฅ(โ๐ โ โค ((๐ด โ (โคโฅโ๐) โง โ๐ โ
(โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฅ)) โจ โ๐ โ โ โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)))โ๐)))) = (โฉ๐ฅ(โ๐ โ โค ((๐ด โ (โคโฅโ๐) โง โ๐ โ
(โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฅ)) โจ โ๐ โ โ โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)))โ๐)))) |
40 | | df-proddc 11558 |
. 2
โข
โ๐ โ
๐ด ๐ต = (โฉ๐ฅ(โ๐ โ โค ((๐ด โ (โคโฅโ๐) โง โ๐ โ
(โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ต, 1))) โ ๐ฅ)) โจ โ๐ โ โ โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ต, 1)))โ๐)))) |
41 | | df-proddc 11558 |
. 2
โข
โ๐ โ
๐ด ๐ถ = (โฉ๐ฅ(โ๐ โ โค ((๐ด โ (โคโฅโ๐) โง โ๐ โ
(โคโฅโ๐)DECID ๐ โ ๐ด) โง (โ๐ โ (โคโฅโ๐)โ๐ฆ(๐ฆ # 0 โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฆ) โง seq๐( ยท , (๐ โ โค โฆ if(๐ โ ๐ด, ๐ถ, 1))) โ ๐ฅ)) โจ โ๐ โ โ โ๐(๐:(1...๐)โ1-1-ontoโ๐ด โง ๐ฅ = (seq1( ยท , (๐ โ โ โฆ if(๐ โค ๐, โฆ(๐โ๐) / ๐โฆ๐ถ, 1)))โ๐)))) |
42 | 39, 40, 41 | 3eqtr4i 2208 |
1
โข
โ๐ โ
๐ด ๐ต = โ๐ โ ๐ด ๐ถ |