ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  cbvprod GIF version

Theorem cbvprod 11565
Description: Change bound variable in a product. (Contributed by Scott Fenton, 4-Dec-2017.)
Hypotheses
Ref Expression
cbvprod.1 (๐‘— = ๐‘˜ โ†’ ๐ต = ๐ถ)
cbvprod.2 โ„ฒ๐‘˜๐ด
cbvprod.3 โ„ฒ๐‘—๐ด
cbvprod.4 โ„ฒ๐‘˜๐ต
cbvprod.5 โ„ฒ๐‘—๐ถ
Assertion
Ref Expression
cbvprod โˆ๐‘— โˆˆ ๐ด ๐ต = โˆ๐‘˜ โˆˆ ๐ด ๐ถ
Distinct variable group:   ๐‘—,๐‘˜
Allowed substitution hints:   ๐ด(๐‘—,๐‘˜)   ๐ต(๐‘—,๐‘˜)   ๐ถ(๐‘—,๐‘˜)

Proof of Theorem cbvprod
Dummy variables ๐‘“ ๐‘š ๐‘› ๐‘  ๐‘ฅ ๐‘ฆ are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 cbvprod.2 . . . . . . . . . . . . . . 15 โ„ฒ๐‘˜๐ด
21nfcri 2313 . . . . . . . . . . . . . 14 โ„ฒ๐‘˜ ๐‘— โˆˆ ๐ด
3 cbvprod.4 . . . . . . . . . . . . . 14 โ„ฒ๐‘˜๐ต
4 nfcv 2319 . . . . . . . . . . . . . 14 โ„ฒ๐‘˜1
52, 3, 4nfif 3562 . . . . . . . . . . . . 13 โ„ฒ๐‘˜if(๐‘— โˆˆ ๐ด, ๐ต, 1)
6 cbvprod.3 . . . . . . . . . . . . . . 15 โ„ฒ๐‘—๐ด
76nfcri 2313 . . . . . . . . . . . . . 14 โ„ฒ๐‘— ๐‘˜ โˆˆ ๐ด
8 cbvprod.5 . . . . . . . . . . . . . 14 โ„ฒ๐‘—๐ถ
9 nfcv 2319 . . . . . . . . . . . . . 14 โ„ฒ๐‘—1
107, 8, 9nfif 3562 . . . . . . . . . . . . 13 โ„ฒ๐‘—if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1)
11 eleq1w 2238 . . . . . . . . . . . . . 14 (๐‘— = ๐‘˜ โ†’ (๐‘— โˆˆ ๐ด โ†” ๐‘˜ โˆˆ ๐ด))
12 cbvprod.1 . . . . . . . . . . . . . 14 (๐‘— = ๐‘˜ โ†’ ๐ต = ๐ถ)
1311, 12ifbieq1d 3556 . . . . . . . . . . . . 13 (๐‘— = ๐‘˜ โ†’ if(๐‘— โˆˆ ๐ด, ๐ต, 1) = if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))
145, 10, 13cbvmpt 4098 . . . . . . . . . . . 12 (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1)) = (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))
15 seqeq3 10449 . . . . . . . . . . . 12 ((๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1)) = (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1)) โ†’ seq๐‘›( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) = seq๐‘›( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))))
1614, 15ax-mp 5 . . . . . . . . . . 11 seq๐‘›( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) = seq๐‘›( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1)))
1716breq1i 4010 . . . . . . . . . 10 (seq๐‘›( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฆ โ†” seq๐‘›( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฆ)
1817anbi2i 457 . . . . . . . . 9 ((๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฆ) โ†” (๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฆ))
1918exbii 1605 . . . . . . . 8 (โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฆ) โ†” โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฆ))
2019rexbii 2484 . . . . . . 7 (โˆƒ๐‘› โˆˆ (โ„คโ‰ฅโ€˜๐‘š)โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฆ) โ†” โˆƒ๐‘› โˆˆ (โ„คโ‰ฅโ€˜๐‘š)โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฆ))
21 seqeq3 10449 . . . . . . . . 9 ((๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1)) = (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1)) โ†’ seq๐‘š( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) = seq๐‘š( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))))
2214, 21ax-mp 5 . . . . . . . 8 seq๐‘š( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) = seq๐‘š( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1)))
2322breq1i 4010 . . . . . . 7 (seq๐‘š( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฅ โ†” seq๐‘š( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฅ)
2420, 23anbi12i 460 . . . . . 6 ((โˆƒ๐‘› โˆˆ (โ„คโ‰ฅโ€˜๐‘š)โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฆ) โˆง seq๐‘š( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฅ) โ†” (โˆƒ๐‘› โˆˆ (โ„คโ‰ฅโ€˜๐‘š)โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฆ) โˆง seq๐‘š( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฅ))
2524anbi2i 457 . . . . 5 (((๐ด โŠ† (โ„คโ‰ฅโ€˜๐‘š) โˆง โˆ€๐‘  โˆˆ (โ„คโ‰ฅโ€˜๐‘š)DECID ๐‘  โˆˆ ๐ด) โˆง (โˆƒ๐‘› โˆˆ (โ„คโ‰ฅโ€˜๐‘š)โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฆ) โˆง seq๐‘š( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฅ)) โ†” ((๐ด โŠ† (โ„คโ‰ฅโ€˜๐‘š) โˆง โˆ€๐‘  โˆˆ (โ„คโ‰ฅโ€˜๐‘š)DECID ๐‘  โˆˆ ๐ด) โˆง (โˆƒ๐‘› โˆˆ (โ„คโ‰ฅโ€˜๐‘š)โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฆ) โˆง seq๐‘š( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฅ)))
2625rexbii 2484 . . . 4 (โˆƒ๐‘š โˆˆ โ„ค ((๐ด โŠ† (โ„คโ‰ฅโ€˜๐‘š) โˆง โˆ€๐‘  โˆˆ (โ„คโ‰ฅโ€˜๐‘š)DECID ๐‘  โˆˆ ๐ด) โˆง (โˆƒ๐‘› โˆˆ (โ„คโ‰ฅโ€˜๐‘š)โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฆ) โˆง seq๐‘š( ยท , (๐‘— โˆˆ โ„ค โ†ฆ if(๐‘— โˆˆ ๐ด, ๐ต, 1))) โ‡ ๐‘ฅ)) โ†” โˆƒ๐‘š โˆˆ โ„ค ((๐ด โŠ† (โ„คโ‰ฅโ€˜๐‘š) โˆง โˆ€๐‘  โˆˆ (โ„คโ‰ฅโ€˜๐‘š)DECID ๐‘  โˆˆ ๐ด) โˆง (โˆƒ๐‘› โˆˆ (โ„คโ‰ฅโ€˜๐‘š)โˆƒ๐‘ฆ(๐‘ฆ # 0 โˆง seq๐‘›( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฆ) โˆง seq๐‘š( ยท , (๐‘˜ โˆˆ โ„ค โ†ฆ if(๐‘˜ โˆˆ ๐ด, ๐ถ, 1))) โ‡ ๐‘ฅ)))
273, 8, 12cbvcsbw 3061 . . . . . . . . . . . 12 โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต = โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ
28 ifeq1 3537 . . . . . . . . . . . 12 (โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต = โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ โ†’ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1) = if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1))
2927, 28ax-mp 5 . . . . . . . . . . 11 if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1) = if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1)
3029mpteq2i 4090 . . . . . . . . . 10 (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1)) = (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1))
31 seqeq3 10449 . . . . . . . . . 10 ((๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1)) = (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1)) โ†’ seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1))) = seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1))))
3230, 31ax-mp 5 . . . . . . . . 9 seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1))) = seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1)))
3332fveq1i 5516 . . . . . . . 8 (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1)))โ€˜๐‘š) = (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1)))โ€˜๐‘š)
3433eqeq2i 2188 . . . . . . 7 (๐‘ฅ = (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1)))โ€˜๐‘š) โ†” ๐‘ฅ = (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1)))โ€˜๐‘š))
3534anbi2i 457 . . . . . 6 ((๐‘“:(1...๐‘š)โ€“1-1-ontoโ†’๐ด โˆง ๐‘ฅ = (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1)))โ€˜๐‘š)) โ†” (๐‘“:(1...๐‘š)โ€“1-1-ontoโ†’๐ด โˆง ๐‘ฅ = (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1)))โ€˜๐‘š)))
3635exbii 1605 . . . . 5 (โˆƒ๐‘“(๐‘“:(1...๐‘š)โ€“1-1-ontoโ†’๐ด โˆง ๐‘ฅ = (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1)))โ€˜๐‘š)) โ†” โˆƒ๐‘“(๐‘“:(1...๐‘š)โ€“1-1-ontoโ†’๐ด โˆง ๐‘ฅ = (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1)))โ€˜๐‘š)))
3736rexbii 2484 . . . 4 (โˆƒ๐‘š โˆˆ โ„• โˆƒ๐‘“(๐‘“:(1...๐‘š)โ€“1-1-ontoโ†’๐ด โˆง ๐‘ฅ = (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘—โฆŒ๐ต, 1)))โ€˜๐‘š)) โ†” โˆƒ๐‘š โˆˆ โ„• โˆƒ๐‘“(๐‘“:(1...๐‘š)โ€“1-1-ontoโ†’๐ด โˆง ๐‘ฅ = (seq1( ยท , (๐‘› โˆˆ โ„• โ†ฆ if(๐‘› โ‰ค ๐‘š, โฆ‹(๐‘“โ€˜๐‘›) / ๐‘˜โฆŒ๐ถ, 1)))โ€˜๐‘š)))
3826, 37orbi12i 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)))โ€˜๐‘š))))
3938iotabii 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)))โ€˜๐‘š))))
4239, 40, 413eqtr4i 2208 1 โˆ๐‘— โˆˆ ๐ด ๐ต = โˆ๐‘˜ โˆˆ ๐ด ๐ถ
Colors of variables: wff set class
Syntax hints:   โ†’ wi 4   โˆง wa 104   โˆจ wo 708  DECID wdc 834   = wceq 1353  โˆƒwex 1492   โˆˆ wcel 2148  โ„ฒwnfc 2306  โˆ€wral 2455  โˆƒwrex 2456  โฆ‹csb 3057   โŠ† wss 3129  ifcif 3534   class class class wbr 4003   โ†ฆ cmpt 4064  โ„ฉcio 5176  โ€“1-1-ontoโ†’wf1o 5215  โ€˜cfv 5216  (class class class)co 5874  0cc0 7810  1c1 7811   ยท cmul 7815   โ‰ค cle 7992   # cap 8537  โ„•cn 8918  โ„คcz 9252  โ„คโ‰ฅcuz 9527  ...cfz 10007  seqcseq 10444   โ‡ cli 11285  โˆcprod 11557
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-ext 2159
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-rex 2461  df-rab 2464  df-v 2739  df-sbc 2963  df-csb 3058  df-un 3133  df-in 3135  df-ss 3142  df-if 3535  df-sn 3598  df-pr 3599  df-op 3601  df-uni 3810  df-br 4004  df-opab 4065  df-mpt 4066  df-cnv 4634  df-dm 4636  df-rn 4637  df-res 4638  df-iota 5178  df-fv 5224  df-ov 5877  df-oprab 5878  df-mpo 5879  df-recs 6305  df-frec 6391  df-seqfrec 10445  df-proddc 11558
This theorem is referenced by:  cbvprodv  11566  cbvprodi  11567
  Copyright terms: Public domain W3C validator