Metamath Proof Explorer


Theorem mapfienlem1

Description: Lemma 1 for mapfien . (Contributed by AV, 3-Jul-2019) (Revised by AV, 28-Jul-2024)

Ref Expression
Hypotheses mapfien.s ⊢ S = x ∈ B A | finSupp Z⁡ x
mapfien.t ⊢ T = x ∈ D C | finSupp W⁡ x
mapfien.w ⊢ W = G ⁡ Z
mapfien.f ⊢ φ → F : C ⟶ 1-1 onto A
mapfien.g ⊢ φ → G : B ⟶ 1-1 onto D
mapfien.a ⊢ φ → A ∈ U
mapfien.b ⊢ φ → B ∈ V
mapfien.c ⊢ φ → C ∈ X
mapfien.d ⊢ φ → D ∈ Y
mapfien.z ⊢ φ → Z ∈ B
Assertion mapfienlem1 ⊢ φ ∧ f ∈ S → finSupp W⁡ G ∘ f ∘ F

Proof

Step Hyp Ref Expression
1 mapfien.s ⊢ S = x ∈ B A | finSupp Z⁡ x
2 mapfien.t ⊢ T = x ∈ D C | finSupp W⁡ x
3 mapfien.w ⊢ W = G ⁡ Z
4 mapfien.f ⊢ φ → F : C ⟶ 1-1 onto A
5 mapfien.g ⊢ φ → G : B ⟶ 1-1 onto D
6 mapfien.a ⊢ φ → A ∈ U
7 mapfien.b ⊢ φ → B ∈ V
8 mapfien.c ⊢ φ → C ∈ X
9 mapfien.d ⊢ φ → D ∈ Y
10 mapfien.z ⊢ φ → Z ∈ B
11 3 fvexi ⊢ W ∈ V
12 11 a1i ⊢ φ ∧ f ∈ S → W ∈ V
13 10 adantr ⊢ φ ∧ f ∈ S → Z ∈ B
14 elrabi ⊢ f ∈ x ∈ B A | finSupp Z⁡ x → f ∈ B A
15 elmapi ⊢ f ∈ B A → f : A ⟶ B
16 14 15 syl ⊢ f ∈ x ∈ B A | finSupp Z⁡ x → f : A ⟶ B
17 16 1 eleq2s ⊢ f ∈ S → f : A ⟶ B
18 f1of ⊢ F : C ⟶ 1-1 onto A → F : C ⟶ A
19 4 18 syl ⊢ φ → F : C ⟶ A
20 fco ⊢ f : A ⟶ B ∧ F : C ⟶ A → f ∘ F : C ⟶ B
21 17 19 20 syl2anr ⊢ φ ∧ f ∈ S → f ∘ F : C ⟶ B
22 f1of ⊢ G : B ⟶ 1-1 onto D → G : B ⟶ D
23 5 22 syl ⊢ φ → G : B ⟶ D
24 23 adantr ⊢ φ ∧ f ∈ S → G : B ⟶ D
25 ssidd ⊢ φ ∧ f ∈ S → B ⊆ B
26 8 adantr ⊢ φ ∧ f ∈ S → C ∈ X
27 7 adantr ⊢ φ ∧ f ∈ S → B ∈ V
28 breq1 ⊢ x = f → finSupp Z⁡ x ↔ finSupp Z⁡ f
29 28 1 elrab2 ⊢ f ∈ S ↔ f ∈ B A ∧ finSupp Z⁡ f
30 29 simprbi ⊢ f ∈ S → finSupp Z⁡ f
31 30 adantl ⊢ φ ∧ f ∈ S → finSupp Z⁡ f
32 f1of1 ⊢ F : C ⟶ 1-1 onto A → F : C ⟶ 1-1 A
33 4 32 syl ⊢ φ → F : C ⟶ 1-1 A
34 33 adantr ⊢ φ ∧ f ∈ S → F : C ⟶ 1-1 A
35 simpr ⊢ φ ∧ f ∈ S → f ∈ S
36 31 34 13 35 fsuppco ⊢ φ ∧ f ∈ S → finSupp Z⁡ f ∘ F
37 3 eqcomi ⊢ G ⁡ Z = W
38 37 a1i ⊢ φ ∧ f ∈ S → G ⁡ Z = W
39 12 13 21 24 25 26 27 36 38 fsuppcor ⊢ φ ∧ f ∈ S → finSupp W⁡ G ∘ f ∘ F