Metamath Proof Explorer


Theorem isthincd2

Description: The predicate " C is a thin category" without knowing C is a category (deduction form). The identity arrow operator is also provided as a byproduct. (Contributed by Zhi Wang, 17-Sep-2024)

Ref Expression
Hypotheses isthincd.b φ B = Base C
isthincd.h φ H = Hom C
isthincd.t φ x B y B * f f x H y
isthincd2.o φ · ˙ = comp C
isthincd2.c φ C V
isthincd2.ps ψ x B y B z B f x H y g y H z
isthincd2.1 φ y B 1 ˙ y H y
isthincd2.2 φ ψ g x y · ˙ z f x H z
Assertion isthincd2 Could not format assertion : No typesetting found for |- ( ph -> ( C e. ThinCat /\ ( Id ` C ) = ( y e. B |-> .1. ) ) ) with typecode |-

Proof

Step Hyp Ref Expression
1 isthincd.b φ B = Base C
2 isthincd.h φ H = Hom C
3 isthincd.t φ x B y B * f f x H y
4 isthincd2.o φ · ˙ = comp C
5 isthincd2.c φ C V
6 isthincd2.ps ψ x B y B z B f x H y g y H z
7 isthincd2.1 φ y B 1 ˙ y H y
8 isthincd2.2 φ ψ g x y · ˙ z f x H z
9 3an4anass x B y B z B w B x B y B z B w B
10 9 anbi1i x B y B z B w B f x H y g y H z k z H w x B y B z B w B f x H y g y H z k z H w
11 6 3anbi1i ψ w B k z H w x B y B z B f x H y g y H z w B k z H w
12 3anass x B y B z B f x H y g y H z w B k z H w x B y B z B f x H y g y H z w B k z H w
13 an4 x B y B z B f x H y g y H z w B k z H w x B y B z B w B f x H y g y H z k z H w
14 11 12 13 3bitri ψ w B k z H w x B y B z B w B f x H y g y H z k z H w
15 df-3an f x H y g y H z k z H w f x H y g y H z k z H w
16 15 anbi2i x B y B z B w B f x H y g y H z k z H w x B y B z B w B f x H y g y H z k z H w
17 10 14 16 3bitr4i ψ w B k z H w x B y B z B w B f x H y g y H z k z H w
18 df-3an x B y B z B w B f x H y g y H z k z H w x B y B z B w B f x H y g y H z k z H w
19 17 18 bitr4i ψ w B k z H w x B y B z B w B f x H y g y H z k z H w
20 simpr1l φ x B y B z B w B f x H y g y H z k z H w x B
21 simpr1r φ x B y B z B w B f x H y g y H z k z H w y B
22 simpr31 φ x B y B z B w B f x H y g y H z k z H w f x H y
23 21 7 syldan φ x B y B z B w B f x H y g y H z k z H w 1 ˙ y H y
24 6 bianass φ ψ φ x B y B z B f x H y g y H z
25 24 8 sylbir φ x B y B z B f x H y g y H z g x y · ˙ z f x H z
26 25 ralrimivva φ x B y B z B f x H y g y H z g x y · ˙ z f x H z
27 26 ralrimivvva φ x B y B z B f x H y g y H z g x y · ˙ z f x H z
28 27 adantr φ x B y B z B w B f x H y g y H z k z H w x B y B z B f x H y g y H z g x y · ˙ z f x H z
29 20 21 21 22 23 28 isthincd2lem2 φ x B y B z B w B f x H y g y H z k z H w 1 ˙ x y · ˙ y f x H y
30 3 ralrimivva φ x B y B * f f x H y
31 30 adantr φ x B y B z B w B f x H y g y H z k z H w x B y B * f f x H y
32 20 21 29 22 31 isthincd2lem1 φ x B y B z B w B f x H y g y H z k z H w 1 ˙ x y · ˙ y f = f
33 19 32 sylan2b φ ψ w B k z H w 1 ˙ x y · ˙ y f = f
34 simpr2l φ x B y B z B w B f x H y g y H z k z H w z B
35 simpr32 φ x B y B z B w B f x H y g y H z k z H w g y H z
36 21 21 34 23 35 28 isthincd2lem2 φ x B y B z B w B f x H y g y H z k z H w g y y · ˙ z 1 ˙ y H z
37 21 34 36 35 31 isthincd2lem1 φ x B y B z B w B f x H y g y H z k z H w g y y · ˙ z 1 ˙ = g
38 19 37 sylan2b φ ψ w B k z H w g y y · ˙ z 1 ˙ = g
39 8 3ad2antr1 φ ψ w B k z H w g x y · ˙ z f x H z
40 simpr2r φ x B y B z B w B f x H y g y H z k z H w w B
41 simpr33 φ x B y B z B w B f x H y g y H z k z H w k z H w
42 21 34 40 35 41 28 isthincd2lem2 φ x B y B z B w B f x H y g y H z k z H w k y z · ˙ w g y H w
43 20 21 40 22 42 28 isthincd2lem2 φ x B y B z B w B f x H y g y H z k z H w k y z · ˙ w g x y · ˙ w f x H w
44 19 39 sylan2br φ x B y B z B w B f x H y g y H z k z H w g x y · ˙ z f x H z
45 20 34 40 44 41 28 isthincd2lem2 φ x B y B z B w B f x H y g y H z k z H w k x z · ˙ w g x y · ˙ z f x H w
46 20 40 43 45 31 isthincd2lem1 φ x B y B z B w B f x H y g y H z k z H w k y z · ˙ w g x y · ˙ w f = k x z · ˙ w g x y · ˙ z f
47 19 46 sylan2b φ ψ w B k z H w k y z · ˙ w g x y · ˙ w f = k x z · ˙ w g x y · ˙ z f
48 1 2 4 5 19 7 33 38 39 47 iscatd2 φ C Cat Id C = y B 1 ˙
49 48 simpld φ C Cat
50 1 2 3 49 isthincd Could not format ( ph -> C e. ThinCat ) : No typesetting found for |- ( ph -> C e. ThinCat ) with typecode |-
51 48 simprd φ Id C = y B 1 ˙
52 50 51 jca Could not format ( ph -> ( C e. ThinCat /\ ( Id ` C ) = ( y e. B |-> .1. ) ) ) : No typesetting found for |- ( ph -> ( C e. ThinCat /\ ( Id ` C ) = ( y e. B |-> .1. ) ) ) with typecode |-