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

Theorem fveqf1o 7338
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 1136 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐹:𝐴1-1-onto𝐵)
2 f1oi 6900 . . . . . . . 8 ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})):(𝐴 ∖ {𝐶, (𝐹𝐷)})–1-1-onto→(𝐴 ∖ {𝐶, (𝐹𝐷)})
32a1i 11 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})):(𝐴 ∖ {𝐶, (𝐹𝐷)})–1-1-onto→(𝐴 ∖ {𝐶, (𝐹𝐷)}))
4 simp2 1137 . . . . . . . 8 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐶𝐴)
5 f1ocnv 6874 . . . . . . . . . 10 (𝐹:𝐴1-1-onto𝐵𝐹:𝐵1-1-onto𝐴)
6 f1of 6862 . . . . . . . . . 10 (𝐹:𝐵1-1-onto𝐴𝐹:𝐵𝐴)
71, 5, 63syl 18 . . . . . . . . 9 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐹:𝐵𝐴)
8 simp3 1138 . . . . . . . . 9 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐷𝐵)
97, 8ffvelcdmd 7119 . . . . . . . 8 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹𝐷) ∈ 𝐴)
10 f1oprswap 6906 . . . . . . . 8 ((𝐶𝐴 ∧ (𝐹𝐷) ∈ 𝐴) → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)})
114, 9, 10syl2anc 583 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)})
12 disjdifr 4496 . . . . . . . 8 ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅
1312a1i 11 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅)
14 f1oun 6881 . . . . . . 7 (((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})):(𝐴 ∖ {𝐶, (𝐹𝐷)})–1-1-onto→(𝐴 ∖ {𝐶, (𝐹𝐷)}) ∧ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)}) ∧ (((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅ ∧ ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅)) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})–1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}))
153, 11, 13, 13, 14syl22anc 838 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})–1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}))
16 uncom 4181 . . . . . . . 8 ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) = ({𝐶, (𝐹𝐷)} ∪ (𝐴 ∖ {𝐶, (𝐹𝐷)}))
174, 9prssd 4847 . . . . . . . . 9 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → {𝐶, (𝐹𝐷)} ⊆ 𝐴)
18 undif 4505 . . . . . . . . 9 ({𝐶, (𝐹𝐷)} ⊆ 𝐴 ↔ ({𝐶, (𝐹𝐷)} ∪ (𝐴 ∖ {𝐶, (𝐹𝐷)})) = 𝐴)
1917, 18sylib 218 . . . . . . . 8 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ({𝐶, (𝐹𝐷)} ∪ (𝐴 ∖ {𝐶, (𝐹𝐷)})) = 𝐴)
2016, 19eqtrid 2792 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) = 𝐴)
2120f1oeq2d 6858 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})–1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) ↔ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})))
2215, 21mpbid 232 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}))
2320f1oeq3d 6859 . . . . 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 6885 . . . 4 ((𝐹:𝐴1-1-onto𝐵 ∧ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto𝐴) → (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})):𝐴1-1-onto𝐵)
261, 24, 25syl2anc 583 . . 3 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})):𝐴1-1-onto𝐵)
27 fveqf1o.1 . . . 4 𝐺 = (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))
28 f1oeq1 6850 . . . 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 6921 . . . 4 (𝐺𝐶) = ((𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))‘𝐶)
32 f1of 6862 . . . . . 6 ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto𝐴 → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴𝐴)
3324, 32syl 17 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴𝐴)
34 fvco3 7021 . . . . 5 (((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴𝐴𝐶𝐴) → ((𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))‘𝐶) = (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)))
3533, 4, 34syl2anc 583 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))‘𝐶) = (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)))
3631, 35eqtrid 2792 . . 3 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐺𝐶) = (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)))
37 fnresi 6709 . . . . . . . 8 ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) Fn (𝐴 ∖ {𝐶, (𝐹𝐷)})
3837a1i 11 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) Fn (𝐴 ∖ {𝐶, (𝐹𝐷)}))
39 f1ofn 6863 . . . . . . . 8 ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)} → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} Fn {𝐶, (𝐹𝐷)})
4011, 39syl 17 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} Fn {𝐶, (𝐹𝐷)})
41 prid1g 4785 . . . . . . . 8 (𝐶𝐴𝐶 ∈ {𝐶, (𝐹𝐷)})
424, 41syl 17 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐶 ∈ {𝐶, (𝐹𝐷)})
43 fvun2 7014 . . . . . . 7 ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) Fn (𝐴 ∖ {𝐶, (𝐹𝐷)}) ∧ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} Fn {𝐶, (𝐹𝐷)} ∧ (((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅ ∧ 𝐶 ∈ {𝐶, (𝐹𝐷)})) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶) = ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶))
4438, 40, 13, 42, 43syl112anc 1374 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶) = ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶))
45 f1ofun 6864 . . . . . . . 8 ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)} → Fun {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})
4611, 45syl 17 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → Fun {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})
47 opex 5484 . . . . . . . 8 𝐶, (𝐹𝐷)⟩ ∈ V
4847prid1 4787 . . . . . . 7 𝐶, (𝐹𝐷)⟩ ∈ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}
49 funopfv 6972 . . . . . . 7 (Fun {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} → (⟨𝐶, (𝐹𝐷)⟩ ∈ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} → ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶) = (𝐹𝐷)))
5046, 48, 49mpisyl 21 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶) = (𝐹𝐷))
5144, 50eqtrd 2780 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶) = (𝐹𝐷))
5251fveq2d 6924 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)) = (𝐹‘(𝐹𝐷)))
53 f1ocnvfv2 7313 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐷𝐵) → (𝐹‘(𝐹𝐷)) = 𝐷)
541, 8, 53syl2anc 583 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹‘(𝐹𝐷)) = 𝐷)
5552, 54eqtrd 2780 . . 3 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)) = 𝐷)
5636, 55eqtrd 2780 . 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 1537  wcel 2108  cdif 3973  cun 3974  cin 3975  wss 3976  c0 4352  {cpr 4650  cop 4654   I cid 5592  ccnv 5699  cres 5702  ccom 5704  Fun wfun 6567   Fn wfn 6568  wf 6569  1-1-ontowf1o 6572  cfv 6573
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-sep 5317  ax-nul 5324  ax-pr 5447
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-rab 3444  df-v 3490  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-if 4549  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-br 5167  df-opab 5229  df-id 5593  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581
This theorem is referenced by:  infxpenc2  10091
  Copyright terms: Public domain W3C validator