| Step | Hyp | Ref
| Expression |
| 1 | | ranval3.o |
. . 3
⊢ 𝑂 = (oppCat‘(𝐷 FuncCat 𝐸)) |
| 2 | | ranval3.p |
. . 3
⊢ 𝑃 = (oppCat‘(𝐶 FuncCat 𝐸)) |
| 3 | | id 22 |
. . . . 5
⊢ (𝐹 ∈ (𝐶 Func 𝐷) → 𝐹 ∈ (𝐶 Func 𝐷)) |
| 4 | | opex 5426 |
. . . . . 6
⊢
〈𝐷, 𝐸〉 ∈ V |
| 5 | 4 | a1i 11 |
. . . . 5
⊢ (𝐹 ∈ (𝐶 Func 𝐷) → 〈𝐷, 𝐸〉 ∈ V) |
| 6 | 3, 5 | prcofelvv 49359 |
. . . 4
⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (〈𝐷, 𝐸〉 −∘F
𝐹) ∈ (V ×
V)) |
| 7 | | 1st2nd2 8009 |
. . . 4
⊢
((〈𝐷, 𝐸〉
−∘F 𝐹) ∈ (V × V) → (〈𝐷, 𝐸〉 −∘F
𝐹) = 〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉) |
| 8 | 6, 7 | syl 17 |
. . 3
⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (〈𝐷, 𝐸〉 −∘F
𝐹) = 〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉) |
| 9 | 1, 2, 8, 3 | ranval2 49609 |
. 2
⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐹(〈𝐶, 𝐷〉 Ran 𝐸)𝑋) = (〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉(𝑂 UP 𝑃)𝑋)) |
| 10 | | eqid 2730 |
. . . . . . . . 9
⊢ (𝐶 FuncCat 𝐸) = (𝐶 FuncCat 𝐸) |
| 11 | 10 | fucbas 17931 |
. . . . . . . 8
⊢ (𝐶 Func 𝐸) = (Base‘(𝐶 FuncCat 𝐸)) |
| 12 | 2, 11 | oppcbas 17685 |
. . . . . . 7
⊢ (𝐶 Func 𝐸) = (Base‘𝑃) |
| 13 | 12 | uprcl 49163 |
. . . . . 6
⊢ (𝑥 ∈ (( oppFunc ‘𝐾)(𝑂 UP 𝑃)𝑋) → (( oppFunc ‘𝐾) ∈ (𝑂 Func 𝑃) ∧ 𝑋 ∈ (𝐶 Func 𝐸))) |
| 14 | 13 | simprd 495 |
. . . . 5
⊢ (𝑥 ∈ (( oppFunc ‘𝐾)(𝑂 UP 𝑃)𝑋) → 𝑋 ∈ (𝐶 Func 𝐸)) |
| 15 | 14 | adantl 481 |
. . . 4
⊢ ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑥 ∈ (( oppFunc ‘𝐾)(𝑂 UP 𝑃)𝑋)) → 𝑋 ∈ (𝐶 Func 𝐸)) |
| 16 | 12 | uprcl 49163 |
. . . . . 6
⊢ (𝑥 ∈ (〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉(𝑂 UP 𝑃)𝑋) → (〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉 ∈ (𝑂 Func 𝑃) ∧ 𝑋 ∈ (𝐶 Func 𝐸))) |
| 17 | 16 | simprd 495 |
. . . . 5
⊢ (𝑥 ∈ (〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉(𝑂 UP 𝑃)𝑋) → 𝑋 ∈ (𝐶 Func 𝐸)) |
| 18 | 17 | adantl 481 |
. . . 4
⊢ ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑥 ∈ (〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉(𝑂 UP 𝑃)𝑋)) → 𝑋 ∈ (𝐶 Func 𝐸)) |
| 19 | | eqid 2730 |
. . . . . . . 8
⊢ (𝐷 FuncCat 𝐸) = (𝐷 FuncCat 𝐸) |
| 20 | | funcrcl 17831 |
. . . . . . . . . 10
⊢ (𝑋 ∈ (𝐶 Func 𝐸) → (𝐶 ∈ Cat ∧ 𝐸 ∈ Cat)) |
| 21 | 20 | simprd 495 |
. . . . . . . . 9
⊢ (𝑋 ∈ (𝐶 Func 𝐸) → 𝐸 ∈ Cat) |
| 22 | 21 | adantl 481 |
. . . . . . . 8
⊢ ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (𝐶 Func 𝐸)) → 𝐸 ∈ Cat) |
| 23 | | simpl 482 |
. . . . . . . 8
⊢ ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (𝐶 Func 𝐸)) → 𝐹 ∈ (𝐶 Func 𝐷)) |
| 24 | 19, 22, 10, 23 | prcoffunca 49365 |
. . . . . . 7
⊢ ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (𝐶 Func 𝐸)) → (〈𝐷, 𝐸〉 −∘F
𝐹) ∈ ((𝐷 FuncCat 𝐸) Func (𝐶 FuncCat 𝐸))) |
| 25 | | ranval3.k |
. . . . . . . . 9
⊢ 𝐾 = (〈𝐷, 𝐸〉 −∘F
𝐹) |
| 26 | 25 | fveq2i 6863 |
. . . . . . . 8
⊢ ( oppFunc
‘𝐾) = ( oppFunc
‘(〈𝐷, 𝐸〉
−∘F 𝐹)) |
| 27 | | oppfval2 49116 |
. . . . . . . 8
⊢
((〈𝐷, 𝐸〉
−∘F 𝐹) ∈ ((𝐷 FuncCat 𝐸) Func (𝐶 FuncCat 𝐸)) → ( oppFunc ‘(〈𝐷, 𝐸〉 −∘F
𝐹)) = 〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉) |
| 28 | 26, 27 | eqtrid 2777 |
. . . . . . 7
⊢
((〈𝐷, 𝐸〉
−∘F 𝐹) ∈ ((𝐷 FuncCat 𝐸) Func (𝐶 FuncCat 𝐸)) → ( oppFunc ‘𝐾) = 〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉) |
| 29 | 24, 28 | syl 17 |
. . . . . 6
⊢ ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (𝐶 Func 𝐸)) → ( oppFunc ‘𝐾) = 〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉) |
| 30 | 29 | oveq1d 7404 |
. . . . 5
⊢ ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (𝐶 Func 𝐸)) → (( oppFunc ‘𝐾)(𝑂 UP 𝑃)𝑋) = (〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉(𝑂 UP 𝑃)𝑋)) |
| 31 | 30 | eleq2d 2815 |
. . . 4
⊢ ((𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝑋 ∈ (𝐶 Func 𝐸)) → (𝑥 ∈ (( oppFunc ‘𝐾)(𝑂 UP 𝑃)𝑋) ↔ 𝑥 ∈ (〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉(𝑂 UP 𝑃)𝑋))) |
| 32 | 15, 18, 31 | bibiad 839 |
. . 3
⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝑥 ∈ (( oppFunc ‘𝐾)(𝑂 UP 𝑃)𝑋) ↔ 𝑥 ∈ (〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉(𝑂 UP 𝑃)𝑋))) |
| 33 | 32 | eqrdv 2728 |
. 2
⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (( oppFunc ‘𝐾)(𝑂 UP 𝑃)𝑋) = (〈(1st
‘(〈𝐷, 𝐸〉
−∘F 𝐹)), tpos (2nd ‘(〈𝐷, 𝐸〉 −∘F
𝐹))〉(𝑂 UP 𝑃)𝑋)) |
| 34 | 9, 33 | eqtr4d 2768 |
1
⊢ (𝐹 ∈ (𝐶 Func 𝐷) → (𝐹(〈𝐶, 𝐷〉 Ran 𝐸)𝑋) = (( oppFunc ‘𝐾)(𝑂 UP 𝑃)𝑋)) |