Step | Hyp | Ref
| Expression |
1 | | ssid 3624 |
. . . 4
⊢
(Base‘𝐶)
⊆ (Base‘𝐶) |
2 | 1 | a1i 11 |
. . 3
⊢ (𝐶 ∈ Cat →
(Base‘𝐶) ⊆
(Base‘𝐶)) |
3 | | ssid 3624 |
. . . . 5
⊢ (𝑥(Homf
‘𝐶)𝑦) ⊆ (𝑥(Homf ‘𝐶)𝑦) |
4 | 3 | a1i 11 |
. . . 4
⊢ ((𝐶 ∈ Cat ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(Homf ‘𝐶)𝑦) ⊆ (𝑥(Homf ‘𝐶)𝑦)) |
5 | 4 | ralrimivva 2971 |
. . 3
⊢ (𝐶 ∈ Cat → ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)(𝑥(Homf ‘𝐶)𝑦) ⊆ (𝑥(Homf ‘𝐶)𝑦)) |
6 | | eqid 2622 |
. . . . . 6
⊢
(Homf ‘𝐶) = (Homf ‘𝐶) |
7 | | eqid 2622 |
. . . . . 6
⊢
(Base‘𝐶) =
(Base‘𝐶) |
8 | 6, 7 | homffn 16353 |
. . . . 5
⊢
(Homf ‘𝐶) Fn ((Base‘𝐶) × (Base‘𝐶)) |
9 | 8 | a1i 11 |
. . . 4
⊢ (𝐶 ∈ Cat →
(Homf ‘𝐶) Fn ((Base‘𝐶) × (Base‘𝐶))) |
10 | | fvexd 6203 |
. . . 4
⊢ (𝐶 ∈ Cat →
(Base‘𝐶) ∈
V) |
11 | 9, 9, 10 | isssc 16480 |
. . 3
⊢ (𝐶 ∈ Cat →
((Homf ‘𝐶) ⊆cat
(Homf ‘𝐶) ↔ ((Base‘𝐶) ⊆ (Base‘𝐶) ∧ ∀𝑥 ∈ (Base‘𝐶)∀𝑦 ∈ (Base‘𝐶)(𝑥(Homf ‘𝐶)𝑦) ⊆ (𝑥(Homf ‘𝐶)𝑦)))) |
12 | 2, 5, 11 | mpbir2and 957 |
. 2
⊢ (𝐶 ∈ Cat →
(Homf ‘𝐶) ⊆cat
(Homf ‘𝐶)) |
13 | | eqid 2622 |
. . . . . 6
⊢ (Hom
‘𝐶) = (Hom
‘𝐶) |
14 | | eqid 2622 |
. . . . . 6
⊢
(Id‘𝐶) =
(Id‘𝐶) |
15 | | simpl 473 |
. . . . . 6
⊢ ((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐶 ∈ Cat) |
16 | | simpr 477 |
. . . . . 6
⊢ ((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶)) |
17 | 7, 13, 14, 15, 16 | catidcl 16343 |
. . . . 5
⊢ ((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐶)‘𝑥) ∈ (𝑥(Hom ‘𝐶)𝑥)) |
18 | 6, 7, 13, 16, 16 | homfval 16352 |
. . . . 5
⊢ ((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑥(Homf ‘𝐶)𝑥) = (𝑥(Hom ‘𝐶)𝑥)) |
19 | 17, 18 | eleqtrrd 2704 |
. . . 4
⊢ ((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐶)‘𝑥) ∈ (𝑥(Homf ‘𝐶)𝑥)) |
20 | | eqid 2622 |
. . . . . . . 8
⊢
(comp‘𝐶) =
(comp‘𝐶) |
21 | 15 | adantr 481 |
. . . . . . . . 9
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → 𝐶 ∈ Cat) |
22 | 21 | adantr 481 |
. . . . . . . 8
⊢ ((((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧))) → 𝐶 ∈ Cat) |
23 | 16 | adantr 481 |
. . . . . . . . 9
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → 𝑥 ∈ (Base‘𝐶)) |
24 | 23 | adantr 481 |
. . . . . . . 8
⊢ ((((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧))) → 𝑥 ∈ (Base‘𝐶)) |
25 | | simpl 473 |
. . . . . . . . . 10
⊢ ((𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) → 𝑦 ∈ (Base‘𝐶)) |
26 | 25 | adantl 482 |
. . . . . . . . 9
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → 𝑦 ∈ (Base‘𝐶)) |
27 | 26 | adantr 481 |
. . . . . . . 8
⊢ ((((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧))) → 𝑦 ∈ (Base‘𝐶)) |
28 | | simpr 477 |
. . . . . . . . . 10
⊢ ((𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) → 𝑧 ∈ (Base‘𝐶)) |
29 | 28 | adantl 482 |
. . . . . . . . 9
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → 𝑧 ∈ (Base‘𝐶)) |
30 | 29 | adantr 481 |
. . . . . . . 8
⊢ ((((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧))) → 𝑧 ∈ (Base‘𝐶)) |
31 | 6, 7, 13, 23, 26 | homfval 16352 |
. . . . . . . . . . . 12
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → (𝑥(Homf ‘𝐶)𝑦) = (𝑥(Hom ‘𝐶)𝑦)) |
32 | 31 | eleq2d 2687 |
. . . . . . . . . . 11
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ↔ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) |
33 | 32 | biimpcd 239 |
. . . . . . . . . 10
⊢ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) → (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) |
34 | 33 | adantr 481 |
. . . . . . . . 9
⊢ ((𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧)) → (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))) |
35 | 34 | impcom 446 |
. . . . . . . 8
⊢ ((((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) |
36 | 6, 7, 13, 26, 29 | homfval 16352 |
. . . . . . . . . . . 12
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → (𝑦(Homf ‘𝐶)𝑧) = (𝑦(Hom ‘𝐶)𝑧)) |
37 | 36 | eleq2d 2687 |
. . . . . . . . . . 11
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → (𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧) ↔ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) |
38 | 37 | biimpd 219 |
. . . . . . . . . 10
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → (𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) |
39 | 38 | adantld 483 |
. . . . . . . . 9
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → ((𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧)) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) |
40 | 39 | imp 445 |
. . . . . . . 8
⊢ ((((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧)) |
41 | 7, 13, 20, 22, 24, 27, 30, 35, 40 | catcocl 16346 |
. . . . . . 7
⊢ ((((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧))) → (𝑔(〈𝑥, 𝑦〉(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Hom ‘𝐶)𝑧)) |
42 | 6, 7, 13, 23, 29 | homfval 16352 |
. . . . . . . 8
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → (𝑥(Homf ‘𝐶)𝑧) = (𝑥(Hom ‘𝐶)𝑧)) |
43 | 42 | adantr 481 |
. . . . . . 7
⊢ ((((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧))) → (𝑥(Homf ‘𝐶)𝑧) = (𝑥(Hom ‘𝐶)𝑧)) |
44 | 41, 43 | eleqtrrd 2704 |
. . . . . 6
⊢ ((((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧))) → (𝑔(〈𝑥, 𝑦〉(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Homf ‘𝐶)𝑧)) |
45 | 44 | ralrimivva 2971 |
. . . . 5
⊢ (((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) ∧ (𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶))) → ∀𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦)∀𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧)(𝑔(〈𝑥, 𝑦〉(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Homf ‘𝐶)𝑧)) |
46 | 45 | ralrimivva 2971 |
. . . 4
⊢ ((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) → ∀𝑦 ∈ (Base‘𝐶)∀𝑧 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦)∀𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧)(𝑔(〈𝑥, 𝑦〉(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Homf ‘𝐶)𝑧)) |
47 | 19, 46 | jca 554 |
. . 3
⊢ ((𝐶 ∈ Cat ∧ 𝑥 ∈ (Base‘𝐶)) → (((Id‘𝐶)‘𝑥) ∈ (𝑥(Homf ‘𝐶)𝑥) ∧ ∀𝑦 ∈ (Base‘𝐶)∀𝑧 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦)∀𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧)(𝑔(〈𝑥, 𝑦〉(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Homf ‘𝐶)𝑧))) |
48 | 47 | ralrimiva 2966 |
. 2
⊢ (𝐶 ∈ Cat → ∀𝑥 ∈ (Base‘𝐶)(((Id‘𝐶)‘𝑥) ∈ (𝑥(Homf ‘𝐶)𝑥) ∧ ∀𝑦 ∈ (Base‘𝐶)∀𝑧 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦)∀𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧)(𝑔(〈𝑥, 𝑦〉(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Homf ‘𝐶)𝑧))) |
49 | | id 22 |
. . 3
⊢ (𝐶 ∈ Cat → 𝐶 ∈ Cat) |
50 | 6, 14, 20, 49, 9 | issubc2 16496 |
. 2
⊢ (𝐶 ∈ Cat →
((Homf ‘𝐶) ∈ (Subcat‘𝐶) ↔ ((Homf
‘𝐶)
⊆cat (Homf ‘𝐶) ∧ ∀𝑥 ∈ (Base‘𝐶)(((Id‘𝐶)‘𝑥) ∈ (𝑥(Homf ‘𝐶)𝑥) ∧ ∀𝑦 ∈ (Base‘𝐶)∀𝑧 ∈ (Base‘𝐶)∀𝑓 ∈ (𝑥(Homf ‘𝐶)𝑦)∀𝑔 ∈ (𝑦(Homf ‘𝐶)𝑧)(𝑔(〈𝑥, 𝑦〉(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Homf ‘𝐶)𝑧))))) |
51 | 12, 48, 50 | mpbir2and 957 |
1
⊢ (𝐶 ∈ Cat →
(Homf ‘𝐶) ∈ (Subcat‘𝐶)) |