Step | Hyp | Ref
| Expression |
1 | | eqid 2731 |
. . . . . . . . . . 11
โข dom
(๐ด CNF ๐ต) = dom (๐ด CNF ๐ต) |
2 | | eldifi 4122 |
. . . . . . . . . . . 12
โข (๐ด โ (On โ
2o) โ ๐ด
โ On) |
3 | 2 | adantr 481 |
. . . . . . . . . . 11
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ ๐ด โ
On) |
4 | | simpr 485 |
. . . . . . . . . . 11
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ ๐ต โ
On) |
5 | | eqid 2731 |
. . . . . . . . . . 11
โข
{โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} = {โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} |
6 | 1, 3, 4, 5 | cantnf 9670 |
. . . . . . . . . 10
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐ด CNF
๐ต) Isom {โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))}, E (dom (๐ด CNF ๐ต), (๐ด โo ๐ต))) |
7 | 6 | adantr 481 |
. . . . . . . . 9
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐น โ
dom (๐ด CNF ๐ต)) โ (๐ด CNF ๐ต) Isom {โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))}, E (dom (๐ด CNF ๐ต), (๐ด โo ๐ต))) |
8 | | simpr 485 |
. . . . . . . . 9
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐น โ
dom (๐ด CNF ๐ต)) โ ๐น โ dom (๐ด CNF ๐ต)) |
9 | | ondif2 8484 |
. . . . . . . . . . . . . . 15
โข (๐ด โ (On โ
2o) โ (๐ด
โ On โง 1o โ ๐ด)) |
10 | 9 | simprbi 497 |
. . . . . . . . . . . . . 14
โข (๐ด โ (On โ
2o) โ 1o โ ๐ด) |
11 | | dif20el 8487 |
. . . . . . . . . . . . . 14
โข (๐ด โ (On โ
2o) โ โ
โ ๐ด) |
12 | 10, 11 | ifcld 4568 |
. . . . . . . . . . . . 13
โข (๐ด โ (On โ
2o) โ if(๐ฆ
= ๐ถ, 1o,
โ
) โ ๐ด) |
13 | 12 | ad2antrr 724 |
. . . . . . . . . . . 12
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ฆ โ
๐ต) โ if(๐ฆ = ๐ถ, 1o, โ
) โ ๐ด) |
14 | 13 | fmpttd 7099 |
. . . . . . . . . . 11
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐ฆ โ
๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)):๐ตโถ๐ด) |
15 | 11 | adantr 481 |
. . . . . . . . . . . 12
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ โ
โ ๐ด) |
16 | | eqid 2731 |
. . . . . . . . . . . 12
โข (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) |
17 | 4, 15, 16 | sniffsupp 9377 |
. . . . . . . . . . 11
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐ฆ โ
๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) finSupp
โ
) |
18 | 1, 3, 4 | cantnfs 9643 |
. . . . . . . . . . 11
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ ((๐ฆ
โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ dom (๐ด CNF ๐ต) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)):๐ตโถ๐ด โง (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) finSupp
โ
))) |
19 | 14, 17, 18 | mpbir2and 711 |
. . . . . . . . . 10
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐ฆ โ
๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ dom (๐ด CNF ๐ต)) |
20 | 19 | adantr 481 |
. . . . . . . . 9
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐น โ
dom (๐ด CNF ๐ต)) โ (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ dom (๐ด CNF ๐ต)) |
21 | | isorel 7307 |
. . . . . . . . 9
โข (((๐ด CNF ๐ต) Isom {โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))}, E (dom (๐ด CNF ๐ต), (๐ด โo ๐ต)) โง (๐น โ dom (๐ด CNF ๐ต) โง (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ dom (๐ด CNF ๐ต))) โ (๐น{โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ ((๐ด CNF ๐ต)โ๐น) E ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o,
โ
))))) |
22 | 7, 8, 20, 21 | syl12anc 835 |
. . . . . . . 8
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐น โ
dom (๐ด CNF ๐ต)) โ (๐น{โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ ((๐ด CNF ๐ต)โ๐น) E ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o,
โ
))))) |
23 | 22 | adantrl 714 |
. . . . . . 7
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โ (๐น{โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ ((๐ด CNF ๐ต)โ๐น) E ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o,
โ
))))) |
24 | 23 | adantr 481 |
. . . . . 6
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง ๐ถ โ ๐ต) โ (๐น{โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ ((๐ด CNF ๐ต)โ๐น) E ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o,
โ
))))) |
25 | | fvexd 6893 |
. . . . . . 7
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง ๐ถ โ ๐ต) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) โ
V) |
26 | | epelg 5574 |
. . . . . . 7
โข (((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) โ V โ
(((๐ด CNF ๐ต)โ๐น) E ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) โ ((๐ด CNF ๐ต)โ๐น) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o,
โ
))))) |
27 | 25, 26 | syl 17 |
. . . . . 6
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง ๐ถ โ ๐ต) โ (((๐ด CNF ๐ต)โ๐น) E ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) โ ((๐ด CNF ๐ต)โ๐น) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o,
โ
))))) |
28 | 2 | ad2antrr 724 |
. . . . . . . . . . . . . 14
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
๐ต) โ ๐ด โ On) |
29 | | simplr 767 |
. . . . . . . . . . . . . 14
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
๐ต) โ ๐ต โ On) |
30 | | fconst6g 6767 |
. . . . . . . . . . . . . . . . . 18
โข (โ
โ ๐ด โ (๐ต ร {โ
}):๐ตโถ๐ด) |
31 | 11, 30 | syl 17 |
. . . . . . . . . . . . . . . . 17
โข (๐ด โ (On โ
2o) โ (๐ต
ร {โ
}):๐ตโถ๐ด) |
32 | 31 | adantr 481 |
. . . . . . . . . . . . . . . 16
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐ต
ร {โ
}):๐ตโถ๐ด) |
33 | 4, 15 | fczfsuppd 9364 |
. . . . . . . . . . . . . . . 16
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐ต
ร {โ
}) finSupp โ
) |
34 | 1, 3, 4 | cantnfs 9643 |
. . . . . . . . . . . . . . . 16
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ ((๐ต
ร {โ
}) โ dom (๐ด CNF ๐ต) โ ((๐ต ร {โ
}):๐ตโถ๐ด โง (๐ต ร {โ
}) finSupp
โ
))) |
35 | 32, 33, 34 | mpbir2and 711 |
. . . . . . . . . . . . . . 15
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐ต
ร {โ
}) โ dom (๐ด CNF ๐ต)) |
36 | 35 | adantr 481 |
. . . . . . . . . . . . . 14
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
๐ต) โ (๐ต ร {โ
}) โ dom
(๐ด CNF ๐ต)) |
37 | | simpr 485 |
. . . . . . . . . . . . . 14
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
๐ต) โ ๐ถ โ ๐ต) |
38 | 10 | ad2antrr 724 |
. . . . . . . . . . . . . 14
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
๐ต) โ 1o
โ ๐ด) |
39 | | fczsupp0 8160 |
. . . . . . . . . . . . . . . 16
โข ((๐ต ร {โ
}) supp
โ
) = โ
|
40 | | 0ss 4392 |
. . . . . . . . . . . . . . . 16
โข โ
โ ๐ถ |
41 | 39, 40 | eqsstri 4012 |
. . . . . . . . . . . . . . 15
โข ((๐ต ร {โ
}) supp
โ
) โ ๐ถ |
42 | 41 | a1i 11 |
. . . . . . . . . . . . . 14
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
๐ต) โ ((๐ต ร {โ
}) supp
โ
) โ ๐ถ) |
43 | | 0ex 5300 |
. . . . . . . . . . . . . . . . . 18
โข โ
โ V |
44 | 43 | fvconst2 7189 |
. . . . . . . . . . . . . . . . 17
โข (๐ฆ โ ๐ต โ ((๐ต ร {โ
})โ๐ฆ) = โ
) |
45 | 44 | ifeq2d 4542 |
. . . . . . . . . . . . . . . 16
โข (๐ฆ โ ๐ต โ if(๐ฆ = ๐ถ, 1o, ((๐ต ร {โ
})โ๐ฆ)) = if(๐ฆ = ๐ถ, 1o, โ
)) |
46 | 45 | mpteq2ia 5244 |
. . . . . . . . . . . . . . 15
โข (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, ((๐ต ร {โ
})โ๐ฆ))) = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) |
47 | 46 | eqcomi 2740 |
. . . . . . . . . . . . . 14
โข (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, ((๐ต ร {โ
})โ๐ฆ))) |
48 | 1, 28, 29, 36, 37, 38, 42, 47 | cantnfp1 9658 |
. . . . . . . . . . . . 13
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
๐ต) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ dom (๐ด CNF ๐ต) โง ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) = (((๐ด โo ๐ถ) ยทo
1o) +o ((๐ด CNF ๐ต)โ(๐ต ร {โ
}))))) |
49 | 48 | simprd 496 |
. . . . . . . . . . . 12
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
๐ต) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) = (((๐ด โo ๐ถ) ยทo
1o) +o ((๐ด CNF ๐ต)โ(๐ต ร {โ
})))) |
50 | 49 | adantrl 714 |
. . . . . . . . . . 11
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐ถ โ ๐ต)) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) = (((๐ด โo ๐ถ) ยทo
1o) +o ((๐ด CNF ๐ต)โ(๐ต ร {โ
})))) |
51 | | oecl 8519 |
. . . . . . . . . . . . . . . 16
โข ((๐ด โ On โง ๐ถ โ On) โ (๐ด โo ๐ถ) โ On) |
52 | 3, 51 | sylan 580 |
. . . . . . . . . . . . . . 15
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โ (๐ด
โo ๐ถ)
โ On) |
53 | | om1 8525 |
. . . . . . . . . . . . . . 15
โข ((๐ด โo ๐ถ) โ On โ ((๐ด โo ๐ถ) ยทo
1o) = (๐ด
โo ๐ถ)) |
54 | 52, 53 | syl 17 |
. . . . . . . . . . . . . 14
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โ ((๐ด
โo ๐ถ)
ยทo 1o) = (๐ด โo ๐ถ)) |
55 | 1, 3, 4, 15 | cantnf0 9652 |
. . . . . . . . . . . . . . 15
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ ((๐ด CNF
๐ต)โ(๐ต ร {โ
})) =
โ
) |
56 | 55 | adantr 481 |
. . . . . . . . . . . . . 14
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โ ((๐ด CNF ๐ต)โ(๐ต ร {โ
})) =
โ
) |
57 | 54, 56 | oveq12d 7411 |
. . . . . . . . . . . . 13
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โ (((๐ด
โo ๐ถ)
ยทo 1o) +o ((๐ด CNF ๐ต)โ(๐ต ร {โ
}))) = ((๐ด โo ๐ถ) +o โ
)) |
58 | | oa0 8498 |
. . . . . . . . . . . . . 14
โข ((๐ด โo ๐ถ) โ On โ ((๐ด โo ๐ถ) +o โ
) =
(๐ด โo ๐ถ)) |
59 | 52, 58 | syl 17 |
. . . . . . . . . . . . 13
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โ ((๐ด
โo ๐ถ)
+o โ
) = (๐ด
โo ๐ถ)) |
60 | 57, 59 | eqtrd 2771 |
. . . . . . . . . . . 12
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โ (((๐ด
โo ๐ถ)
ยทo 1o) +o ((๐ด CNF ๐ต)โ(๐ต ร {โ
}))) = (๐ด โo ๐ถ)) |
61 | 60 | adantrr 715 |
. . . . . . . . . . 11
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐ถ โ ๐ต)) โ (((๐ด โo ๐ถ) ยทo 1o)
+o ((๐ด CNF ๐ต)โ(๐ต ร {โ
}))) = (๐ด โo ๐ถ)) |
62 | 50, 61 | eqtrd 2771 |
. . . . . . . . . 10
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐ถ โ ๐ต)) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) = (๐ด โo ๐ถ)) |
63 | 62 | eleq2d 2818 |
. . . . . . . . 9
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐ถ โ ๐ต)) โ (((๐ด CNF ๐ต)โ๐น) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) โ ((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ))) |
64 | 63 | exp32 421 |
. . . . . . . 8
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐ถ โ
On โ (๐ถ โ ๐ต โ (((๐ด CNF ๐ต)โ๐น) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) โ ((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ))))) |
65 | 64 | adantrd 492 |
. . . . . . 7
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ ((๐ถ
โ On โง ๐น โ
dom (๐ด CNF ๐ต)) โ (๐ถ โ ๐ต โ (((๐ด CNF ๐ต)โ๐น) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) โ ((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ))))) |
66 | 65 | imp31 418 |
. . . . . 6
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง ๐ถ โ ๐ต) โ (((๐ด CNF ๐ต)โ๐น) โ ((๐ด CNF ๐ต)โ(๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))) โ ((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ))) |
67 | 24, 27, 66 | 3bitrrd 305 |
. . . . 5
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง ๐ถ โ ๐ต) โ (((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ) โ ๐น{โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o,
โ
)))) |
68 | | fveq1 6877 |
. . . . . . . . . . 11
โข (๐ = ๐น โ (๐โ๐) = (๐นโ๐)) |
69 | 68 | eleq1d 2817 |
. . . . . . . . . 10
โข (๐ = ๐น โ ((๐โ๐) โ (๐โ๐) โ (๐นโ๐) โ (๐โ๐))) |
70 | | fveq1 6877 |
. . . . . . . . . . . . 13
โข (๐ = ๐น โ (๐โ๐ฅ) = (๐นโ๐ฅ)) |
71 | 70 | eqeq1d 2733 |
. . . . . . . . . . . 12
โข (๐ = ๐น โ ((๐โ๐ฅ) = (๐โ๐ฅ) โ (๐นโ๐ฅ) = (๐โ๐ฅ))) |
72 | 71 | imbi2d 340 |
. . . . . . . . . . 11
โข (๐ = ๐น โ ((๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)) โ (๐ โ ๐ฅ โ (๐นโ๐ฅ) = (๐โ๐ฅ)))) |
73 | 72 | ralbidv 3176 |
. . . . . . . . . 10
โข (๐ = ๐น โ (โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)) โ โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = (๐โ๐ฅ)))) |
74 | 69, 73 | anbi12d 631 |
. . . . . . . . 9
โข (๐ = ๐น โ (((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ))) โ ((๐นโ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = (๐โ๐ฅ))))) |
75 | 74 | rexbidv 3177 |
. . . . . . . 8
โข (๐ = ๐น โ (โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ))) โ โ๐ โ ๐ต ((๐นโ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = (๐โ๐ฅ))))) |
76 | | fveq1 6877 |
. . . . . . . . . . 11
โข (๐ = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ (๐โ๐) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐)) |
77 | 76 | eleq2d 2818 |
. . . . . . . . . 10
โข (๐ = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ ((๐นโ๐) โ (๐โ๐) โ (๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐))) |
78 | | fveq1 6877 |
. . . . . . . . . . . . 13
โข (๐ = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ (๐โ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) |
79 | 78 | eqeq2d 2742 |
. . . . . . . . . . . 12
โข (๐ = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ ((๐นโ๐ฅ) = (๐โ๐ฅ) โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))) |
80 | 79 | imbi2d 340 |
. . . . . . . . . . 11
โข (๐ = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ ((๐ โ ๐ฅ โ (๐นโ๐ฅ) = (๐โ๐ฅ)) โ (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)))) |
81 | 80 | ralbidv 3176 |
. . . . . . . . . 10
โข (๐ = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ
(โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = (๐โ๐ฅ)) โ โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)))) |
82 | 77, 81 | anbi12d 631 |
. . . . . . . . 9
โข (๐ = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ (((๐นโ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = (๐โ๐ฅ))) โ ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))))) |
83 | 82 | rexbidv 3177 |
. . . . . . . 8
โข (๐ = (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ
(โ๐ โ ๐ต ((๐นโ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = (๐โ๐ฅ))) โ โ๐ โ ๐ต ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))))) |
84 | 75, 83, 5 | bropabg 41844 |
. . . . . . 7
โข (๐น{โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ ((๐น โ V โง (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ V) โง
โ๐ โ ๐ต ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))))) |
85 | | fveq2 6878 |
. . . . . . . . . . . . . . . . . 18
โข (๐ = ๐ถ โ (๐นโ๐) = (๐นโ๐ถ)) |
86 | 85 | adantr 481 |
. . . . . . . . . . . . . . . . 17
โข ((๐ = ๐ถ โง ๐ โ ๐ต) โ (๐นโ๐) = (๐นโ๐ถ)) |
87 | | eqeq1 2735 |
. . . . . . . . . . . . . . . . . . . 20
โข (๐ฆ = ๐ โ (๐ฆ = ๐ถ โ ๐ = ๐ถ)) |
88 | 87 | ifbid 4545 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ฆ = ๐ โ if(๐ฆ = ๐ถ, 1o, โ
) = if(๐ = ๐ถ, 1o, โ
)) |
89 | | 1oex 8458 |
. . . . . . . . . . . . . . . . . . . 20
โข
1o โ V |
90 | 89, 43 | ifex 4572 |
. . . . . . . . . . . . . . . . . . 19
โข if(๐ = ๐ถ, 1o, โ
) โ
V |
91 | 88, 16, 90 | fvmpt 6984 |
. . . . . . . . . . . . . . . . . 18
โข (๐ โ ๐ต โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) = if(๐ = ๐ถ, 1o, โ
)) |
92 | | iftrue 4528 |
. . . . . . . . . . . . . . . . . 18
โข (๐ = ๐ถ โ if(๐ = ๐ถ, 1o, โ
) =
1o) |
93 | 91, 92 | sylan9eqr 2793 |
. . . . . . . . . . . . . . . . 17
โข ((๐ = ๐ถ โง ๐ โ ๐ต) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) =
1o) |
94 | 86, 93 | eleq12d 2826 |
. . . . . . . . . . . . . . . 16
โข ((๐ = ๐ถ โง ๐ โ ๐ต) โ ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โ (๐นโ๐ถ) โ 1o)) |
95 | | el1o 8477 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐นโ๐ถ) โ 1o โ (๐นโ๐ถ) = โ
) |
96 | 95 | a1i 11 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = ๐ถ โง ๐ โ ๐ต) โ ((๐นโ๐ถ) โ 1o โ (๐นโ๐ถ) = โ
)) |
97 | 96 | biimpd 228 |
. . . . . . . . . . . . . . . . 17
โข ((๐ = ๐ถ โง ๐ โ ๐ต) โ ((๐นโ๐ถ) โ 1o โ (๐นโ๐ถ) = โ
)) |
98 | | simpl 483 |
. . . . . . . . . . . . . . . . 17
โข ((๐ = ๐ถ โง ๐ โ ๐ต) โ ๐ = ๐ถ) |
99 | 97, 98 | jctild 526 |
. . . . . . . . . . . . . . . 16
โข ((๐ = ๐ถ โง ๐ โ ๐ต) โ ((๐นโ๐ถ) โ 1o โ (๐ = ๐ถ โง (๐นโ๐ถ) = โ
))) |
100 | 94, 99 | sylbid 239 |
. . . . . . . . . . . . . . 15
โข ((๐ = ๐ถ โง ๐ โ ๐ต) โ ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โ (๐ = ๐ถ โง (๐นโ๐ถ) = โ
))) |
101 | 100 | expimpd 454 |
. . . . . . . . . . . . . 14
โข (๐ = ๐ถ โ ((๐ โ ๐ต โง (๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐)) โ (๐ = ๐ถ โง (๐นโ๐ถ) = โ
))) |
102 | 91 | adantl 482 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ โ ๐ถ โง ๐ โ ๐ต) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) = if(๐ = ๐ถ, 1o, โ
)) |
103 | | simpl 483 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((๐ โ ๐ถ โง ๐ โ ๐ต) โ ๐ โ ๐ถ) |
104 | 103 | neneqd 2944 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ โ ๐ถ โง ๐ โ ๐ต) โ ยฌ ๐ = ๐ถ) |
105 | 104 | iffalsed 4533 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ โ ๐ถ โง ๐ โ ๐ต) โ if(๐ = ๐ถ, 1o, โ
) =
โ
) |
106 | 102, 105 | eqtrd 2771 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ โ ๐ถ โง ๐ โ ๐ต) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) = โ
) |
107 | 106 | eleq2d 2818 |
. . . . . . . . . . . . . . . . 17
โข ((๐ โ ๐ถ โง ๐ โ ๐ต) โ ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โ (๐นโ๐) โ โ
)) |
108 | 107 | biimpd 228 |
. . . . . . . . . . . . . . . 16
โข ((๐ โ ๐ถ โง ๐ โ ๐ต) โ ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โ (๐นโ๐) โ โ
)) |
109 | 108 | expimpd 454 |
. . . . . . . . . . . . . . 15
โข (๐ โ ๐ถ โ ((๐ โ ๐ต โง (๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐)) โ (๐นโ๐) โ โ
)) |
110 | | noel 4326 |
. . . . . . . . . . . . . . . 16
โข ยฌ
(๐นโ๐) โ โ
|
111 | 110 | pm2.21i 119 |
. . . . . . . . . . . . . . 15
โข ((๐นโ๐) โ โ
โ (๐ = ๐ถ โง (๐นโ๐ถ) = โ
)) |
112 | 109, 111 | syl6 35 |
. . . . . . . . . . . . . 14
โข (๐ โ ๐ถ โ ((๐ โ ๐ต โง (๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐)) โ (๐ = ๐ถ โง (๐นโ๐ถ) = โ
))) |
113 | 101, 112 | pm2.61ine 3024 |
. . . . . . . . . . . . 13
โข ((๐ โ ๐ต โง (๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐)) โ (๐ = ๐ถ โง (๐นโ๐ถ) = โ
)) |
114 | 113 | a1i 11 |
. . . . . . . . . . . 12
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โง ๐ถ โ ๐ต) โ ((๐ โ ๐ต โง (๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐)) โ (๐ = ๐ถ โง (๐นโ๐ถ) = โ
))) |
115 | | fveqeq2 6887 |
. . . . . . . . . . . . . . . 16
โข (๐ฅ = ๐ถ โ ((๐นโ๐ฅ) = โ
โ (๐นโ๐ถ) = โ
)) |
116 | 115 | ralsng 4670 |
. . . . . . . . . . . . . . 15
โข (๐ถ โ ๐ต โ (โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
โ (๐นโ๐ถ) = โ
)) |
117 | 116 | anbi2d 629 |
. . . . . . . . . . . . . 14
โข (๐ถ โ ๐ต โ ((๐ = ๐ถ โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
) โ (๐ = ๐ถ โง (๐นโ๐ถ) = โ
))) |
118 | 117 | biimprd 247 |
. . . . . . . . . . . . 13
โข (๐ถ โ ๐ต โ ((๐ = ๐ถ โง (๐นโ๐ถ) = โ
) โ (๐ = ๐ถ โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
))) |
119 | 118 | adantl 482 |
. . . . . . . . . . . 12
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โง ๐ถ โ ๐ต) โ ((๐ = ๐ถ โง (๐นโ๐ถ) = โ
) โ (๐ = ๐ถ โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
))) |
120 | 4 | anim1i 615 |
. . . . . . . . . . . . . . . . 17
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โ (๐ต โ On
โง ๐ถ โ
On)) |
121 | 120 | adantr 481 |
. . . . . . . . . . . . . . . 16
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โง ๐ถ โ ๐ต) โ (๐ต โ On โง ๐ถ โ On)) |
122 | | pm3.31 450 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ฅ โ ๐ต โ (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))) โ ((๐ฅ โ ๐ต โง ๐ โ ๐ฅ) โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))) |
123 | 122 | a1i 11 |
. . . . . . . . . . . . . . . . . 18
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ ((๐ฅ โ ๐ต โ (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))) โ ((๐ฅ โ ๐ต โง ๐ โ ๐ฅ) โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)))) |
124 | | eldif 3954 |
. . . . . . . . . . . . . . . . . . . . 21
โข (๐ฅ โ (๐ต โ suc ๐ถ) โ (๐ฅ โ ๐ต โง ยฌ ๐ฅ โ suc ๐ถ)) |
125 | | simplr 767 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ ๐ต) โ ๐ = ๐ถ) |
126 | 125 | eleq1d 2817 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ ๐ต) โ (๐ โ ๐ฅ โ ๐ถ โ ๐ฅ)) |
127 | | simpl 483 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
โข ((๐ต โ On โง ๐ถ โ On) โ ๐ต โ On) |
128 | 127 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ ๐ต โ On) |
129 | | onelon 6378 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข ((๐ต โ On โง ๐ฅ โ ๐ต) โ ๐ฅ โ On) |
130 | 128, 129 | sylan 580 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ ๐ต) โ ๐ฅ โ On) |
131 | | simpllr 774 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ ๐ต) โ ๐ถ โ On) |
132 | | ontri1 6387 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((๐ฅ โ On โง ๐ถ โ On) โ (๐ฅ โ ๐ถ โ ยฌ ๐ถ โ ๐ฅ)) |
133 | 130, 131,
132 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ ๐ต) โ (๐ฅ โ ๐ถ โ ยฌ ๐ถ โ ๐ฅ)) |
134 | 133 | con2bid 354 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ ๐ต) โ (๐ถ โ ๐ฅ โ ยฌ ๐ฅ โ ๐ถ)) |
135 | | onsssuc 6443 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((๐ฅ โ On โง ๐ถ โ On) โ (๐ฅ โ ๐ถ โ ๐ฅ โ suc ๐ถ)) |
136 | 130, 131,
135 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ ๐ต) โ (๐ฅ โ ๐ถ โ ๐ฅ โ suc ๐ถ)) |
137 | 136 | notbid 317 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ ๐ต) โ (ยฌ ๐ฅ โ ๐ถ โ ยฌ ๐ฅ โ suc ๐ถ)) |
138 | 126, 134,
137 | 3bitrrd 305 |
. . . . . . . . . . . . . . . . . . . . . 22
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ ๐ต) โ (ยฌ ๐ฅ โ suc ๐ถ โ ๐ โ ๐ฅ)) |
139 | 138 | pm5.32da 579 |
. . . . . . . . . . . . . . . . . . . . 21
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ ((๐ฅ โ ๐ต โง ยฌ ๐ฅ โ suc ๐ถ) โ (๐ฅ โ ๐ต โง ๐ โ ๐ฅ))) |
140 | 124, 139 | bitrid 282 |
. . . . . . . . . . . . . . . . . . . 20
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ (๐ฅ โ (๐ต โ suc ๐ถ) โ (๐ฅ โ ๐ต โง ๐ โ ๐ฅ))) |
141 | 140 | biimpd 228 |
. . . . . . . . . . . . . . . . . . 19
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ (๐ฅ โ (๐ต โ suc ๐ถ) โ (๐ฅ โ ๐ต โง ๐ โ ๐ฅ))) |
142 | 141 | imim1d 82 |
. . . . . . . . . . . . . . . . . 18
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ (((๐ฅ โ ๐ต โง ๐ โ ๐ฅ) โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) โ (๐ฅ โ (๐ต โ suc ๐ถ) โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)))) |
143 | | eldifi 4122 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข (๐ฅ โ (๐ต โ suc ๐ถ) โ ๐ฅ โ ๐ต) |
144 | 143 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ ๐ฅ โ ๐ต) |
145 | | eqeq1 2735 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข (๐ฆ = ๐ฅ โ (๐ฆ = ๐ถ โ ๐ฅ = ๐ถ)) |
146 | 145 | ifbid 4545 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข (๐ฆ = ๐ฅ โ if(๐ฆ = ๐ถ, 1o, โ
) = if(๐ฅ = ๐ถ, 1o, โ
)) |
147 | 89, 43 | ifex 4572 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข if(๐ฅ = ๐ถ, 1o, โ
) โ
V |
148 | 146, 16, 147 | fvmpt 6984 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (๐ฅ โ ๐ต โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ) = if(๐ฅ = ๐ถ, 1o, โ
)) |
149 | 144, 148 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ) = if(๐ฅ = ๐ถ, 1o, โ
)) |
150 | 128, 143,
129 | syl2an 596 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ ๐ฅ โ On) |
151 | | eloni 6363 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข (๐ฅ โ On โ Ord ๐ฅ) |
152 | 150, 151 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ Ord ๐ฅ) |
153 | | eloni 6363 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
โข (๐ต โ On โ Ord ๐ต) |
154 | 153 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ Ord ๐ต) |
155 | | simplr 767 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ ๐ถ โ On) |
156 | | ordeldifsucon 41780 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
โข ((Ord
๐ต โง ๐ถ โ On) โ (๐ฅ โ (๐ต โ suc ๐ถ) โ (๐ฅ โ ๐ต โง ๐ถ โ ๐ฅ))) |
157 | 154, 155,
156 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ (๐ฅ โ (๐ต โ suc ๐ถ) โ (๐ฅ โ ๐ต โง ๐ถ โ ๐ฅ))) |
158 | 157 | biimpa 477 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ (๐ฅ โ ๐ต โง ๐ถ โ ๐ฅ)) |
159 | | ordirr 6371 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
โข (Ord
๐ฅ โ ยฌ ๐ฅ โ ๐ฅ) |
160 | | eleq1 2820 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
โข (๐ฅ = ๐ถ โ (๐ฅ โ ๐ฅ โ ๐ถ โ ๐ฅ)) |
161 | 160 | notbid 317 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
โข (๐ฅ = ๐ถ โ (ยฌ ๐ฅ โ ๐ฅ โ ยฌ ๐ถ โ ๐ฅ)) |
162 | 159, 161 | syl5ibcom 244 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
โข (Ord
๐ฅ โ (๐ฅ = ๐ถ โ ยฌ ๐ถ โ ๐ฅ)) |
163 | 162 | con2d 134 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข (Ord
๐ฅ โ (๐ถ โ ๐ฅ โ ยฌ ๐ฅ = ๐ถ)) |
164 | 163 | adantld 491 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข (Ord
๐ฅ โ ((๐ฅ โ ๐ต โง ๐ถ โ ๐ฅ) โ ยฌ ๐ฅ = ๐ถ)) |
165 | 152, 158,
164 | sylc 65 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ ยฌ ๐ฅ = ๐ถ) |
166 | 165 | iffalsed 4533 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ if(๐ฅ = ๐ถ, 1o, โ
) =
โ
) |
167 | 149, 166 | eqtrd 2771 |
. . . . . . . . . . . . . . . . . . . . . 22
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ) = โ
) |
168 | 167 | eqeq2d 2742 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ ((๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ) โ (๐นโ๐ฅ) = โ
)) |
169 | 168 | biimpd 228 |
. . . . . . . . . . . . . . . . . . . 20
โข ((((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โง ๐ฅ โ (๐ต โ suc ๐ถ)) โ ((๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ) โ (๐นโ๐ฅ) = โ
)) |
170 | 169 | ex 413 |
. . . . . . . . . . . . . . . . . . 19
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ (๐ฅ โ (๐ต โ suc ๐ถ) โ ((๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ) โ (๐นโ๐ฅ) = โ
))) |
171 | 170 | a2d 29 |
. . . . . . . . . . . . . . . . . 18
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ ((๐ฅ โ (๐ต โ suc ๐ถ) โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) โ (๐ฅ โ (๐ต โ suc ๐ถ) โ (๐นโ๐ฅ) = โ
))) |
172 | 123, 142,
171 | 3syld 60 |
. . . . . . . . . . . . . . . . 17
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ ((๐ฅ โ ๐ต โ (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))) โ (๐ฅ โ (๐ต โ suc ๐ถ) โ (๐นโ๐ฅ) = โ
))) |
173 | 172 | ralimdv2 3162 |
. . . . . . . . . . . . . . . 16
โข (((๐ต โ On โง ๐ถ โ On) โง ๐ = ๐ถ) โ (โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) โ โ๐ฅ โ (๐ต โ suc ๐ถ)(๐นโ๐ฅ) = โ
)) |
174 | 121, 173 | sylan 580 |
. . . . . . . . . . . . . . 15
โข
(((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ = ๐ถ) โ (โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) โ โ๐ฅ โ (๐ต โ suc ๐ถ)(๐นโ๐ฅ) = โ
)) |
175 | 174 | adantr 481 |
. . . . . . . . . . . . . 14
โข
((((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ = ๐ถ) โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
) โ (โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) โ โ๐ฅ โ (๐ต โ suc ๐ถ)(๐นโ๐ฅ) = โ
)) |
176 | | ralun 4188 |
. . . . . . . . . . . . . . . . 17
โข
((โ๐ฅ โ
{๐ถ} (๐นโ๐ฅ) = โ
โง โ๐ฅ โ (๐ต โ suc ๐ถ)(๐นโ๐ฅ) = โ
) โ โ๐ฅ โ ({๐ถ} โช (๐ต โ suc ๐ถ))(๐นโ๐ฅ) = โ
) |
177 | 176 | adantll 712 |
. . . . . . . . . . . . . . . 16
โข
(((((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ = ๐ถ) โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
) โง โ๐ฅ โ (๐ต โ suc ๐ถ)(๐นโ๐ฅ) = โ
) โ โ๐ฅ โ ({๐ถ} โช (๐ต โ suc ๐ถ))(๐นโ๐ฅ) = โ
) |
178 | | undif3 4286 |
. . . . . . . . . . . . . . . . . . . . 21
โข ({๐ถ} โช (๐ต โ suc ๐ถ)) = (({๐ถ} โช ๐ต) โ (suc ๐ถ โ {๐ถ})) |
179 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((๐ถ โ On โง ๐ถ โ ๐ต) โ ๐ถ โ ๐ต) |
180 | 179 | snssd 4805 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข ((๐ถ โ On โง ๐ถ โ ๐ต) โ {๐ถ} โ ๐ต) |
181 | | ssequn1 4176 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข ({๐ถ} โ ๐ต โ ({๐ถ} โช ๐ต) = ๐ต) |
182 | 180, 181 | sylib 217 |
. . . . . . . . . . . . . . . . . . . . . 22
โข ((๐ถ โ On โง ๐ถ โ ๐ต) โ ({๐ถ} โช ๐ต) = ๐ต) |
183 | | simpl 483 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((๐ถ โ On โง ๐ถ โ ๐ต) โ ๐ถ โ On) |
184 | | eloni 6363 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (๐ถ โ On โ Ord ๐ถ) |
185 | | orddif 6449 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข (Ord
๐ถ โ ๐ถ = (suc ๐ถ โ {๐ถ})) |
186 | 183, 184,
185 | 3syl 18 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข ((๐ถ โ On โง ๐ถ โ ๐ต) โ ๐ถ = (suc ๐ถ โ {๐ถ})) |
187 | 186 | eqcomd 2737 |
. . . . . . . . . . . . . . . . . . . . . 22
โข ((๐ถ โ On โง ๐ถ โ ๐ต) โ (suc ๐ถ โ {๐ถ}) = ๐ถ) |
188 | 182, 187 | difeq12d 4119 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((๐ถ โ On โง ๐ถ โ ๐ต) โ (({๐ถ} โช ๐ต) โ (suc ๐ถ โ {๐ถ})) = (๐ต โ ๐ถ)) |
189 | 178, 188 | eqtrid 2783 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ถ โ On โง ๐ถ โ ๐ต) โ ({๐ถ} โช (๐ต โ suc ๐ถ)) = (๐ต โ ๐ถ)) |
190 | 189 | adantll 712 |
. . . . . . . . . . . . . . . . . . 19
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โง ๐ถ โ ๐ต) โ ({๐ถ} โช (๐ต โ suc ๐ถ)) = (๐ต โ ๐ถ)) |
191 | 190 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
โข
(((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ = ๐ถ) โ ({๐ถ} โช (๐ต โ suc ๐ถ)) = (๐ต โ ๐ถ)) |
192 | 191 | raleqdv 3324 |
. . . . . . . . . . . . . . . . 17
โข
(((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ = ๐ถ) โ (โ๐ฅ โ ({๐ถ} โช (๐ต โ suc ๐ถ))(๐นโ๐ฅ) = โ
โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
193 | 192 | ad2antrr 724 |
. . . . . . . . . . . . . . . 16
โข
(((((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ = ๐ถ) โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
) โง โ๐ฅ โ (๐ต โ suc ๐ถ)(๐นโ๐ฅ) = โ
) โ (โ๐ฅ โ ({๐ถ} โช (๐ต โ suc ๐ถ))(๐นโ๐ฅ) = โ
โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
194 | 177, 193 | mpbid 231 |
. . . . . . . . . . . . . . 15
โข
(((((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ = ๐ถ) โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
) โง โ๐ฅ โ (๐ต โ suc ๐ถ)(๐นโ๐ฅ) = โ
) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) |
195 | 194 | ex 413 |
. . . . . . . . . . . . . 14
โข
((((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ = ๐ถ) โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
) โ (โ๐ฅ โ (๐ต โ suc ๐ถ)(๐นโ๐ฅ) = โ
โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
196 | 175, 195 | syld 47 |
. . . . . . . . . . . . 13
โข
((((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ = ๐ถ) โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
) โ (โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
197 | 196 | expl 458 |
. . . . . . . . . . . 12
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โง ๐ถ โ ๐ต) โ ((๐ = ๐ถ โง โ๐ฅ โ {๐ถ} (๐นโ๐ฅ) = โ
) โ (โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
))) |
198 | 114, 119,
197 | 3syld 60 |
. . . . . . . . . . 11
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โง ๐ถ โ ๐ต) โ ((๐ โ ๐ต โง (๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐)) โ (โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
))) |
199 | 198 | expdimp 453 |
. . . . . . . . . 10
โข
(((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ โ ๐ต) โ ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โ (โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
))) |
200 | 199 | impd 411 |
. . . . . . . . 9
โข
(((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง ๐ถ โ On) โง ๐ถ โ ๐ต) โง ๐ โ ๐ต) โ (((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
201 | 200 | rexlimdva 3154 |
. . . . . . . 8
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โง ๐ถ โ ๐ต) โ (โ๐ โ ๐ต ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ))) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
202 | 201 | adantld 491 |
. . . . . . 7
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โง ๐ถ โ ๐ต) โ (((๐น โ V โง (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ V) โง
โ๐ โ ๐ต ((๐นโ๐) โ ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐นโ๐ฅ) = ((๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
))โ๐ฅ)))) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
203 | 84, 202 | biimtrid 241 |
. . . . . 6
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง ๐ถ โ
On) โง ๐ถ โ ๐ต) โ (๐น{โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ
โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
204 | 203 | adantlrr 719 |
. . . . 5
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง ๐ถ โ ๐ต) โ (๐น{โจ๐, ๐โฉ โฃ โ๐ โ ๐ต ((๐โ๐) โ (๐โ๐) โง โ๐ฅ โ ๐ต (๐ โ ๐ฅ โ (๐โ๐ฅ) = (๐โ๐ฅ)))} (๐ฆ โ ๐ต โฆ if(๐ฆ = ๐ถ, 1o, โ
)) โ
โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
205 | 67, 204 | sylbid 239 |
. . . 4
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง ๐ถ โ ๐ต) โ (((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
206 | 205 | ex 413 |
. . 3
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โ (๐ถ โ ๐ต โ (((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
))) |
207 | | ral0 4506 |
. . . . 5
โข
โ๐ฅ โ
โ
(๐นโ๐ฅ) = โ
|
208 | | ssdif0 4359 |
. . . . . . 7
โข (๐ต โ ๐ถ โ (๐ต โ ๐ถ) = โ
) |
209 | 208 | biimpi 215 |
. . . . . 6
โข (๐ต โ ๐ถ โ (๐ต โ ๐ถ) = โ
) |
210 | 209 | raleqdv 3324 |
. . . . 5
โข (๐ต โ ๐ถ โ (โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
โ โ๐ฅ โ โ
(๐นโ๐ฅ) = โ
)) |
211 | 207, 210 | mpbiri 257 |
. . . 4
โข (๐ต โ ๐ถ โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) |
212 | 211 | a1i13 27 |
. . 3
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โ (๐ต โ ๐ถ โ (((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
))) |
213 | 184 | adantr 481 |
. . . 4
โข ((๐ถ โ On โง ๐น โ dom (๐ด CNF ๐ต)) โ Ord ๐ถ) |
214 | 153 | adantl 482 |
. . . 4
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ Ord ๐ต) |
215 | | ordtri2or 6451 |
. . . 4
โข ((Ord
๐ถ โง Ord ๐ต) โ (๐ถ โ ๐ต โจ ๐ต โ ๐ถ)) |
216 | 213, 214,
215 | syl2anr 597 |
. . 3
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โ (๐ถ โ ๐ต โจ ๐ต โ ๐ถ)) |
217 | 206, 212,
216 | mpjaod 858 |
. 2
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โ (((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |
218 | 3 | ad2antrr 724 |
. . . 4
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โ ๐ด โ On) |
219 | | simpllr 774 |
. . . 4
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โ ๐ต โ On) |
220 | | simplrr 776 |
. . . 4
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โ ๐น โ dom (๐ด CNF ๐ต)) |
221 | 15 | ad2antrr 724 |
. . . 4
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โ โ
โ ๐ด) |
222 | | simplrl 775 |
. . . 4
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โ ๐ถ โ On) |
223 | 1, 3, 4 | cantnfs 9643 |
. . . . . . . . . 10
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐น โ
dom (๐ด CNF ๐ต) โ (๐น:๐ตโถ๐ด โง ๐น finSupp โ
))) |
224 | 223 | biimpd 228 |
. . . . . . . . 9
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ (๐น โ
dom (๐ด CNF ๐ต) โ (๐น:๐ตโถ๐ด โง ๐น finSupp โ
))) |
225 | 224 | adantld 491 |
. . . . . . . 8
โข ((๐ด โ (On โ
2o) โง ๐ต
โ On) โ ((๐ถ
โ On โง ๐น โ
dom (๐ด CNF ๐ต)) โ (๐น:๐ตโถ๐ด โง ๐น finSupp โ
))) |
226 | 225 | imp 407 |
. . . . . . 7
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โ (๐น:๐ตโถ๐ด โง ๐น finSupp โ
)) |
227 | 226 | simpld 495 |
. . . . . 6
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โ ๐น:๐ตโถ๐ด) |
228 | 227 | adantr 481 |
. . . . 5
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โ ๐น:๐ตโถ๐ด) |
229 | | fveqeq2 6887 |
. . . . . . . 8
โข (๐ฅ = ๐ฆ โ ((๐นโ๐ฅ) = โ
โ (๐นโ๐ฆ) = โ
)) |
230 | 229 | rspccv 3606 |
. . . . . . 7
โข
(โ๐ฅ โ
(๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
โ (๐ฆ โ (๐ต โ ๐ถ) โ (๐นโ๐ฆ) = โ
)) |
231 | 230 | adantl 482 |
. . . . . 6
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โ (๐ฆ โ (๐ต โ ๐ถ) โ (๐นโ๐ฆ) = โ
)) |
232 | 231 | imp 407 |
. . . . 5
โข
(((((๐ด โ (On
โ 2o) โง ๐ต โ On) โง (๐ถ โ On โง ๐น โ dom (๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โง ๐ฆ โ (๐ต โ ๐ถ)) โ (๐นโ๐ฆ) = โ
) |
233 | 228, 232 | suppss 8161 |
. . . 4
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โ (๐น supp โ
) โ ๐ถ) |
234 | 1, 218, 219, 220, 221, 222, 233 | cantnflt2 9650 |
. . 3
โข ((((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โง โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
) โ ((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ)) |
235 | 234 | ex 413 |
. 2
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โ (โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
โ ((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ))) |
236 | 217, 235 | impbid 211 |
1
โข (((๐ด โ (On โ
2o) โง ๐ต
โ On) โง (๐ถ โ
On โง ๐น โ dom
(๐ด CNF ๐ต))) โ (((๐ด CNF ๐ต)โ๐น) โ (๐ด โo ๐ถ) โ โ๐ฅ โ (๐ต โ ๐ถ)(๐นโ๐ฅ) = โ
)) |