Metamath Proof Explorer


Theorem f1lindf

Description: Rearranging and deleting elements from an independent family gives an independent family. (Contributed by Stefan O'Rear, 24-Feb-2015)

Ref Expression
Assertion f1lindf ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → F ∘ G LIndF W

Proof

Step Hyp Ref Expression
1 eqid ⊢ Base W = Base W
2 1 lindff ⊢ F LIndF W ∧ W ∈ LMod → F : dom ⁡ F ⟶ Base W
3 2 ancoms ⊢ W ∈ LMod ∧ F LIndF W → F : dom ⁡ F ⟶ Base W
4 3 3adant3 ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → F : dom ⁡ F ⟶ Base W
5 f1f ⊢ G : K ⟶ 1-1 dom ⁡ F → G : K ⟶ dom ⁡ F
6 5 3ad2ant3 ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → G : K ⟶ dom ⁡ F
7 fco ⊢ F : dom ⁡ F ⟶ Base W ∧ G : K ⟶ dom ⁡ F → F ∘ G : K ⟶ Base W
8 4 6 7 syl2anc ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → F ∘ G : K ⟶ Base W
9 8 ffdmd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → F ∘ G : dom ⁡ F ∘ G ⟶ Base W
10 simpl2 ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G ∧ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W → F LIndF W
11 6 adantr ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → G : K ⟶ dom ⁡ F
12 8 fdmd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → dom ⁡ F ∘ G = K
13 12 eleq2d ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → x ∈ dom ⁡ F ∘ G ↔ x ∈ K
14 13 biimpa ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → x ∈ K
15 11 14 ffvelcdmd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → G ⁡ x ∈ dom ⁡ F
16 15 adantrr ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G ∧ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W → G ⁡ x ∈ dom ⁡ F
17 eldifi ⊢ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W → k ∈ Base Scalar ⁡ W
18 17 ad2antll ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G ∧ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W → k ∈ Base Scalar ⁡ W
19 eldifsni ⊢ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W → k ≠ 0 Scalar ⁡ W
20 19 ad2antll ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G ∧ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W → k ≠ 0 Scalar ⁡ W
21 eqid ⊢ ⋅ W = ⋅ W
22 eqid ⊢ LSpan ⁡ W = LSpan ⁡ W
23 eqid ⊢ Scalar ⁡ W = Scalar ⁡ W
24 eqid ⊢ 0 Scalar ⁡ W = 0 Scalar ⁡ W
25 eqid ⊢ Base Scalar ⁡ W = Base Scalar ⁡ W
26 21 22 23 24 25 lindfind ⊢ F LIndF W ∧ G ⁡ x ∈ dom ⁡ F ∧ k ∈ Base Scalar ⁡ W ∧ k ≠ 0 Scalar ⁡ W → ¬ k ⋅ W F ⁡ G ⁡ x ∈ LSpan ⁡ W ⁡ F dom ⁡ F ∖ G ⁡ x
27 10 16 18 20 26 syl22anc ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G ∧ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W → ¬ k ⋅ W F ⁡ G ⁡ x ∈ LSpan ⁡ W ⁡ F dom ⁡ F ∖ G ⁡ x
28 f1fn ⊢ G : K ⟶ 1-1 dom ⁡ F → G Fn K
29 28 3ad2ant3 ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → G Fn K
30 29 adantr ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → G Fn K
31 fvco2 ⊢ G Fn K ∧ x ∈ K → F ∘ G ⁡ x = F ⁡ G ⁡ x
32 30 14 31 syl2anc ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → F ∘ G ⁡ x = F ⁡ G ⁡ x
33 32 oveq2d ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → k ⋅ W F ∘ G ⁡ x = k ⋅ W F ⁡ G ⁡ x
34 33 eleq1d ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → k ⋅ W F ∘ G ⁡ x ∈ LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x ↔ k ⋅ W F ⁡ G ⁡ x ∈ LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x
35 simpl1 ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → W ∈ LMod
36 imassrn ⊢ F dom ⁡ F ∖ G ⁡ x ⊆ ran ⁡ F
37 4 frnd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → ran ⁡ F ⊆ Base W
38 36 37 sstrid ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → F dom ⁡ F ∖ G ⁡ x ⊆ Base W
39 38 adantr ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → F dom ⁡ F ∖ G ⁡ x ⊆ Base W
40 imaco ⊢ F ∘ G dom ⁡ F ∘ G ∖ x = F G dom ⁡ F ∘ G ∖ x
41 12 difeq1d ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → dom ⁡ F ∘ G ∖ x = K ∖ x
42 41 imaeq2d ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → G dom ⁡ F ∘ G ∖ x = G K ∖ x
43 df-f1 ⊢ G : K ⟶ 1-1 dom ⁡ F ↔ G : K ⟶ dom ⁡ F ∧ Fun ⁡ G -1
44 43 simprbi ⊢ G : K ⟶ 1-1 dom ⁡ F → Fun ⁡ G -1
45 44 3ad2ant3 ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → Fun ⁡ G -1
46 imadif ⊢ Fun ⁡ G -1 → G K ∖ x = G K ∖ G x
47 45 46 syl ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → G K ∖ x = G K ∖ G x
48 42 47 eqtrd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → G dom ⁡ F ∘ G ∖ x = G K ∖ G x
49 48 adantr ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → G dom ⁡ F ∘ G ∖ x = G K ∖ G x
50 fnsnfv ⊢ G Fn K ∧ x ∈ K → G ⁡ x = G x
51 29 50 sylan ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → G ⁡ x = G x
52 51 difeq2d ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → G K ∖ G ⁡ x = G K ∖ G x
53 imassrn ⊢ G K ⊆ ran ⁡ G
54 6 adantr ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → G : K ⟶ dom ⁡ F
55 54 frnd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → ran ⁡ G ⊆ dom ⁡ F
56 53 55 sstrid ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → G K ⊆ dom ⁡ F
57 56 ssdifd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → G K ∖ G ⁡ x ⊆ dom ⁡ F ∖ G ⁡ x
58 52 57 eqsstrrd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → G K ∖ G x ⊆ dom ⁡ F ∖ G ⁡ x
59 49 58 eqsstrd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → G dom ⁡ F ∘ G ∖ x ⊆ dom ⁡ F ∖ G ⁡ x
60 imass2 ⊢ G dom ⁡ F ∘ G ∖ x ⊆ dom ⁡ F ∖ G ⁡ x → F G dom ⁡ F ∘ G ∖ x ⊆ F dom ⁡ F ∖ G ⁡ x
61 59 60 syl ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → F G dom ⁡ F ∘ G ∖ x ⊆ F dom ⁡ F ∖ G ⁡ x
62 40 61 eqsstrid ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → F ∘ G dom ⁡ F ∘ G ∖ x ⊆ F dom ⁡ F ∖ G ⁡ x
63 1 22 lspss ⊢ W ∈ LMod ∧ F dom ⁡ F ∖ G ⁡ x ⊆ Base W ∧ F ∘ G dom ⁡ F ∘ G ∖ x ⊆ F dom ⁡ F ∖ G ⁡ x → LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x ⊆ LSpan ⁡ W ⁡ F dom ⁡ F ∖ G ⁡ x
64 35 39 62 63 syl3anc ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ K → LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x ⊆ LSpan ⁡ W ⁡ F dom ⁡ F ∖ G ⁡ x
65 14 64 syldan ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x ⊆ LSpan ⁡ W ⁡ F dom ⁡ F ∖ G ⁡ x
66 65 sseld ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → k ⋅ W F ⁡ G ⁡ x ∈ LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x → k ⋅ W F ⁡ G ⁡ x ∈ LSpan ⁡ W ⁡ F dom ⁡ F ∖ G ⁡ x
67 34 66 sylbid ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G → k ⋅ W F ∘ G ⁡ x ∈ LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x → k ⋅ W F ⁡ G ⁡ x ∈ LSpan ⁡ W ⁡ F dom ⁡ F ∖ G ⁡ x
68 67 adantrr ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G ∧ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W → k ⋅ W F ∘ G ⁡ x ∈ LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x → k ⋅ W F ⁡ G ⁡ x ∈ LSpan ⁡ W ⁡ F dom ⁡ F ∖ G ⁡ x
69 27 68 mtod ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F ∧ x ∈ dom ⁡ F ∘ G ∧ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W → ¬ k ⋅ W F ∘ G ⁡ x ∈ LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x
70 69 ralrimivva ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → ∀ x ∈ dom ⁡ F ∘ G ∀ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W ¬ k ⋅ W F ∘ G ⁡ x ∈ LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x
71 simp1 ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → W ∈ LMod
72 rellindf ⊢ Rel ⁡ LIndF
73 72 brrelex1i ⊢ F LIndF W → F ∈ V
74 73 3ad2ant2 ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → F ∈ V
75 simp3 ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → G : K ⟶ 1-1 dom ⁡ F
76 74 dmexd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → dom ⁡ F ∈ V
77 f1dmex ⊢ G : K ⟶ 1-1 dom ⁡ F ∧ dom ⁡ F ∈ V → K ∈ V
78 75 76 77 syl2anc ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → K ∈ V
79 6 78 fexd ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → G ∈ V
80 coexg ⊢ F ∈ V ∧ G ∈ V → F ∘ G ∈ V
81 74 79 80 syl2anc ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → F ∘ G ∈ V
82 1 21 22 23 25 24 islindf ⊢ W ∈ LMod ∧ F ∘ G ∈ V → F ∘ G LIndF W ↔ F ∘ G : dom ⁡ F ∘ G ⟶ Base W ∧ ∀ x ∈ dom ⁡ F ∘ G ∀ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W ¬ k ⋅ W F ∘ G ⁡ x ∈ LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x
83 71 81 82 syl2anc ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → F ∘ G LIndF W ↔ F ∘ G : dom ⁡ F ∘ G ⟶ Base W ∧ ∀ x ∈ dom ⁡ F ∘ G ∀ k ∈ Base Scalar ⁡ W ∖ 0 Scalar ⁡ W ¬ k ⋅ W F ∘ G ⁡ x ∈ LSpan ⁡ W ⁡ F ∘ G dom ⁡ F ∘ G ∖ x
84 9 70 83 mpbir2and ⊢ W ∈ LMod ∧ F LIndF W ∧ G : K ⟶ 1-1 dom ⁡ F → F ∘ G LIndF W