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 ⊢ φ → C ∈ ThinCat ∧ Id ⁡ C = y ∈ B ⟼ 1 ˙

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 ⊢ φ → C ∈ ThinCat
51 48 simprd ⊢ φ → Id ⁡ C = y ∈ B ⟼ 1 ˙
52 50 51 jca ⊢ φ → C ∈ ThinCat ∧ Id ⁡ C = y ∈ B ⟼ 1 ˙