Proof of Theorem oef1o
Step | Hyp | Ref
| Expression |
1 | | eqid 2738 |
. . . . 5
⊢ dom
(𝐶 CNF 𝐷) = dom (𝐶 CNF 𝐷) |
2 | | oef1o.c |
. . . . 5
⊢ (𝜑 → 𝐶 ∈ On) |
3 | | oef1o.d |
. . . . 5
⊢ (𝜑 → 𝐷 ∈ On) |
4 | 1, 2, 3 | cantnff1o 9384 |
. . . 4
⊢ (𝜑 → (𝐶 CNF 𝐷):dom (𝐶 CNF 𝐷)–1-1-onto→(𝐶 ↑o 𝐷)) |
5 | | eqid 2738 |
. . . . . . . 8
⊢ {𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅} = {𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅} |
6 | | eqid 2738 |
. . . . . . . 8
⊢ {𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)} = {𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)} |
7 | | eqid 2738 |
. . . . . . . 8
⊢ (𝐹‘∅) = (𝐹‘∅) |
8 | | oef1o.g |
. . . . . . . . 9
⊢ (𝜑 → 𝐺:𝐵–1-1-onto→𝐷) |
9 | | f1ocnv 6712 |
. . . . . . . . 9
⊢ (𝐺:𝐵–1-1-onto→𝐷 → ◡𝐺:𝐷–1-1-onto→𝐵) |
10 | 8, 9 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → ◡𝐺:𝐷–1-1-onto→𝐵) |
11 | | oef1o.f |
. . . . . . . 8
⊢ (𝜑 → 𝐹:𝐴–1-1-onto→𝐶) |
12 | | oef1o.b |
. . . . . . . 8
⊢ (𝜑 → 𝐵 ∈ On) |
13 | | oef1o.a |
. . . . . . . 8
⊢ (𝜑 → 𝐴 ∈ (On ∖
1o)) |
14 | | ondif1 8293 |
. . . . . . . . . 10
⊢ (𝐴 ∈ (On ∖
1o) ↔ (𝐴
∈ On ∧ ∅ ∈ 𝐴)) |
15 | 14 | simprbi 496 |
. . . . . . . . 9
⊢ (𝐴 ∈ (On ∖
1o) → ∅ ∈ 𝐴) |
16 | 13, 15 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → ∅ ∈ 𝐴) |
17 | 5, 6, 7, 10, 11, 12, 13, 3, 2, 16 | mapfien 9097 |
. . . . . . 7
⊢ (𝜑 → (𝑦 ∈ {𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅} ↦ (𝐹 ∘ (𝑦 ∘ ◡𝐺))):{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→{𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)}) |
18 | | oef1o.k |
. . . . . . . 8
⊢ 𝐾 = (𝑦 ∈ {𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅} ↦ (𝐹 ∘ (𝑦 ∘ ◡𝐺))) |
19 | | f1oeq1 6688 |
. . . . . . . 8
⊢ (𝐾 = (𝑦 ∈ {𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅} ↦ (𝐹 ∘ (𝑦 ∘ ◡𝐺))) → (𝐾:{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→{𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)} ↔ (𝑦 ∈ {𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅} ↦ (𝐹 ∘ (𝑦 ∘ ◡𝐺))):{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→{𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)})) |
20 | 18, 19 | ax-mp 5 |
. . . . . . 7
⊢ (𝐾:{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→{𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)} ↔ (𝑦 ∈ {𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅} ↦ (𝐹 ∘ (𝑦 ∘ ◡𝐺))):{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→{𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)}) |
21 | 17, 20 | sylibr 233 |
. . . . . 6
⊢ (𝜑 → 𝐾:{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→{𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)}) |
22 | | eqid 2738 |
. . . . . . . . 9
⊢ {𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp ∅} = {𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp ∅} |
23 | 22, 2, 3 | cantnfdm 9352 |
. . . . . . . 8
⊢ (𝜑 → dom (𝐶 CNF 𝐷) = {𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp ∅}) |
24 | | oef1o.z |
. . . . . . . . . 10
⊢ (𝜑 → (𝐹‘∅) = ∅) |
25 | 24 | breq2d 5082 |
. . . . . . . . 9
⊢ (𝜑 → (𝑥 finSupp (𝐹‘∅) ↔ 𝑥 finSupp ∅)) |
26 | 25 | rabbidv 3404 |
. . . . . . . 8
⊢ (𝜑 → {𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)} = {𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp ∅}) |
27 | 23, 26 | eqtr4d 2781 |
. . . . . . 7
⊢ (𝜑 → dom (𝐶 CNF 𝐷) = {𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)}) |
28 | 27 | f1oeq3d 6697 |
. . . . . 6
⊢ (𝜑 → (𝐾:{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→dom
(𝐶 CNF 𝐷) ↔ 𝐾:{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→{𝑥 ∈ (𝐶 ↑m 𝐷) ∣ 𝑥 finSupp (𝐹‘∅)})) |
29 | 21, 28 | mpbird 256 |
. . . . 5
⊢ (𝜑 → 𝐾:{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→dom
(𝐶 CNF 𝐷)) |
30 | 13 | eldifad 3895 |
. . . . . . 7
⊢ (𝜑 → 𝐴 ∈ On) |
31 | 5, 30, 12 | cantnfdm 9352 |
. . . . . 6
⊢ (𝜑 → dom (𝐴 CNF 𝐵) = {𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}) |
32 | 31 | f1oeq2d 6696 |
. . . . 5
⊢ (𝜑 → (𝐾:dom (𝐴 CNF 𝐵)–1-1-onto→dom
(𝐶 CNF 𝐷) ↔ 𝐾:{𝑥 ∈ (𝐴 ↑m 𝐵) ∣ 𝑥 finSupp ∅}–1-1-onto→dom
(𝐶 CNF 𝐷))) |
33 | 29, 32 | mpbird 256 |
. . . 4
⊢ (𝜑 → 𝐾:dom (𝐴 CNF 𝐵)–1-1-onto→dom
(𝐶 CNF 𝐷)) |
34 | | f1oco 6722 |
. . . 4
⊢ (((𝐶 CNF 𝐷):dom (𝐶 CNF 𝐷)–1-1-onto→(𝐶 ↑o 𝐷) ∧ 𝐾:dom (𝐴 CNF 𝐵)–1-1-onto→dom
(𝐶 CNF 𝐷)) → ((𝐶 CNF 𝐷) ∘ 𝐾):dom (𝐴 CNF 𝐵)–1-1-onto→(𝐶 ↑o 𝐷)) |
35 | 4, 33, 34 | syl2anc 583 |
. . 3
⊢ (𝜑 → ((𝐶 CNF 𝐷) ∘ 𝐾):dom (𝐴 CNF 𝐵)–1-1-onto→(𝐶 ↑o 𝐷)) |
36 | | eqid 2738 |
. . . . 5
⊢ dom
(𝐴 CNF 𝐵) = dom (𝐴 CNF 𝐵) |
37 | 36, 30, 12 | cantnff1o 9384 |
. . . 4
⊢ (𝜑 → (𝐴 CNF 𝐵):dom (𝐴 CNF 𝐵)–1-1-onto→(𝐴 ↑o 𝐵)) |
38 | | f1ocnv 6712 |
. . . 4
⊢ ((𝐴 CNF 𝐵):dom (𝐴 CNF 𝐵)–1-1-onto→(𝐴 ↑o 𝐵) → ◡(𝐴 CNF 𝐵):(𝐴 ↑o 𝐵)–1-1-onto→dom
(𝐴 CNF 𝐵)) |
39 | 37, 38 | syl 17 |
. . 3
⊢ (𝜑 → ◡(𝐴 CNF 𝐵):(𝐴 ↑o 𝐵)–1-1-onto→dom
(𝐴 CNF 𝐵)) |
40 | | f1oco 6722 |
. . 3
⊢ ((((𝐶 CNF 𝐷) ∘ 𝐾):dom (𝐴 CNF 𝐵)–1-1-onto→(𝐶 ↑o 𝐷) ∧ ◡(𝐴 CNF 𝐵):(𝐴 ↑o 𝐵)–1-1-onto→dom
(𝐴 CNF 𝐵)) → (((𝐶 CNF 𝐷) ∘ 𝐾) ∘ ◡(𝐴 CNF 𝐵)):(𝐴 ↑o 𝐵)–1-1-onto→(𝐶 ↑o 𝐷)) |
41 | 35, 39, 40 | syl2anc 583 |
. 2
⊢ (𝜑 → (((𝐶 CNF 𝐷) ∘ 𝐾) ∘ ◡(𝐴 CNF 𝐵)):(𝐴 ↑o 𝐵)–1-1-onto→(𝐶 ↑o 𝐷)) |
42 | | oef1o.h |
. . 3
⊢ 𝐻 = (((𝐶 CNF 𝐷) ∘ 𝐾) ∘ ◡(𝐴 CNF 𝐵)) |
43 | | f1oeq1 6688 |
. . 3
⊢ (𝐻 = (((𝐶 CNF 𝐷) ∘ 𝐾) ∘ ◡(𝐴 CNF 𝐵)) → (𝐻:(𝐴 ↑o 𝐵)–1-1-onto→(𝐶 ↑o 𝐷) ↔ (((𝐶 CNF 𝐷) ∘ 𝐾) ∘ ◡(𝐴 CNF 𝐵)):(𝐴 ↑o 𝐵)–1-1-onto→(𝐶 ↑o 𝐷))) |
44 | 42, 43 | ax-mp 5 |
. 2
⊢ (𝐻:(𝐴 ↑o 𝐵)–1-1-onto→(𝐶 ↑o 𝐷) ↔ (((𝐶 CNF 𝐷) ∘ 𝐾) ∘ ◡(𝐴 CNF 𝐵)):(𝐴 ↑o 𝐵)–1-1-onto→(𝐶 ↑o 𝐷)) |
45 | 41, 44 | sylibr 233 |
1
⊢ (𝜑 → 𝐻:(𝐴 ↑o 𝐵)–1-1-onto→(𝐶 ↑o 𝐷)) |