MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  fveqf1o Structured version   Visualization version   GIF version

Theorem fveqf1o 7248
Description: Given a bijection 𝐹, produce another bijection 𝐺 which additionally maps two specified points. (Contributed by Mario Carneiro, 30-May-2015.)
Hypothesis
Ref Expression
fveqf1o.1 𝐺 = (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))
Assertion
Ref Expression
fveqf1o ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐺:𝐴1-1-onto𝐵 ∧ (𝐺𝐶) = 𝐷))

Proof of Theorem fveqf1o
StepHypRef Expression
1 simp1 1137 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐹:𝐴1-1-onto𝐵)
2 f1oi 6811 . . . . . . . 8 ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})):(𝐴 ∖ {𝐶, (𝐹𝐷)})–1-1-onto→(𝐴 ∖ {𝐶, (𝐹𝐷)})
32a1i 11 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})):(𝐴 ∖ {𝐶, (𝐹𝐷)})–1-1-onto→(𝐴 ∖ {𝐶, (𝐹𝐷)}))
4 simp2 1138 . . . . . . . 8 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐶𝐴)
5 f1ocnv 6785 . . . . . . . . . 10 (𝐹:𝐴1-1-onto𝐵𝐹:𝐵1-1-onto𝐴)
6 f1of 6773 . . . . . . . . . 10 (𝐹:𝐵1-1-onto𝐴𝐹:𝐵𝐴)
71, 5, 63syl 18 . . . . . . . . 9 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐹:𝐵𝐴)
8 simp3 1139 . . . . . . . . 9 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐷𝐵)
97, 8ffvelcdmd 7030 . . . . . . . 8 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹𝐷) ∈ 𝐴)
10 f1oprswap 6818 . . . . . . . 8 ((𝐶𝐴 ∧ (𝐹𝐷) ∈ 𝐴) → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)})
114, 9, 10syl2anc 585 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)})
12 disjdifr 4424 . . . . . . . 8 ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅
1312a1i 11 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅)
14 f1oun 6792 . . . . . . 7 (((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})):(𝐴 ∖ {𝐶, (𝐹𝐷)})–1-1-onto→(𝐴 ∖ {𝐶, (𝐹𝐷)}) ∧ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)}) ∧ (((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅ ∧ ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅)) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})–1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}))
153, 11, 13, 13, 14syl22anc 839 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})–1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}))
16 uncom 4109 . . . . . . . 8 ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) = ({𝐶, (𝐹𝐷)} ∪ (𝐴 ∖ {𝐶, (𝐹𝐷)}))
174, 9prssd 4777 . . . . . . . . 9 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → {𝐶, (𝐹𝐷)} ⊆ 𝐴)
18 undif 4433 . . . . . . . . 9 ({𝐶, (𝐹𝐷)} ⊆ 𝐴 ↔ ({𝐶, (𝐹𝐷)} ∪ (𝐴 ∖ {𝐶, (𝐹𝐷)})) = 𝐴)
1917, 18sylib 218 . . . . . . . 8 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ({𝐶, (𝐹𝐷)} ∪ (𝐴 ∖ {𝐶, (𝐹𝐷)})) = 𝐴)
2016, 19eqtrid 2782 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) = 𝐴)
2120f1oeq2d 6769 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})–1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) ↔ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})))
2215, 21mpbid 232 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}))
2320f1oeq3d 6770 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) ↔ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto𝐴))
2422, 23mpbid 232 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto𝐴)
25 f1oco 6796 . . . 4 ((𝐹:𝐴1-1-onto𝐵 ∧ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto𝐴) → (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})):𝐴1-1-onto𝐵)
261, 24, 25syl2anc 585 . . 3 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})):𝐴1-1-onto𝐵)
27 fveqf1o.1 . . . 4 𝐺 = (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))
28 f1oeq1 6761 . . . 4 (𝐺 = (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})) → (𝐺:𝐴1-1-onto𝐵 ↔ (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})):𝐴1-1-onto𝐵))
2927, 28ax-mp 5 . . 3 (𝐺:𝐴1-1-onto𝐵 ↔ (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})):𝐴1-1-onto𝐵)
3026, 29sylibr 234 . 2 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐺:𝐴1-1-onto𝐵)
3127fveq1i 6834 . . . 4 (𝐺𝐶) = ((𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))‘𝐶)
32 f1of 6773 . . . . . 6 ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto𝐴 → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴𝐴)
3324, 32syl 17 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴𝐴)
34 fvco3 6932 . . . . 5 (((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴𝐴𝐶𝐴) → ((𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))‘𝐶) = (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)))
3533, 4, 34syl2anc 585 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))‘𝐶) = (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)))
3631, 35eqtrid 2782 . . 3 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐺𝐶) = (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)))
37 fnresi 6620 . . . . . . . 8 ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) Fn (𝐴 ∖ {𝐶, (𝐹𝐷)})
3837a1i 11 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) Fn (𝐴 ∖ {𝐶, (𝐹𝐷)}))
39 f1ofn 6774 . . . . . . . 8 ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)} → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} Fn {𝐶, (𝐹𝐷)})
4011, 39syl 17 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} Fn {𝐶, (𝐹𝐷)})
41 prid1g 4716 . . . . . . . 8 (𝐶𝐴𝐶 ∈ {𝐶, (𝐹𝐷)})
424, 41syl 17 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐶 ∈ {𝐶, (𝐹𝐷)})
43 fvun2 6925 . . . . . . 7 ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) Fn (𝐴 ∖ {𝐶, (𝐹𝐷)}) ∧ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} Fn {𝐶, (𝐹𝐷)} ∧ (((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅ ∧ 𝐶 ∈ {𝐶, (𝐹𝐷)})) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶) = ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶))
4438, 40, 13, 42, 43syl112anc 1377 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶) = ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶))
45 f1ofun 6775 . . . . . . . 8 ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)} → Fun {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})
4611, 45syl 17 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → Fun {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})
47 opex 5411 . . . . . . . 8 𝐶, (𝐹𝐷)⟩ ∈ V
4847prid1 4718 . . . . . . 7 𝐶, (𝐹𝐷)⟩ ∈ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}
49 funopfv 6882 . . . . . . 7 (Fun {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} → (⟨𝐶, (𝐹𝐷)⟩ ∈ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} → ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶) = (𝐹𝐷)))
5046, 48, 49mpisyl 21 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶) = (𝐹𝐷))
5144, 50eqtrd 2770 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶) = (𝐹𝐷))
5251fveq2d 6837 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)) = (𝐹‘(𝐹𝐷)))
53 f1ocnvfv2 7223 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐷𝐵) → (𝐹‘(𝐹𝐷)) = 𝐷)
541, 8, 53syl2anc 585 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹‘(𝐹𝐷)) = 𝐷)
5552, 54eqtrd 2770 . . 3 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)) = 𝐷)
5636, 55eqtrd 2770 . 2 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐺𝐶) = 𝐷)
5730, 56jca 511 1 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐺:𝐴1-1-onto𝐵 ∧ (𝐺𝐶) = 𝐷))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1087   = wceq 1542  wcel 2114  cdif 3897  cun 3898  cin 3899  wss 3900  c0 4284  {cpr 4581  cop 4585   I cid 5517  ccnv 5622  cres 5625  ccom 5627  Fun wfun 6485   Fn wfn 6486  wf 6487  1-1-ontowf1o 6490  cfv 6491
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2183  ax-ext 2707  ax-sep 5240  ax-nul 5250  ax-pr 5376
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2538  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2810  df-nfc 2884  df-ne 2932  df-ral 3051  df-rex 3060  df-rab 3399  df-v 3441  df-dif 3903  df-un 3905  df-in 3907  df-ss 3917  df-nul 4285  df-if 4479  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-br 5098  df-opab 5160  df-id 5518  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-iota 6447  df-fun 6493  df-fn 6494  df-f 6495  df-f1 6496  df-fo 6497  df-f1o 6498  df-fv 6499
This theorem is referenced by:  infxpenc2  9934
  Copyright terms: Public domain W3C validator