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

Theorem fveqf1o 7155
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 1134 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐹:𝐴1-1-onto𝐵)
2 f1oi 6737 . . . . . . . 8 ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})):(𝐴 ∖ {𝐶, (𝐹𝐷)})–1-1-onto→(𝐴 ∖ {𝐶, (𝐹𝐷)})
32a1i 11 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})):(𝐴 ∖ {𝐶, (𝐹𝐷)})–1-1-onto→(𝐴 ∖ {𝐶, (𝐹𝐷)}))
4 simp2 1135 . . . . . . . 8 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐶𝐴)
5 f1ocnv 6712 . . . . . . . . . 10 (𝐹:𝐴1-1-onto𝐵𝐹:𝐵1-1-onto𝐴)
6 f1of 6700 . . . . . . . . . 10 (𝐹:𝐵1-1-onto𝐴𝐹:𝐵𝐴)
71, 5, 63syl 18 . . . . . . . . 9 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐹:𝐵𝐴)
8 simp3 1136 . . . . . . . . 9 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐷𝐵)
97, 8ffvelrnd 6944 . . . . . . . 8 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹𝐷) ∈ 𝐴)
10 f1oprswap 6743 . . . . . . . 8 ((𝐶𝐴 ∧ (𝐹𝐷) ∈ 𝐴) → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)})
114, 9, 10syl2anc 583 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)})
12 disjdifr 4403 . . . . . . . 8 ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅
1312a1i 11 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅)
14 f1oun 6719 . . . . . . 7 (((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})):(𝐴 ∖ {𝐶, (𝐹𝐷)})–1-1-onto→(𝐴 ∖ {𝐶, (𝐹𝐷)}) ∧ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)}) ∧ (((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅ ∧ ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅)) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})–1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}))
153, 11, 13, 13, 14syl22anc 835 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})–1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}))
16 uncom 4083 . . . . . . . 8 ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) = ({𝐶, (𝐹𝐷)} ∪ (𝐴 ∖ {𝐶, (𝐹𝐷)}))
174, 9prssd 4752 . . . . . . . . 9 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → {𝐶, (𝐹𝐷)} ⊆ 𝐴)
18 undif 4412 . . . . . . . . 9 ({𝐶, (𝐹𝐷)} ⊆ 𝐴 ↔ ({𝐶, (𝐹𝐷)} ∪ (𝐴 ∖ {𝐶, (𝐹𝐷)})) = 𝐴)
1917, 18sylib 217 . . . . . . . 8 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ({𝐶, (𝐹𝐷)} ∪ (𝐴 ∖ {𝐶, (𝐹𝐷)})) = 𝐴)
2016, 19eqtrid 2790 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) = 𝐴)
2120f1oeq2d 6696 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})–1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) ↔ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)})))
2215, 21mpbid 231 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}))
2320f1oeq3d 6697 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto→((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∪ {𝐶, (𝐹𝐷)}) ↔ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto𝐴))
2422, 23mpbid 231 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto𝐴)
25 f1oco 6722 . . . 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 6688 . . . 4 (𝐺 = (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})) → (𝐺:𝐴1-1-onto𝐵 ↔ (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})):𝐴1-1-onto𝐵))
2927, 28ax-mp 5 . . 3 (𝐺:𝐴1-1-onto𝐵 ↔ (𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})):𝐴1-1-onto𝐵)
3026, 29sylibr 233 . 2 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐺:𝐴1-1-onto𝐵)
3127fveq1i 6757 . . . 4 (𝐺𝐶) = ((𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))‘𝐶)
32 f1of 6700 . . . . . 6 ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴1-1-onto𝐴 → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴𝐴)
3324, 32syl 17 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴𝐴)
34 fvco3 6849 . . . . 5 (((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}):𝐴𝐴𝐶𝐴) → ((𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))‘𝐶) = (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)))
3533, 4, 34syl2anc 583 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((𝐹 ∘ (( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}))‘𝐶) = (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)))
3631, 35eqtrid 2790 . . 3 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐺𝐶) = (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)))
37 fnresi 6545 . . . . . . . 8 ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) Fn (𝐴 ∖ {𝐶, (𝐹𝐷)})
3837a1i 11 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) Fn (𝐴 ∖ {𝐶, (𝐹𝐷)}))
39 f1ofn 6701 . . . . . . . 8 ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)} → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} Fn {𝐶, (𝐹𝐷)})
4011, 39syl 17 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} Fn {𝐶, (𝐹𝐷)})
41 prid1g 4693 . . . . . . . 8 (𝐶𝐴𝐶 ∈ {𝐶, (𝐹𝐷)})
424, 41syl 17 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → 𝐶 ∈ {𝐶, (𝐹𝐷)})
43 fvun2 6842 . . . . . . 7 ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) Fn (𝐴 ∖ {𝐶, (𝐹𝐷)}) ∧ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} Fn {𝐶, (𝐹𝐷)} ∧ (((𝐴 ∖ {𝐶, (𝐹𝐷)}) ∩ {𝐶, (𝐹𝐷)}) = ∅ ∧ 𝐶 ∈ {𝐶, (𝐹𝐷)})) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶) = ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶))
4438, 40, 13, 42, 43syl112anc 1372 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶) = ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶))
45 f1ofun 6702 . . . . . . . 8 ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}:{𝐶, (𝐹𝐷)}–1-1-onto→{𝐶, (𝐹𝐷)} → Fun {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})
4611, 45syl 17 . . . . . . 7 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → Fun {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})
47 opex 5373 . . . . . . . 8 𝐶, (𝐹𝐷)⟩ ∈ V
4847prid1 4695 . . . . . . 7 𝐶, (𝐹𝐷)⟩ ∈ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}
49 funopfv 6803 . . . . . . 7 (Fun {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} → (⟨𝐶, (𝐹𝐷)⟩ ∈ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩} → ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶) = (𝐹𝐷)))
5046, 48, 49mpisyl 21 . . . . . 6 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ({⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩}‘𝐶) = (𝐹𝐷))
5144, 50eqtrd 2778 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → ((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶) = (𝐹𝐷))
5251fveq2d 6760 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)) = (𝐹‘(𝐹𝐷)))
53 f1ocnvfv2 7130 . . . . 5 ((𝐹:𝐴1-1-onto𝐵𝐷𝐵) → (𝐹‘(𝐹𝐷)) = 𝐷)
541, 8, 53syl2anc 583 . . . 4 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹‘(𝐹𝐷)) = 𝐷)
5552, 54eqtrd 2778 . . 3 ((𝐹:𝐴1-1-onto𝐵𝐶𝐴𝐷𝐵) → (𝐹‘((( I ↾ (𝐴 ∖ {𝐶, (𝐹𝐷)})) ∪ {⟨𝐶, (𝐹𝐷)⟩, ⟨(𝐹𝐷), 𝐶⟩})‘𝐶)) = 𝐷)
5636, 55eqtrd 2778 . 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 205  wa 395  w3a 1085   = wceq 1539  wcel 2108  cdif 3880  cun 3881  cin 3882  wss 3883  c0 4253  {cpr 4560  cop 4564   I cid 5479  ccnv 5579  cres 5582  ccom 5584  Fun wfun 6412   Fn wfn 6413  wf 6414  1-1-ontowf1o 6417  cfv 6418
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-sep 5218  ax-nul 5225  ax-pr 5347
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-ral 3068  df-rex 3069  df-rab 3072  df-v 3424  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4254  df-if 4457  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4837  df-br 5071  df-opab 5133  df-id 5480  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426
This theorem is referenced by:  infxpenc2  9709
  Copyright terms: Public domain W3C validator