Step | Hyp | Ref
| Expression |
1 | | iftrue 3540 |
. . . . 5
โข (๐ โ ๐ด โ if(๐ โ ๐ด, ๐ถ, 1) = ๐ถ) |
2 | 1 | prodeq2i 11570 |
. . . 4
โข
โ๐ โ
๐ด if(๐ โ ๐ด, ๐ถ, 1) = โ๐ โ ๐ด ๐ถ |
3 | | ssun1 3299 |
. . . . . 6
โข ๐ด โ (๐ด โช ๐ต) |
4 | | fprodsplitdc.2 |
. . . . . 6
โข (๐ โ ๐ = (๐ด โช ๐ต)) |
5 | 3, 4 | sseqtrrid 3207 |
. . . . 5
โข (๐ โ ๐ด โ ๐) |
6 | 1 | adantl 277 |
. . . . . 6
โข ((๐ โง ๐ โ ๐ด) โ if(๐ โ ๐ด, ๐ถ, 1) = ๐ถ) |
7 | 5 | sselda 3156 |
. . . . . . 7
โข ((๐ โง ๐ โ ๐ด) โ ๐ โ ๐) |
8 | | fprodsplitdc.4 |
. . . . . . 7
โข ((๐ โง ๐ โ ๐) โ ๐ถ โ โ) |
9 | 7, 8 | syldan 282 |
. . . . . 6
โข ((๐ โง ๐ โ ๐ด) โ ๐ถ โ โ) |
10 | 6, 9 | eqeltrd 2254 |
. . . . 5
โข ((๐ โง ๐ โ ๐ด) โ if(๐ โ ๐ด, ๐ถ, 1) โ โ) |
11 | | fprodsplitdc.a |
. . . . 5
โข (๐ โ โ๐ โ ๐ DECID ๐ โ ๐ด) |
12 | | eldifn 3259 |
. . . . . . 7
โข (๐ โ (๐ โ ๐ด) โ ยฌ ๐ โ ๐ด) |
13 | 12 | iffalsed 3545 |
. . . . . 6
โข (๐ โ (๐ โ ๐ด) โ if(๐ โ ๐ด, ๐ถ, 1) = 1) |
14 | 13 | adantl 277 |
. . . . 5
โข ((๐ โง ๐ โ (๐ โ ๐ด)) โ if(๐ โ ๐ด, ๐ถ, 1) = 1) |
15 | | fprodsplitdc.3 |
. . . . 5
โข (๐ โ ๐ โ Fin) |
16 | 5, 10, 11, 14, 15 | fprodssdc 11598 |
. . . 4
โข (๐ โ โ๐ โ ๐ด if(๐ โ ๐ด, ๐ถ, 1) = โ๐ โ ๐ if(๐ โ ๐ด, ๐ถ, 1)) |
17 | 2, 16 | eqtr3id 2224 |
. . 3
โข (๐ โ โ๐ โ ๐ด ๐ถ = โ๐ โ ๐ if(๐ โ ๐ด, ๐ถ, 1)) |
18 | | iftrue 3540 |
. . . . 5
โข (๐ โ ๐ต โ if(๐ โ ๐ต, ๐ถ, 1) = ๐ถ) |
19 | 18 | prodeq2i 11570 |
. . . 4
โข
โ๐ โ
๐ต if(๐ โ ๐ต, ๐ถ, 1) = โ๐ โ ๐ต ๐ถ |
20 | | ssun2 3300 |
. . . . . 6
โข ๐ต โ (๐ด โช ๐ต) |
21 | 20, 4 | sseqtrrid 3207 |
. . . . 5
โข (๐ โ ๐ต โ ๐) |
22 | 18 | adantl 277 |
. . . . . 6
โข ((๐ โง ๐ โ ๐ต) โ if(๐ โ ๐ต, ๐ถ, 1) = ๐ถ) |
23 | 21 | sselda 3156 |
. . . . . . 7
โข ((๐ โง ๐ โ ๐ต) โ ๐ โ ๐) |
24 | 23, 8 | syldan 282 |
. . . . . 6
โข ((๐ โง ๐ โ ๐ต) โ ๐ถ โ โ) |
25 | 22, 24 | eqeltrd 2254 |
. . . . 5
โข ((๐ โง ๐ โ ๐ต) โ if(๐ โ ๐ต, ๐ถ, 1) โ โ) |
26 | | fprodsplitdc.1 |
. . . . . . . . . . . . . 14
โข (๐ โ (๐ด โฉ ๐ต) = โ
) |
27 | | disj 3472 |
. . . . . . . . . . . . . 14
โข ((๐ด โฉ ๐ต) = โ
โ โ๐ โ ๐ด ยฌ ๐ โ ๐ต) |
28 | 26, 27 | sylib 122 |
. . . . . . . . . . . . 13
โข (๐ โ โ๐ โ ๐ด ยฌ ๐ โ ๐ต) |
29 | 28 | ad2antrr 488 |
. . . . . . . . . . . 12
โข (((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โ โ๐ โ ๐ด ยฌ ๐ โ ๐ต) |
30 | 29 | r19.21bi 2565 |
. . . . . . . . . . 11
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ๐ โ ๐ด) โ ยฌ ๐ โ ๐ต) |
31 | 30 | olcd 734 |
. . . . . . . . . 10
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ๐ โ ๐ด) โ (๐ โ ๐ต โจ ยฌ ๐ โ ๐ต)) |
32 | | df-dc 835 |
. . . . . . . . . 10
โข
(DECID ๐ โ ๐ต โ (๐ โ ๐ต โจ ยฌ ๐ โ ๐ต)) |
33 | 31, 32 | sylibr 134 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ๐ โ ๐ด) โ DECID ๐ โ ๐ต) |
34 | | simpr 110 |
. . . . . . . . . . . 12
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ยฌ ๐ โ ๐ด) โ ยฌ ๐ โ ๐ด) |
35 | | simpllr 534 |
. . . . . . . . . . . . . . 15
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ยฌ ๐ โ ๐ด) โ ๐ โ ๐) |
36 | 4 | eleq2d 2247 |
. . . . . . . . . . . . . . . 16
โข (๐ โ (๐ โ ๐ โ ๐ โ (๐ด โช ๐ต))) |
37 | 36 | ad3antrrr 492 |
. . . . . . . . . . . . . . 15
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ยฌ ๐ โ ๐ด) โ (๐ โ ๐ โ ๐ โ (๐ด โช ๐ต))) |
38 | 35, 37 | mpbid 147 |
. . . . . . . . . . . . . 14
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ยฌ ๐ โ ๐ด) โ ๐ โ (๐ด โช ๐ต)) |
39 | | elun 3277 |
. . . . . . . . . . . . . 14
โข (๐ โ (๐ด โช ๐ต) โ (๐ โ ๐ด โจ ๐ โ ๐ต)) |
40 | 38, 39 | sylib 122 |
. . . . . . . . . . . . 13
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ยฌ ๐ โ ๐ด) โ (๐ โ ๐ด โจ ๐ โ ๐ต)) |
41 | 40 | orcomd 729 |
. . . . . . . . . . . 12
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ยฌ ๐ โ ๐ด) โ (๐ โ ๐ต โจ ๐ โ ๐ด)) |
42 | 34, 41 | ecased 1349 |
. . . . . . . . . . 11
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ยฌ ๐ โ ๐ด) โ ๐ โ ๐ต) |
43 | 42 | orcd 733 |
. . . . . . . . . 10
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ยฌ ๐ โ ๐ด) โ (๐ โ ๐ต โจ ยฌ ๐ โ ๐ต)) |
44 | 43, 32 | sylibr 134 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โง ยฌ ๐ โ ๐ด) โ DECID ๐ โ ๐ต) |
45 | | exmiddc 836 |
. . . . . . . . . 10
โข
(DECID ๐ โ ๐ด โ (๐ โ ๐ด โจ ยฌ ๐ โ ๐ด)) |
46 | 45 | adantl 277 |
. . . . . . . . 9
โข (((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โ (๐ โ ๐ด โจ ยฌ ๐ โ ๐ด)) |
47 | 33, 44, 46 | mpjaodan 798 |
. . . . . . . 8
โข (((๐ โง ๐ โ ๐) โง DECID ๐ โ ๐ด) โ DECID ๐ โ ๐ต) |
48 | 47 | ex 115 |
. . . . . . 7
โข ((๐ โง ๐ โ ๐) โ (DECID ๐ โ ๐ด โ DECID ๐ โ ๐ต)) |
49 | 48 | ralimdva 2544 |
. . . . . 6
โข (๐ โ (โ๐ โ ๐ DECID ๐ โ ๐ด โ โ๐ โ ๐ DECID ๐ โ ๐ต)) |
50 | 11, 49 | mpd 13 |
. . . . 5
โข (๐ โ โ๐ โ ๐ DECID ๐ โ ๐ต) |
51 | | eldifn 3259 |
. . . . . . 7
โข (๐ โ (๐ โ ๐ต) โ ยฌ ๐ โ ๐ต) |
52 | 51 | iffalsed 3545 |
. . . . . 6
โข (๐ โ (๐ โ ๐ต) โ if(๐ โ ๐ต, ๐ถ, 1) = 1) |
53 | 52 | adantl 277 |
. . . . 5
โข ((๐ โง ๐ โ (๐ โ ๐ต)) โ if(๐ โ ๐ต, ๐ถ, 1) = 1) |
54 | 21, 25, 50, 53, 15 | fprodssdc 11598 |
. . . 4
โข (๐ โ โ๐ โ ๐ต if(๐ โ ๐ต, ๐ถ, 1) = โ๐ โ ๐ if(๐ โ ๐ต, ๐ถ, 1)) |
55 | 19, 54 | eqtr3id 2224 |
. . 3
โข (๐ โ โ๐ โ ๐ต ๐ถ = โ๐ โ ๐ if(๐ โ ๐ต, ๐ถ, 1)) |
56 | 17, 55 | oveq12d 5893 |
. 2
โข (๐ โ (โ๐ โ ๐ด ๐ถ ยท โ๐ โ ๐ต ๐ถ) = (โ๐ โ ๐ if(๐ โ ๐ด, ๐ถ, 1) ยท โ๐ โ ๐ if(๐ โ ๐ต, ๐ถ, 1))) |
57 | | 1cnd 7973 |
. . . 4
โข ((๐ โง ๐ โ ๐) โ 1 โ โ) |
58 | | eleq1w 2238 |
. . . . . . . 8
โข (๐ = ๐ โ (๐ โ ๐ด โ ๐ โ ๐ด)) |
59 | 58 | dcbid 838 |
. . . . . . 7
โข (๐ = ๐ โ (DECID ๐ โ ๐ด โ DECID ๐ โ ๐ด)) |
60 | 59 | cbvralv 2704 |
. . . . . 6
โข
(โ๐ โ
๐ DECID
๐ โ ๐ด โ โ๐ โ ๐ DECID ๐ โ ๐ด) |
61 | 11, 60 | sylib 122 |
. . . . 5
โข (๐ โ โ๐ โ ๐ DECID ๐ โ ๐ด) |
62 | 61 | r19.21bi 2565 |
. . . 4
โข ((๐ โง ๐ โ ๐) โ DECID ๐ โ ๐ด) |
63 | 8, 57, 62 | ifcldcd 3571 |
. . 3
โข ((๐ โง ๐ โ ๐) โ if(๐ โ ๐ด, ๐ถ, 1) โ โ) |
64 | | eleq1w 2238 |
. . . . . . . 8
โข (๐ = ๐ โ (๐ โ ๐ต โ ๐ โ ๐ต)) |
65 | 64 | dcbid 838 |
. . . . . . 7
โข (๐ = ๐ โ (DECID ๐ โ ๐ต โ DECID ๐ โ ๐ต)) |
66 | 65 | cbvralv 2704 |
. . . . . 6
โข
(โ๐ โ
๐ DECID
๐ โ ๐ต โ โ๐ โ ๐ DECID ๐ โ ๐ต) |
67 | 50, 66 | sylib 122 |
. . . . 5
โข (๐ โ โ๐ โ ๐ DECID ๐ โ ๐ต) |
68 | 67 | r19.21bi 2565 |
. . . 4
โข ((๐ โง ๐ โ ๐) โ DECID ๐ โ ๐ต) |
69 | 8, 57, 68 | ifcldcd 3571 |
. . 3
โข ((๐ โง ๐ โ ๐) โ if(๐ โ ๐ต, ๐ถ, 1) โ โ) |
70 | 15, 63, 69 | fprodmul 11599 |
. 2
โข (๐ โ โ๐ โ ๐ (if(๐ โ ๐ด, ๐ถ, 1) ยท if(๐ โ ๐ต, ๐ถ, 1)) = (โ๐ โ ๐ if(๐ โ ๐ด, ๐ถ, 1) ยท โ๐ โ ๐ if(๐ โ ๐ต, ๐ถ, 1))) |
71 | 4 | eleq2d 2247 |
. . . . . 6
โข (๐ โ (๐ โ ๐ โ ๐ โ (๐ด โช ๐ต))) |
72 | | elun 3277 |
. . . . . 6
โข (๐ โ (๐ด โช ๐ต) โ (๐ โ ๐ด โจ ๐ โ ๐ต)) |
73 | 71, 72 | bitrdi 196 |
. . . . 5
โข (๐ โ (๐ โ ๐ โ (๐ โ ๐ด โจ ๐ โ ๐ต))) |
74 | 73 | biimpa 296 |
. . . 4
โข ((๐ โง ๐ โ ๐) โ (๐ โ ๐ด โจ ๐ โ ๐ต)) |
75 | | disjel 3478 |
. . . . . . . . 9
โข (((๐ด โฉ ๐ต) = โ
โง ๐ โ ๐ด) โ ยฌ ๐ โ ๐ต) |
76 | 26, 75 | sylan 283 |
. . . . . . . 8
โข ((๐ โง ๐ โ ๐ด) โ ยฌ ๐ โ ๐ต) |
77 | 76 | iffalsed 3545 |
. . . . . . 7
โข ((๐ โง ๐ โ ๐ด) โ if(๐ โ ๐ต, ๐ถ, 1) = 1) |
78 | 6, 77 | oveq12d 5893 |
. . . . . 6
โข ((๐ โง ๐ โ ๐ด) โ (if(๐ โ ๐ด, ๐ถ, 1) ยท if(๐ โ ๐ต, ๐ถ, 1)) = (๐ถ ยท 1)) |
79 | 9 | mulridd 7974 |
. . . . . 6
โข ((๐ โง ๐ โ ๐ด) โ (๐ถ ยท 1) = ๐ถ) |
80 | 78, 79 | eqtrd 2210 |
. . . . 5
โข ((๐ โง ๐ โ ๐ด) โ (if(๐ โ ๐ด, ๐ถ, 1) ยท if(๐ โ ๐ต, ๐ถ, 1)) = ๐ถ) |
81 | 76 | ex 115 |
. . . . . . . . . 10
โข (๐ โ (๐ โ ๐ด โ ยฌ ๐ โ ๐ต)) |
82 | 81 | con2d 624 |
. . . . . . . . 9
โข (๐ โ (๐ โ ๐ต โ ยฌ ๐ โ ๐ด)) |
83 | 82 | imp 124 |
. . . . . . . 8
โข ((๐ โง ๐ โ ๐ต) โ ยฌ ๐ โ ๐ด) |
84 | 83 | iffalsed 3545 |
. . . . . . 7
โข ((๐ โง ๐ โ ๐ต) โ if(๐ โ ๐ด, ๐ถ, 1) = 1) |
85 | 84, 22 | oveq12d 5893 |
. . . . . 6
โข ((๐ โง ๐ โ ๐ต) โ (if(๐ โ ๐ด, ๐ถ, 1) ยท if(๐ โ ๐ต, ๐ถ, 1)) = (1 ยท ๐ถ)) |
86 | 24 | mulid2d 7976 |
. . . . . 6
โข ((๐ โง ๐ โ ๐ต) โ (1 ยท ๐ถ) = ๐ถ) |
87 | 85, 86 | eqtrd 2210 |
. . . . 5
โข ((๐ โง ๐ โ ๐ต) โ (if(๐ โ ๐ด, ๐ถ, 1) ยท if(๐ โ ๐ต, ๐ถ, 1)) = ๐ถ) |
88 | 80, 87 | jaodan 797 |
. . . 4
โข ((๐ โง (๐ โ ๐ด โจ ๐ โ ๐ต)) โ (if(๐ โ ๐ด, ๐ถ, 1) ยท if(๐ โ ๐ต, ๐ถ, 1)) = ๐ถ) |
89 | 74, 88 | syldan 282 |
. . 3
โข ((๐ โง ๐ โ ๐) โ (if(๐ โ ๐ด, ๐ถ, 1) ยท if(๐ โ ๐ต, ๐ถ, 1)) = ๐ถ) |
90 | 89 | prodeq2dv 11574 |
. 2
โข (๐ โ โ๐ โ ๐ (if(๐ โ ๐ด, ๐ถ, 1) ยท if(๐ โ ๐ต, ๐ถ, 1)) = โ๐ โ ๐ ๐ถ) |
91 | 56, 70, 90 | 3eqtr2rd 2217 |
1
โข (๐ โ โ๐ โ ๐ ๐ถ = (โ๐ โ ๐ด ๐ถ ยท โ๐ โ ๐ต ๐ถ)) |