Proof of Theorem gsumval3lem1
Step | Hyp | Ref
| Expression |
1 | | gsumval3.h |
. . . . . . 7
⊢ (𝜑 → 𝐻:(1...𝑀)–1-1→𝐴) |
2 | 1 | ad2antrr 758 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → 𝐻:(1...𝑀)–1-1→𝐴) |
3 | | gsumval3.w |
. . . . . . . . 9
⊢ 𝑊 = ((𝐹 ∘ 𝐻) supp 0 ) |
4 | | suppssdm 7195 |
. . . . . . . . 9
⊢ ((𝐹 ∘ 𝐻) supp 0 ) ⊆ dom (𝐹 ∘ 𝐻) |
5 | 3, 4 | eqsstri 3598 |
. . . . . . . 8
⊢ 𝑊 ⊆ dom (𝐹 ∘ 𝐻) |
6 | | gsumval3.f |
. . . . . . . . . 10
⊢ (𝜑 → 𝐹:𝐴⟶𝐵) |
7 | | f1f 6014 |
. . . . . . . . . . 11
⊢ (𝐻:(1...𝑀)–1-1→𝐴 → 𝐻:(1...𝑀)⟶𝐴) |
8 | 1, 7 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐻:(1...𝑀)⟶𝐴) |
9 | | fco 5971 |
. . . . . . . . . 10
⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝐻:(1...𝑀)⟶𝐴) → (𝐹 ∘ 𝐻):(1...𝑀)⟶𝐵) |
10 | 6, 8, 9 | syl2anc 691 |
. . . . . . . . 9
⊢ (𝜑 → (𝐹 ∘ 𝐻):(1...𝑀)⟶𝐵) |
11 | | fdm 5964 |
. . . . . . . . 9
⊢ ((𝐹 ∘ 𝐻):(1...𝑀)⟶𝐵 → dom (𝐹 ∘ 𝐻) = (1...𝑀)) |
12 | 10, 11 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → dom (𝐹 ∘ 𝐻) = (1...𝑀)) |
13 | 5, 12 | syl5sseq 3616 |
. . . . . . 7
⊢ (𝜑 → 𝑊 ⊆ (1...𝑀)) |
14 | 13 | ad2antrr 758 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → 𝑊 ⊆ (1...𝑀)) |
15 | | f1ores 6064 |
. . . . . 6
⊢ ((𝐻:(1...𝑀)–1-1→𝐴 ∧ 𝑊 ⊆ (1...𝑀)) → (𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐻 “ 𝑊)) |
16 | 2, 14, 15 | syl2anc 691 |
. . . . 5
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐻 “ 𝑊)) |
17 | 3 | imaeq2i 5383 |
. . . . . . 7
⊢ (𝐻 “ 𝑊) = (𝐻 “ ((𝐹 ∘ 𝐻) supp 0 )) |
18 | | gsumval3.a |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐴 ∈ 𝑉) |
19 | | fex 6394 |
. . . . . . . . . . 11
⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝐴 ∈ 𝑉) → 𝐹 ∈ V) |
20 | 6, 18, 19 | syl2anc 691 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐹 ∈ V) |
21 | | ovex 6577 |
. . . . . . . . . . . 12
⊢
(1...𝑀) ∈
V |
22 | | fex 6394 |
. . . . . . . . . . . 12
⊢ ((𝐻:(1...𝑀)⟶𝐴 ∧ (1...𝑀) ∈ V) → 𝐻 ∈ V) |
23 | 7, 21, 22 | sylancl 693 |
. . . . . . . . . . 11
⊢ (𝐻:(1...𝑀)–1-1→𝐴 → 𝐻 ∈ V) |
24 | 1, 23 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐻 ∈ V) |
25 | | f1fun 6016 |
. . . . . . . . . . . 12
⊢ (𝐻:(1...𝑀)–1-1→𝐴 → Fun 𝐻) |
26 | 1, 25 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → Fun 𝐻) |
27 | | gsumval3.n |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐹 supp 0 ) ⊆ ran 𝐻) |
28 | 26, 27 | jca 553 |
. . . . . . . . . 10
⊢ (𝜑 → (Fun 𝐻 ∧ (𝐹 supp 0 ) ⊆ ran 𝐻)) |
29 | 20, 24, 28 | jca31 555 |
. . . . . . . . 9
⊢ (𝜑 → ((𝐹 ∈ V ∧ 𝐻 ∈ V) ∧ (Fun 𝐻 ∧ (𝐹 supp 0 ) ⊆ ran 𝐻))) |
30 | 29 | ad2antrr 758 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → ((𝐹 ∈ V ∧ 𝐻 ∈ V) ∧ (Fun 𝐻 ∧ (𝐹 supp 0 ) ⊆ ran 𝐻))) |
31 | | imacosupp 7222 |
. . . . . . . . 9
⊢ ((𝐹 ∈ V ∧ 𝐻 ∈ V) → ((Fun 𝐻 ∧ (𝐹 supp 0 ) ⊆ ran 𝐻) → (𝐻 “ ((𝐹 ∘ 𝐻) supp 0 )) = (𝐹 supp 0 ))) |
32 | 31 | imp 444 |
. . . . . . . 8
⊢ (((𝐹 ∈ V ∧ 𝐻 ∈ V) ∧ (Fun 𝐻 ∧ (𝐹 supp 0 ) ⊆ ran 𝐻)) → (𝐻 “ ((𝐹 ∘ 𝐻) supp 0 )) = (𝐹 supp 0 )) |
33 | 30, 32 | syl 17 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 “ ((𝐹 ∘ 𝐻) supp 0 )) = (𝐹 supp 0 )) |
34 | 17, 33 | syl5eq 2656 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 “ 𝑊) = (𝐹 supp 0 )) |
35 | | f1oeq3 6042 |
. . . . . 6
⊢ ((𝐻 “ 𝑊) = (𝐹 supp 0 ) → ((𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐻 “ 𝑊) ↔ (𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐹 supp 0 ))) |
36 | 34, 35 | syl 17 |
. . . . 5
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → ((𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐻 “ 𝑊) ↔ (𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐹 supp 0 ))) |
37 | 16, 36 | mpbid 221 |
. . . 4
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐹 supp 0 )) |
38 | | isof1o 6473 |
. . . . 5
⊢ (𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊) → 𝑓:(1...(#‘𝑊))–1-1-onto→𝑊) |
39 | 38 | ad2antll 761 |
. . . 4
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → 𝑓:(1...(#‘𝑊))–1-1-onto→𝑊) |
40 | | f1oco 6072 |
. . . 4
⊢ (((𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐹 supp 0 ) ∧ 𝑓:(1...(#‘𝑊))–1-1-onto→𝑊) → ((𝐻 ↾ 𝑊) ∘ 𝑓):(1...(#‘𝑊))–1-1-onto→(𝐹 supp 0 )) |
41 | 37, 39, 40 | syl2anc 691 |
. . 3
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → ((𝐻 ↾ 𝑊) ∘ 𝑓):(1...(#‘𝑊))–1-1-onto→(𝐹 supp 0 )) |
42 | | f1of 6050 |
. . . . 5
⊢ (𝑓:(1...(#‘𝑊))–1-1-onto→𝑊 → 𝑓:(1...(#‘𝑊))⟶𝑊) |
43 | | frn 5966 |
. . . . 5
⊢ (𝑓:(1...(#‘𝑊))⟶𝑊 → ran 𝑓 ⊆ 𝑊) |
44 | 39, 42, 43 | 3syl 18 |
. . . 4
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → ran 𝑓 ⊆ 𝑊) |
45 | | cores 5555 |
. . . 4
⊢ (ran
𝑓 ⊆ 𝑊 → ((𝐻 ↾ 𝑊) ∘ 𝑓) = (𝐻 ∘ 𝑓)) |
46 | | f1oeq1 6040 |
. . . 4
⊢ (((𝐻 ↾ 𝑊) ∘ 𝑓) = (𝐻 ∘ 𝑓) → (((𝐻 ↾ 𝑊) ∘ 𝑓):(1...(#‘𝑊))–1-1-onto→(𝐹 supp 0 ) ↔ (𝐻 ∘ 𝑓):(1...(#‘𝑊))–1-1-onto→(𝐹 supp 0 ))) |
47 | 44, 45, 46 | 3syl 18 |
. . 3
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (((𝐻 ↾ 𝑊) ∘ 𝑓):(1...(#‘𝑊))–1-1-onto→(𝐹 supp 0 ) ↔ (𝐻 ∘ 𝑓):(1...(#‘𝑊))–1-1-onto→(𝐹 supp 0 ))) |
48 | 41, 47 | mpbid 221 |
. 2
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 ∘ 𝑓):(1...(#‘𝑊))–1-1-onto→(𝐹 supp 0 )) |
49 | | fzfi 12633 |
. . . . . . . . . 10
⊢
(1...𝑀) ∈
Fin |
50 | 49 | a1i 11 |
. . . . . . . . 9
⊢ (𝜑 → (1...𝑀) ∈ Fin) |
51 | | fex2 7014 |
. . . . . . . . 9
⊢ ((𝐻:(1...𝑀)⟶𝐴 ∧ (1...𝑀) ∈ Fin ∧ 𝐴 ∈ 𝑉) → 𝐻 ∈ V) |
52 | 8, 50, 18, 51 | syl3anc 1318 |
. . . . . . . 8
⊢ (𝜑 → 𝐻 ∈ V) |
53 | | resexg 5362 |
. . . . . . . 8
⊢ (𝐻 ∈ V → (𝐻 ↾ 𝑊) ∈ V) |
54 | 52, 53 | syl 17 |
. . . . . . 7
⊢ (𝜑 → (𝐻 ↾ 𝑊) ∈ V) |
55 | 54 | ad2antrr 758 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 ↾ 𝑊) ∈ V) |
56 | 3 | a1i 11 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → 𝑊 = ((𝐹 ∘ 𝐻) supp 0 )) |
57 | 56 | imaeq2d 5385 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 “ 𝑊) = (𝐻 “ ((𝐹 ∘ 𝐻) supp 0 ))) |
58 | 20, 52, 28 | jca31 555 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝐹 ∈ V ∧ 𝐻 ∈ V) ∧ (Fun 𝐻 ∧ (𝐹 supp 0 ) ⊆ ran 𝐻))) |
59 | 58 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → ((𝐹 ∈ V ∧ 𝐻 ∈ V) ∧ (Fun 𝐻 ∧ (𝐹 supp 0 ) ⊆ ran 𝐻))) |
60 | 59, 32 | syl 17 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 “ ((𝐹 ∘ 𝐻) supp 0 )) = (𝐹 supp 0 )) |
61 | 57, 60 | eqtrd 2644 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 “ 𝑊) = (𝐹 supp 0 )) |
62 | 61, 35 | syl 17 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → ((𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐻 “ 𝑊) ↔ (𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐹 supp 0 ))) |
63 | 16, 62 | mpbid 221 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐹 supp 0 )) |
64 | | f1oen3g 7857 |
. . . . . 6
⊢ (((𝐻 ↾ 𝑊) ∈ V ∧ (𝐻 ↾ 𝑊):𝑊–1-1-onto→(𝐹 supp 0 )) → 𝑊 ≈ (𝐹 supp 0 )) |
65 | 55, 63, 64 | syl2anc 691 |
. . . . 5
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → 𝑊 ≈ (𝐹 supp 0 )) |
66 | | ssfi 8065 |
. . . . . . . 8
⊢
(((1...𝑀) ∈ Fin
∧ 𝑊 ⊆ (1...𝑀)) → 𝑊 ∈ Fin) |
67 | 49, 13, 66 | sylancr 694 |
. . . . . . 7
⊢ (𝜑 → 𝑊 ∈ Fin) |
68 | 67 | ad2antrr 758 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → 𝑊 ∈ Fin) |
69 | | f1f1orn 6061 |
. . . . . . . . . . . 12
⊢ (𝐻:(1...𝑀)–1-1→𝐴 → 𝐻:(1...𝑀)–1-1-onto→ran
𝐻) |
70 | 1, 69 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐻:(1...𝑀)–1-1-onto→ran
𝐻) |
71 | | f1oen3g 7857 |
. . . . . . . . . . 11
⊢ ((𝐻 ∈ V ∧ 𝐻:(1...𝑀)–1-1-onto→ran
𝐻) → (1...𝑀) ≈ ran 𝐻) |
72 | 52, 70, 71 | syl2anc 691 |
. . . . . . . . . 10
⊢ (𝜑 → (1...𝑀) ≈ ran 𝐻) |
73 | | enfi 8061 |
. . . . . . . . . 10
⊢
((1...𝑀) ≈ ran
𝐻 → ((1...𝑀) ∈ Fin ↔ ran 𝐻 ∈ Fin)) |
74 | 72, 73 | syl 17 |
. . . . . . . . 9
⊢ (𝜑 → ((1...𝑀) ∈ Fin ↔ ran 𝐻 ∈ Fin)) |
75 | 49, 74 | mpbii 222 |
. . . . . . . 8
⊢ (𝜑 → ran 𝐻 ∈ Fin) |
76 | | ssfi 8065 |
. . . . . . . 8
⊢ ((ran
𝐻 ∈ Fin ∧ (𝐹 supp 0 ) ⊆ ran 𝐻) → (𝐹 supp 0 ) ∈
Fin) |
77 | 75, 27, 76 | syl2anc 691 |
. . . . . . 7
⊢ (𝜑 → (𝐹 supp 0 ) ∈
Fin) |
78 | 77 | ad2antrr 758 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐹 supp 0 ) ∈
Fin) |
79 | | hashen 12997 |
. . . . . 6
⊢ ((𝑊 ∈ Fin ∧ (𝐹 supp 0 ) ∈ Fin) →
((#‘𝑊) =
(#‘(𝐹 supp 0 )) ↔
𝑊 ≈ (𝐹 supp 0 ))) |
80 | 68, 78, 79 | syl2anc 691 |
. . . . 5
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → ((#‘𝑊) = (#‘(𝐹 supp 0 )) ↔ 𝑊 ≈ (𝐹 supp 0 ))) |
81 | 65, 80 | mpbird 246 |
. . . 4
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (#‘𝑊) = (#‘(𝐹 supp 0 ))) |
82 | 81 | oveq2d 6565 |
. . 3
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (1...(#‘𝑊)) = (1...(#‘(𝐹 supp 0 )))) |
83 | | f1oeq2 6041 |
. . 3
⊢
((1...(#‘𝑊)) =
(1...(#‘(𝐹 supp 0 ))) →
((𝐻 ∘ 𝑓):(1...(#‘𝑊))–1-1-onto→(𝐹 supp 0 ) ↔ (𝐻 ∘ 𝑓):(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) |
84 | 82, 83 | syl 17 |
. 2
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → ((𝐻 ∘ 𝑓):(1...(#‘𝑊))–1-1-onto→(𝐹 supp 0 ) ↔ (𝐻 ∘ 𝑓):(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 ))) |
85 | 48, 84 | mpbid 221 |
1
⊢ (((𝜑 ∧ 𝑊 ≠ ∅) ∧ (¬ 𝐴 ∈ ran ... ∧ 𝑓 Isom < , <
((1...(#‘𝑊)), 𝑊))) → (𝐻 ∘ 𝑓):(1...(#‘(𝐹 supp 0 )))–1-1-onto→(𝐹 supp 0 )) |