Step | Hyp | Ref
| Expression |
1 | | gsumpropd2.b |
. . . . 5
⊢ (𝜑 → (Base‘𝐺) = (Base‘𝐻)) |
2 | 1 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑠 ∈ (Base‘𝐺)) → (Base‘𝐺) = (Base‘𝐻)) |
3 | | gsumpropd2.e |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑠 ∈ (Base‘𝐺) ∧ 𝑡 ∈ (Base‘𝐺))) → (𝑠(+g‘𝐺)𝑡) = (𝑠(+g‘𝐻)𝑡)) |
4 | 3 | eqeq1d 2624 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑠 ∈ (Base‘𝐺) ∧ 𝑡 ∈ (Base‘𝐺))) → ((𝑠(+g‘𝐺)𝑡) = 𝑡 ↔ (𝑠(+g‘𝐻)𝑡) = 𝑡)) |
5 | 3 | oveqrspc2v 6673 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (𝑎 ∈ (Base‘𝐺) ∧ 𝑏 ∈ (Base‘𝐺))) → (𝑎(+g‘𝐺)𝑏) = (𝑎(+g‘𝐻)𝑏)) |
6 | 5 | oveqrspc2v 6673 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (𝑡 ∈ (Base‘𝐺) ∧ 𝑠 ∈ (Base‘𝐺))) → (𝑡(+g‘𝐺)𝑠) = (𝑡(+g‘𝐻)𝑠)) |
7 | 6 | ancom2s 844 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑠 ∈ (Base‘𝐺) ∧ 𝑡 ∈ (Base‘𝐺))) → (𝑡(+g‘𝐺)𝑠) = (𝑡(+g‘𝐻)𝑠)) |
8 | 7 | eqeq1d 2624 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑠 ∈ (Base‘𝐺) ∧ 𝑡 ∈ (Base‘𝐺))) → ((𝑡(+g‘𝐺)𝑠) = 𝑡 ↔ (𝑡(+g‘𝐻)𝑠) = 𝑡)) |
9 | 4, 8 | anbi12d 747 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑠 ∈ (Base‘𝐺) ∧ 𝑡 ∈ (Base‘𝐺))) → (((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡) ↔ ((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡))) |
10 | 9 | anassrs 680 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑠 ∈ (Base‘𝐺)) ∧ 𝑡 ∈ (Base‘𝐺)) → (((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡) ↔ ((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡))) |
11 | 2, 10 | raleqbidva 3154 |
. . . . 5
⊢ ((𝜑 ∧ 𝑠 ∈ (Base‘𝐺)) → (∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡) ↔ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡))) |
12 | 1, 11 | rabeqbidva 3196 |
. . . 4
⊢ (𝜑 → {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)} = {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)}) |
13 | 12 | sseq2d 3633 |
. . 3
⊢ (𝜑 → (ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)} ↔ ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)})) |
14 | | eqidd 2623 |
. . . 4
⊢ (𝜑 → (Base‘𝐺) = (Base‘𝐺)) |
15 | 14, 1, 3 | grpidpropd 17261 |
. . 3
⊢ (𝜑 → (0g‘𝐺) = (0g‘𝐻)) |
16 | | simprl 794 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) → 𝑛 ∈ (ℤ≥‘𝑚)) |
17 | | gsumpropd2.r |
. . . . . . . . . . . . 13
⊢ (𝜑 → ran 𝐹 ⊆ (Base‘𝐺)) |
18 | 17 | ad2antrr 762 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) ∧ 𝑠 ∈ (𝑚...𝑛)) → ran 𝐹 ⊆ (Base‘𝐺)) |
19 | | gsumpropd2.n |
. . . . . . . . . . . . . 14
⊢ (𝜑 → Fun 𝐹) |
20 | 19 | ad2antrr 762 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) ∧ 𝑠 ∈ (𝑚...𝑛)) → Fun 𝐹) |
21 | | simpr 477 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) ∧ 𝑠 ∈ (𝑚...𝑛)) → 𝑠 ∈ (𝑚...𝑛)) |
22 | | simplrr 801 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) ∧ 𝑠 ∈ (𝑚...𝑛)) → dom 𝐹 = (𝑚...𝑛)) |
23 | 21, 22 | eleqtrrd 2704 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) ∧ 𝑠 ∈ (𝑚...𝑛)) → 𝑠 ∈ dom 𝐹) |
24 | | fvelrn 6352 |
. . . . . . . . . . . . 13
⊢ ((Fun
𝐹 ∧ 𝑠 ∈ dom 𝐹) → (𝐹‘𝑠) ∈ ran 𝐹) |
25 | 20, 23, 24 | syl2anc 693 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) ∧ 𝑠 ∈ (𝑚...𝑛)) → (𝐹‘𝑠) ∈ ran 𝐹) |
26 | 18, 25 | sseldd 3604 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) ∧ 𝑠 ∈ (𝑚...𝑛)) → (𝐹‘𝑠) ∈ (Base‘𝐺)) |
27 | | gsumpropd2.c |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (𝑠 ∈ (Base‘𝐺) ∧ 𝑡 ∈ (Base‘𝐺))) → (𝑠(+g‘𝐺)𝑡) ∈ (Base‘𝐺)) |
28 | 27 | adantlr 751 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) ∧ (𝑠 ∈ (Base‘𝐺) ∧ 𝑡 ∈ (Base‘𝐺))) → (𝑠(+g‘𝐺)𝑡) ∈ (Base‘𝐺)) |
29 | 3 | adantlr 751 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) ∧ (𝑠 ∈ (Base‘𝐺) ∧ 𝑡 ∈ (Base‘𝐺))) → (𝑠(+g‘𝐺)𝑡) = (𝑠(+g‘𝐻)𝑡)) |
30 | 16, 26, 28, 29 | seqfeq4 12850 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) → (seq𝑚((+g‘𝐺), 𝐹)‘𝑛) = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛)) |
31 | 30 | eqeq2d 2632 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑚) ∧ dom 𝐹 = (𝑚...𝑛))) → (𝑥 = (seq𝑚((+g‘𝐺), 𝐹)‘𝑛) ↔ 𝑥 = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛))) |
32 | 31 | anassrs 680 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑚)) ∧ dom 𝐹 = (𝑚...𝑛)) → (𝑥 = (seq𝑚((+g‘𝐺), 𝐹)‘𝑛) ↔ 𝑥 = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛))) |
33 | 32 | pm5.32da 673 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑚)) → ((dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐺), 𝐹)‘𝑛)) ↔ (dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛)))) |
34 | 33 | rexbidva 3049 |
. . . . . 6
⊢ (𝜑 → (∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐺), 𝐹)‘𝑛)) ↔ ∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛)))) |
35 | 34 | exbidv 1850 |
. . . . 5
⊢ (𝜑 → (∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐺), 𝐹)‘𝑛)) ↔ ∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛)))) |
36 | 35 | iotabidv 5872 |
. . . 4
⊢ (𝜑 → (℩𝑥∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐺), 𝐹)‘𝑛))) = (℩𝑥∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛)))) |
37 | 12 | difeq2d 3728 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)}) = (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)})) |
38 | 37 | imaeq2d 5466 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (◡𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)})) = (◡𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)}))) |
39 | | gsumprop2dlem.1 |
. . . . . . . . . . . . . 14
⊢ 𝐴 = (◡𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)})) |
40 | | gsumprop2dlem.2 |
. . . . . . . . . . . . . 14
⊢ 𝐵 = (◡𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)})) |
41 | 38, 39, 40 | 3eqtr4g 2681 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐴 = 𝐵) |
42 | 41 | fveq2d 6195 |
. . . . . . . . . . . 12
⊢ (𝜑 → (#‘𝐴) = (#‘𝐵)) |
43 | 42 | fveq2d 6195 |
. . . . . . . . . . 11
⊢ (𝜑 →
(seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴)) = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐵))) |
44 | 43 | adantr 481 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) →
(seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴)) = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐵))) |
45 | | simpr 477 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) → (#‘𝐵) ∈
(ℤ≥‘1)) |
46 | 17 | ad3antrrr 766 |
. . . . . . . . . . . . 13
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → ran 𝐹 ⊆ (Base‘𝐺)) |
47 | | f1ofun 6139 |
. . . . . . . . . . . . . . . 16
⊢ (𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 → Fun 𝑓) |
48 | 47 | ad3antlr 767 |
. . . . . . . . . . . . . . 15
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → Fun 𝑓) |
49 | | simpr 477 |
. . . . . . . . . . . . . . . 16
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → 𝑎 ∈ (1...(#‘𝐵))) |
50 | | f1odm 6141 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 → dom 𝑓 = (1...(#‘𝐴))) |
51 | 50 | ad3antlr 767 |
. . . . . . . . . . . . . . . . 17
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → dom 𝑓 = (1...(#‘𝐴))) |
52 | 42 | oveq2d 6666 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → (1...(#‘𝐴)) = (1...(#‘𝐵))) |
53 | 52 | ad3antrrr 766 |
. . . . . . . . . . . . . . . . 17
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → (1...(#‘𝐴)) = (1...(#‘𝐵))) |
54 | 51, 53 | eqtrd 2656 |
. . . . . . . . . . . . . . . 16
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → dom 𝑓 = (1...(#‘𝐵))) |
55 | 49, 54 | eleqtrrd 2704 |
. . . . . . . . . . . . . . 15
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → 𝑎 ∈ dom 𝑓) |
56 | | fvco 6274 |
. . . . . . . . . . . . . . 15
⊢ ((Fun
𝑓 ∧ 𝑎 ∈ dom 𝑓) → ((𝐹 ∘ 𝑓)‘𝑎) = (𝐹‘(𝑓‘𝑎))) |
57 | 48, 55, 56 | syl2anc 693 |
. . . . . . . . . . . . . 14
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → ((𝐹 ∘ 𝑓)‘𝑎) = (𝐹‘(𝑓‘𝑎))) |
58 | 19 | ad3antrrr 766 |
. . . . . . . . . . . . . . 15
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → Fun 𝐹) |
59 | | difpreima 6343 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (Fun
𝐹 → (◡𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)})) = ((◡𝐹 “ V) ∖ (◡𝐹 “ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)}))) |
60 | 19, 59 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (◡𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)})) = ((◡𝐹 “ V) ∖ (◡𝐹 “ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)}))) |
61 | 39, 60 | syl5eq 2668 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 𝐴 = ((◡𝐹 “ V) ∖ (◡𝐹 “ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)}))) |
62 | | difss 3737 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((◡𝐹 “ V) ∖ (◡𝐹 “ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)})) ⊆ (◡𝐹 “ V) |
63 | 61, 62 | syl6eqss 3655 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → 𝐴 ⊆ (◡𝐹 “ V)) |
64 | | dfdm4 5316 |
. . . . . . . . . . . . . . . . . . 19
⊢ dom 𝐹 = ran ◡𝐹 |
65 | | dfrn4 5595 |
. . . . . . . . . . . . . . . . . . 19
⊢ ran ◡𝐹 = (◡𝐹 “ V) |
66 | 64, 65 | eqtri 2644 |
. . . . . . . . . . . . . . . . . 18
⊢ dom 𝐹 = (◡𝐹 “ V) |
67 | 63, 66 | syl6sseqr 3652 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → 𝐴 ⊆ dom 𝐹) |
68 | 67 | ad3antrrr 766 |
. . . . . . . . . . . . . . . 16
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → 𝐴 ⊆ dom 𝐹) |
69 | | f1of 6137 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 → 𝑓:(1...(#‘𝐴))⟶𝐴) |
70 | 69 | ad3antlr 767 |
. . . . . . . . . . . . . . . . 17
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → 𝑓:(1...(#‘𝐴))⟶𝐴) |
71 | 49, 53 | eleqtrrd 2704 |
. . . . . . . . . . . . . . . . 17
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → 𝑎 ∈ (1...(#‘𝐴))) |
72 | 70, 71 | ffvelrnd 6360 |
. . . . . . . . . . . . . . . 16
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → (𝑓‘𝑎) ∈ 𝐴) |
73 | 68, 72 | sseldd 3604 |
. . . . . . . . . . . . . . 15
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → (𝑓‘𝑎) ∈ dom 𝐹) |
74 | | fvelrn 6352 |
. . . . . . . . . . . . . . 15
⊢ ((Fun
𝐹 ∧ (𝑓‘𝑎) ∈ dom 𝐹) → (𝐹‘(𝑓‘𝑎)) ∈ ran 𝐹) |
75 | 58, 73, 74 | syl2anc 693 |
. . . . . . . . . . . . . 14
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → (𝐹‘(𝑓‘𝑎)) ∈ ran 𝐹) |
76 | 57, 75 | eqeltrd 2701 |
. . . . . . . . . . . . 13
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → ((𝐹 ∘ 𝑓)‘𝑎) ∈ ran 𝐹) |
77 | 46, 76 | sseldd 3604 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ 𝑎 ∈ (1...(#‘𝐵))) → ((𝐹 ∘ 𝑓)‘𝑎) ∈ (Base‘𝐺)) |
78 | | simpll 790 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) → 𝜑) |
79 | 27 | caovclg 6826 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ (𝑎 ∈ (Base‘𝐺) ∧ 𝑏 ∈ (Base‘𝐺))) → (𝑎(+g‘𝐺)𝑏) ∈ (Base‘𝐺)) |
80 | 78, 79 | sylan 488 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ (𝑎 ∈ (Base‘𝐺) ∧ 𝑏 ∈ (Base‘𝐺))) → (𝑎(+g‘𝐺)𝑏) ∈ (Base‘𝐺)) |
81 | 78, 5 | sylan 488 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) ∧ (𝑎 ∈ (Base‘𝐺) ∧ 𝑏 ∈ (Base‘𝐺))) → (𝑎(+g‘𝐺)𝑏) = (𝑎(+g‘𝐻)𝑏)) |
82 | 45, 77, 80, 81 | seqfeq4 12850 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ (#‘𝐵) ∈
(ℤ≥‘1)) → (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐵)) = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))) |
83 | | simpr 477 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ ¬ (#‘𝐵) ∈
(ℤ≥‘1)) → ¬ (#‘𝐵) ∈
(ℤ≥‘1)) |
84 | | 1z 11407 |
. . . . . . . . . . . . . . . . 17
⊢ 1 ∈
ℤ |
85 | | seqfn 12813 |
. . . . . . . . . . . . . . . . 17
⊢ (1 ∈
ℤ → seq1((+g‘𝐺), (𝐹 ∘ 𝑓)) Fn
(ℤ≥‘1)) |
86 | | fndm 5990 |
. . . . . . . . . . . . . . . . 17
⊢
(seq1((+g‘𝐺), (𝐹 ∘ 𝑓)) Fn (ℤ≥‘1) →
dom seq1((+g‘𝐺), (𝐹 ∘ 𝑓)) =
(ℤ≥‘1)) |
87 | 84, 85, 86 | mp2b 10 |
. . . . . . . . . . . . . . . 16
⊢ dom
seq1((+g‘𝐺), (𝐹 ∘ 𝑓)) =
(ℤ≥‘1) |
88 | 87 | eleq2i 2693 |
. . . . . . . . . . . . . . 15
⊢
((#‘𝐵) ∈
dom seq1((+g‘𝐺), (𝐹 ∘ 𝑓)) ↔ (#‘𝐵) ∈
(ℤ≥‘1)) |
89 | 83, 88 | sylnibr 319 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ ¬ (#‘𝐵) ∈
(ℤ≥‘1)) → ¬ (#‘𝐵) ∈ dom seq1((+g‘𝐺), (𝐹 ∘ 𝑓))) |
90 | | ndmfv 6218 |
. . . . . . . . . . . . . 14
⊢ (¬
(#‘𝐵) ∈ dom
seq1((+g‘𝐺), (𝐹 ∘ 𝑓)) → (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐵)) = ∅) |
91 | 89, 90 | syl 17 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ ¬ (#‘𝐵) ∈
(ℤ≥‘1)) → (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐵)) = ∅) |
92 | | seqfn 12813 |
. . . . . . . . . . . . . . . . 17
⊢ (1 ∈
ℤ → seq1((+g‘𝐻), (𝐹 ∘ 𝑓)) Fn
(ℤ≥‘1)) |
93 | | fndm 5990 |
. . . . . . . . . . . . . . . . 17
⊢
(seq1((+g‘𝐻), (𝐹 ∘ 𝑓)) Fn (ℤ≥‘1) →
dom seq1((+g‘𝐻), (𝐹 ∘ 𝑓)) =
(ℤ≥‘1)) |
94 | 84, 92, 93 | mp2b 10 |
. . . . . . . . . . . . . . . 16
⊢ dom
seq1((+g‘𝐻), (𝐹 ∘ 𝑓)) =
(ℤ≥‘1) |
95 | 94 | eleq2i 2693 |
. . . . . . . . . . . . . . 15
⊢
((#‘𝐵) ∈
dom seq1((+g‘𝐻), (𝐹 ∘ 𝑓)) ↔ (#‘𝐵) ∈
(ℤ≥‘1)) |
96 | 83, 95 | sylnibr 319 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ ¬ (#‘𝐵) ∈
(ℤ≥‘1)) → ¬ (#‘𝐵) ∈ dom seq1((+g‘𝐻), (𝐹 ∘ 𝑓))) |
97 | | ndmfv 6218 |
. . . . . . . . . . . . . 14
⊢ (¬
(#‘𝐵) ∈ dom
seq1((+g‘𝐻), (𝐹 ∘ 𝑓)) → (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵)) = ∅) |
98 | 96, 97 | syl 17 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ ¬ (#‘𝐵) ∈
(ℤ≥‘1)) → (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵)) = ∅) |
99 | 91, 98 | eqtr4d 2659 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ ¬ (#‘𝐵) ∈
(ℤ≥‘1)) → (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐵)) = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))) |
100 | 99 | adantlr 751 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) ∧ ¬ (#‘𝐵) ∈
(ℤ≥‘1)) → (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐵)) = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))) |
101 | 82, 100 | pm2.61dan 832 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) →
(seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐵)) = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))) |
102 | 44, 101 | eqtrd 2656 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) →
(seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴)) = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))) |
103 | 102 | eqeq2d 2632 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑓:(1...(#‘𝐴))–1-1-onto→𝐴) → (𝑥 = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴)) ↔ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵)))) |
104 | 103 | pm5.32da 673 |
. . . . . . 7
⊢ (𝜑 → ((𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ∧ 𝑥 = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴))) ↔ (𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ∧ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))))) |
105 | | f1oeq2 6128 |
. . . . . . . . . 10
⊢
((1...(#‘𝐴)) =
(1...(#‘𝐵)) →
(𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ↔ 𝑓:(1...(#‘𝐵))–1-1-onto→𝐴)) |
106 | 52, 105 | syl 17 |
. . . . . . . . 9
⊢ (𝜑 → (𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ↔ 𝑓:(1...(#‘𝐵))–1-1-onto→𝐴)) |
107 | | f1oeq3 6129 |
. . . . . . . . . 10
⊢ (𝐴 = 𝐵 → (𝑓:(1...(#‘𝐵))–1-1-onto→𝐴 ↔ 𝑓:(1...(#‘𝐵))–1-1-onto→𝐵)) |
108 | 41, 107 | syl 17 |
. . . . . . . . 9
⊢ (𝜑 → (𝑓:(1...(#‘𝐵))–1-1-onto→𝐴 ↔ 𝑓:(1...(#‘𝐵))–1-1-onto→𝐵)) |
109 | 106, 108 | bitrd 268 |
. . . . . . . 8
⊢ (𝜑 → (𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ↔ 𝑓:(1...(#‘𝐵))–1-1-onto→𝐵)) |
110 | 109 | anbi1d 741 |
. . . . . . 7
⊢ (𝜑 → ((𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ∧ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))) ↔ (𝑓:(1...(#‘𝐵))–1-1-onto→𝐵 ∧ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))))) |
111 | 104, 110 | bitrd 268 |
. . . . . 6
⊢ (𝜑 → ((𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ∧ 𝑥 = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴))) ↔ (𝑓:(1...(#‘𝐵))–1-1-onto→𝐵 ∧ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))))) |
112 | 111 | exbidv 1850 |
. . . . 5
⊢ (𝜑 → (∃𝑓(𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ∧ 𝑥 = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴))) ↔ ∃𝑓(𝑓:(1...(#‘𝐵))–1-1-onto→𝐵 ∧ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))))) |
113 | 112 | iotabidv 5872 |
. . . 4
⊢ (𝜑 → (℩𝑥∃𝑓(𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ∧ 𝑥 = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴)))) = (℩𝑥∃𝑓(𝑓:(1...(#‘𝐵))–1-1-onto→𝐵 ∧ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))))) |
114 | 36, 113 | ifeq12d 4106 |
. . 3
⊢ (𝜑 → if(dom 𝐹 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐺), 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ∧ 𝑥 = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴))))) = if(dom 𝐹 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(#‘𝐵))–1-1-onto→𝐵 ∧ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵)))))) |
115 | 13, 15, 114 | ifbieq12d 4113 |
. 2
⊢ (𝜑 → if(ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)}, (0g‘𝐺), if(dom 𝐹 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐺), 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ∧ 𝑥 = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴)))))) = if(ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)}, (0g‘𝐻), if(dom 𝐹 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(#‘𝐵))–1-1-onto→𝐵 ∧ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))))))) |
116 | | eqid 2622 |
. . 3
⊢
(Base‘𝐺) =
(Base‘𝐺) |
117 | | eqid 2622 |
. . 3
⊢
(0g‘𝐺) = (0g‘𝐺) |
118 | | eqid 2622 |
. . 3
⊢
(+g‘𝐺) = (+g‘𝐺) |
119 | | eqid 2622 |
. . 3
⊢ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)} = {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)} |
120 | 39 | a1i 11 |
. . 3
⊢ (𝜑 → 𝐴 = (◡𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)}))) |
121 | | gsumpropd2.g |
. . 3
⊢ (𝜑 → 𝐺 ∈ 𝑊) |
122 | | gsumpropd2.f |
. . 3
⊢ (𝜑 → 𝐹 ∈ 𝑉) |
123 | | eqidd 2623 |
. . 3
⊢ (𝜑 → dom 𝐹 = dom 𝐹) |
124 | 116, 117,
118, 119, 120, 121, 122, 123 | gsumvalx 17270 |
. 2
⊢ (𝜑 → (𝐺 Σg 𝐹) = if(ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐺) ∣ ∀𝑡 ∈ (Base‘𝐺)((𝑠(+g‘𝐺)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐺)𝑠) = 𝑡)}, (0g‘𝐺), if(dom 𝐹 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐺), 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(#‘𝐴))–1-1-onto→𝐴 ∧ 𝑥 = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(#‘𝐴))))))) |
125 | | eqid 2622 |
. . 3
⊢
(Base‘𝐻) =
(Base‘𝐻) |
126 | | eqid 2622 |
. . 3
⊢
(0g‘𝐻) = (0g‘𝐻) |
127 | | eqid 2622 |
. . 3
⊢
(+g‘𝐻) = (+g‘𝐻) |
128 | | eqid 2622 |
. . 3
⊢ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)} = {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)} |
129 | 40 | a1i 11 |
. . 3
⊢ (𝜑 → 𝐵 = (◡𝐹 “ (V ∖ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)}))) |
130 | | gsumpropd2.h |
. . 3
⊢ (𝜑 → 𝐻 ∈ 𝑋) |
131 | 125, 126,
127, 128, 129, 130, 122, 123 | gsumvalx 17270 |
. 2
⊢ (𝜑 → (𝐻 Σg 𝐹) = if(ran 𝐹 ⊆ {𝑠 ∈ (Base‘𝐻) ∣ ∀𝑡 ∈ (Base‘𝐻)((𝑠(+g‘𝐻)𝑡) = 𝑡 ∧ (𝑡(+g‘𝐻)𝑠) = 𝑡)}, (0g‘𝐻), if(dom 𝐹 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ≥‘𝑚)(dom 𝐹 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+g‘𝐻), 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(#‘𝐵))–1-1-onto→𝐵 ∧ 𝑥 = (seq1((+g‘𝐻), (𝐹 ∘ 𝑓))‘(#‘𝐵))))))) |
132 | 115, 124,
131 | 3eqtr4d 2666 |
1
⊢ (𝜑 → (𝐺 Σg 𝐹) = (𝐻 Σg 𝐹)) |