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

Theorem issubc 17093
Description: Elementhood in the set of subcategories. (Contributed by Mario Carneiro, 4-Jan-2017.)
Hypotheses
Ref Expression
issubc.h 𝐻 = (Homf𝐶)
issubc.i 1 = (Id‘𝐶)
issubc.o · = (comp‘𝐶)
issubc.c (𝜑𝐶 ∈ Cat)
issubc.s (𝜑𝑆 = dom dom 𝐽)
Assertion
Ref Expression
issubc (𝜑 → (𝐽 ∈ (Subcat‘𝐶) ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
Distinct variable groups:   𝑓,𝑔,𝑥,𝑦,𝑧,𝐶   𝑓,𝐽,𝑔,𝑥,𝑦,𝑧   𝑆,𝑓,𝑔,𝑥,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧,𝑓,𝑔)   · (𝑥,𝑦,𝑧,𝑓,𝑔)   1 (𝑥,𝑦,𝑧,𝑓,𝑔)   𝐻(𝑥,𝑦,𝑧,𝑓,𝑔)

Proof of Theorem issubc
Dummy variables 𝑐 𝑗 𝑠 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 issubc.c . 2 (𝜑𝐶 ∈ Cat)
2 issubc.s . 2 (𝜑𝑆 = dom dom 𝐽)
3 simpl 483 . . . . 5 ((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) → 𝐶 ∈ Cat)
4 sscpwex 17073 . . . . . . . 8 {𝑗𝑗cat (Homf𝑐)} ∈ V
5 simpl 483 . . . . . . . . 9 ((𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧))) → 𝑗cat (Homf𝑐))
65ss2abi 4040 . . . . . . . 8 {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ⊆ {𝑗𝑗cat (Homf𝑐)}
74, 6ssexi 5217 . . . . . . 7 {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ∈ V
87csbex 5206 . . . . . 6 𝐶 / 𝑐{𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ∈ V
98a1i 11 . . . . 5 ((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) → 𝐶 / 𝑐{𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ∈ V)
10 df-subc 17070 . . . . . 6 Subcat = (𝑐 ∈ Cat ↦ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))})
1110fvmpts 6764 . . . . 5 ((𝐶 ∈ Cat ∧ 𝐶 / 𝑐{𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ∈ V) → (Subcat‘𝐶) = 𝐶 / 𝑐{𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))})
123, 9, 11syl2anc 584 . . . 4 ((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) → (Subcat‘𝐶) = 𝐶 / 𝑐{𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))})
1312eleq2d 2895 . . 3 ((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) → (𝐽 ∈ (Subcat‘𝐶) ↔ 𝐽𝐶 / 𝑐{𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))}))
14 sbcel2 4364 . . . 4 ([𝐶 / 𝑐]𝐽 ∈ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ↔ 𝐽𝐶 / 𝑐{𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))})
1514a1i 11 . . 3 ((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) → ([𝐶 / 𝑐]𝐽 ∈ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ↔ 𝐽𝐶 / 𝑐{𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))}))
16 elex 3510 . . . . . 6 (𝐽 ∈ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} → 𝐽 ∈ V)
1716a1i 11 . . . . 5 (((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) → (𝐽 ∈ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} → 𝐽 ∈ V))
18 sscrel 17071 . . . . . . . 8 Rel ⊆cat
1918brrelex1i 5601 . . . . . . 7 (𝐽cat 𝐻𝐽 ∈ V)
2019adantr 481 . . . . . 6 ((𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧))) → 𝐽 ∈ V)
2120a1i 11 . . . . 5 (((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) → ((𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧))) → 𝐽 ∈ V))
22 df-sbc 3770 . . . . . . 7 ([𝐽 / 𝑗](𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧))) ↔ 𝐽 ∈ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))})
23 simpr 485 . . . . . . . 8 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝐽 ∈ V) → 𝐽 ∈ V)
24 simpr 485 . . . . . . . . . . 11 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → 𝑗 = 𝐽)
25 simpr 485 . . . . . . . . . . . . . 14 (((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) → 𝑐 = 𝐶)
2625fveq2d 6667 . . . . . . . . . . . . 13 (((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) → (Homf𝑐) = (Homf𝐶))
27 issubc.h . . . . . . . . . . . . 13 𝐻 = (Homf𝐶)
2826, 27syl6eqr 2871 . . . . . . . . . . . 12 (((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) → (Homf𝑐) = 𝐻)
2928adantr 481 . . . . . . . . . . 11 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → (Homf𝑐) = 𝐻)
3024, 29breq12d 5070 . . . . . . . . . 10 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → (𝑗cat (Homf𝑐) ↔ 𝐽cat 𝐻))
31 vex 3495 . . . . . . . . . . . . . 14 𝑗 ∈ V
3231dmex 7605 . . . . . . . . . . . . 13 dom 𝑗 ∈ V
3332dmex 7605 . . . . . . . . . . . 12 dom dom 𝑗 ∈ V
3433a1i 11 . . . . . . . . . . 11 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → dom dom 𝑗 ∈ V)
3524dmeqd 5767 . . . . . . . . . . . . 13 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → dom 𝑗 = dom 𝐽)
3635dmeqd 5767 . . . . . . . . . . . 12 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → dom dom 𝑗 = dom dom 𝐽)
37 simpllr 772 . . . . . . . . . . . 12 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → 𝑆 = dom dom 𝐽)
3836, 37eqtr4d 2856 . . . . . . . . . . 11 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → dom dom 𝑗 = 𝑆)
39 simpr 485 . . . . . . . . . . . 12 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → 𝑠 = 𝑆)
40 simpllr 772 . . . . . . . . . . . . . . . . 17 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → 𝑐 = 𝐶)
4140fveq2d 6667 . . . . . . . . . . . . . . . 16 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (Id‘𝑐) = (Id‘𝐶))
42 issubc.i . . . . . . . . . . . . . . . 16 1 = (Id‘𝐶)
4341, 42syl6eqr 2871 . . . . . . . . . . . . . . 15 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (Id‘𝑐) = 1 )
4443fveq1d 6665 . . . . . . . . . . . . . 14 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → ((Id‘𝑐)‘𝑥) = ( 1𝑥))
45 simplr 765 . . . . . . . . . . . . . . 15 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → 𝑗 = 𝐽)
4645oveqd 7162 . . . . . . . . . . . . . 14 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (𝑥𝑗𝑥) = (𝑥𝐽𝑥))
4744, 46eleq12d 2904 . . . . . . . . . . . . 13 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ↔ ( 1𝑥) ∈ (𝑥𝐽𝑥)))
4845oveqd 7162 . . . . . . . . . . . . . . . 16 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (𝑥𝑗𝑦) = (𝑥𝐽𝑦))
4945oveqd 7162 . . . . . . . . . . . . . . . . 17 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (𝑦𝑗𝑧) = (𝑦𝐽𝑧))
5040fveq2d 6667 . . . . . . . . . . . . . . . . . . . . 21 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (comp‘𝑐) = (comp‘𝐶))
51 issubc.o . . . . . . . . . . . . . . . . . . . . 21 · = (comp‘𝐶)
5250, 51syl6eqr 2871 . . . . . . . . . . . . . . . . . . . 20 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (comp‘𝑐) = · )
5352oveqd 7162 . . . . . . . . . . . . . . . . . . 19 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧) = (⟨𝑥, 𝑦· 𝑧))
5453oveqd 7162 . . . . . . . . . . . . . . . . . 18 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦· 𝑧)𝑓))
5545oveqd 7162 . . . . . . . . . . . . . . . . . 18 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (𝑥𝑗𝑧) = (𝑥𝐽𝑧))
5654, 55eleq12d 2904 . . . . . . . . . . . . . . . . 17 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧) ↔ (𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))
5749, 56raleqbidv 3399 . . . . . . . . . . . . . . . 16 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧) ↔ ∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))
5848, 57raleqbidv 3399 . . . . . . . . . . . . . . 15 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (∀𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧) ↔ ∀𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))
5939, 58raleqbidv 3399 . . . . . . . . . . . . . 14 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (∀𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧) ↔ ∀𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))
6039, 59raleqbidv 3399 . . . . . . . . . . . . 13 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧) ↔ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))
6147, 60anbi12d 630 . . . . . . . . . . . 12 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → ((((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)) ↔ (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧))))
6239, 61raleqbidv 3399 . . . . . . . . . . 11 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) ∧ 𝑠 = 𝑆) → (∀𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)) ↔ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧))))
6334, 38, 62sbcied2 3812 . . . . . . . . . 10 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → ([dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)) ↔ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧))))
6430, 63anbi12d 630 . . . . . . . . 9 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝑗 = 𝐽) → ((𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧))) ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
6564adantlr 711 . . . . . . . 8 (((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝐽 ∈ V) ∧ 𝑗 = 𝐽) → ((𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧))) ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
6623, 65sbcied 3811 . . . . . . 7 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝐽 ∈ V) → ([𝐽 / 𝑗](𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧))) ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
6722, 66syl5bbr 286 . . . . . 6 ((((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) ∧ 𝐽 ∈ V) → (𝐽 ∈ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
6867ex 413 . . . . 5 (((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) → (𝐽 ∈ V → (𝐽 ∈ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧))))))
6917, 21, 68pm5.21ndd 381 . . . 4 (((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) ∧ 𝑐 = 𝐶) → (𝐽 ∈ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
703, 69sbcied 3811 . . 3 ((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) → ([𝐶 / 𝑐]𝐽 ∈ {𝑗 ∣ (𝑗cat (Homf𝑐) ∧ [dom dom 𝑗 / 𝑠]𝑥𝑠 (((Id‘𝑐)‘𝑥) ∈ (𝑥𝑗𝑥) ∧ ∀𝑦𝑠𝑧𝑠𝑓 ∈ (𝑥𝑗𝑦)∀𝑔 ∈ (𝑦𝑗𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝑐)𝑧)𝑓) ∈ (𝑥𝑗𝑧)))} ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
7113, 15, 703bitr2d 308 . 2 ((𝐶 ∈ Cat ∧ 𝑆 = dom dom 𝐽) → (𝐽 ∈ (Subcat‘𝐶) ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
721, 2, 71syl2anc 584 1 (𝜑 → (𝐽 ∈ (Subcat‘𝐶) ↔ (𝐽cat 𝐻 ∧ ∀𝑥𝑆 (( 1𝑥) ∈ (𝑥𝐽𝑥) ∧ ∀𝑦𝑆𝑧𝑆𝑓 ∈ (𝑥𝐽𝑦)∀𝑔 ∈ (𝑦𝐽𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) ∈ (𝑥𝐽𝑧)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396   = wceq 1528  wcel 2105  {cab 2796  wral 3135  Vcvv 3492  [wsbc 3769  csb 3880  cop 4563   class class class wbr 5057  dom cdm 5548  cfv 6348  (class class class)co 7145  compcco 16565  Catccat 16923  Idccid 16924  Homf chomf 16925  cat cssc 17065  Subcatcsubc 17067
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1787  ax-4 1801  ax-5 1902  ax-6 1961  ax-7 2006  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2151  ax-12 2167  ax-ext 2790  ax-rep 5181  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7450
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 842  df-3an 1081  df-tru 1531  df-fal 1541  df-ex 1772  df-nf 1776  df-sb 2061  df-mo 2615  df-eu 2647  df-clab 2797  df-cleq 2811  df-clel 2890  df-nfc 2960  df-ne 3014  df-ral 3140  df-rex 3141  df-reu 3142  df-rab 3144  df-v 3494  df-sbc 3770  df-csb 3881  df-dif 3936  df-un 3938  df-in 3940  df-ss 3949  df-nul 4289  df-if 4464  df-pw 4537  df-sn 4558  df-pr 4560  df-op 4564  df-uni 4831  df-iun 4912  df-br 5058  df-opab 5120  df-mpt 5138  df-id 5453  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-f1 6353  df-fo 6354  df-f1o 6355  df-fv 6356  df-ov 7148  df-oprab 7149  df-mpo 7150  df-pm 8398  df-ixp 8450  df-ssc 17068  df-subc 17070
This theorem is referenced by:  issubc2  17094  subcssc  17098
  Copyright terms: Public domain W3C validator