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

Theorem initoeu2 16873
Description: Initial objects are essentially unique, if A is an initial object, then so is every object that is isomorphic to A. Proposition 7.3 (2) in [Adamek] p. 102. (Contributed by AV, 10-Apr-2020.)
Hypotheses
Ref Expression
initoeu1.c (𝜑𝐶 ∈ Cat)
initoeu1.a (𝜑𝐴 ∈ (InitO‘𝐶))
initoeu2.i (𝜑𝐴( ≃𝑐𝐶)𝐵)
Assertion
Ref Expression
initoeu2 (𝜑𝐵 ∈ (InitO‘𝐶))

Proof of Theorem initoeu2
Dummy variables 𝑎 𝑔 𝑏 𝑓 𝑘 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 initoeu2.i . 2 (𝜑𝐴( ≃𝑐𝐶)𝐵)
2 initoeu1.c . . . 4 (𝜑𝐶 ∈ Cat)
3 ciclcl 16669 . . . 4 ((𝐶 ∈ Cat ∧ 𝐴( ≃𝑐𝐶)𝐵) → 𝐴 ∈ (Base‘𝐶))
42, 3sylan 569 . . 3 ((𝜑𝐴( ≃𝑐𝐶)𝐵) → 𝐴 ∈ (Base‘𝐶))
5 cicrcl 16670 . . . 4 ((𝐶 ∈ Cat ∧ 𝐴( ≃𝑐𝐶)𝐵) → 𝐵 ∈ (Base‘𝐶))
62, 5sylan 569 . . 3 ((𝜑𝐴( ≃𝑐𝐶)𝐵) → 𝐵 ∈ (Base‘𝐶))
72adantr 466 . . . . . . . . . 10 ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → 𝐶 ∈ Cat)
8 cicsym 16671 . . . . . . . . . 10 ((𝐶 ∈ Cat ∧ 𝐴( ≃𝑐𝐶)𝐵) → 𝐵( ≃𝑐𝐶)𝐴)
97, 8sylan 569 . . . . . . . . 9 (((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) ∧ 𝐴( ≃𝑐𝐶)𝐵) → 𝐵( ≃𝑐𝐶)𝐴)
10 eqid 2771 . . . . . . . . . . . 12 (Iso‘𝐶) = (Iso‘𝐶)
11 eqid 2771 . . . . . . . . . . . 12 (Base‘𝐶) = (Base‘𝐶)
12 simprr 756 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → 𝐵 ∈ (Base‘𝐶))
13 simprl 754 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → 𝐴 ∈ (Base‘𝐶))
1410, 11, 7, 12, 13cic 16666 . . . . . . . . . . 11 ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → (𝐵( ≃𝑐𝐶)𝐴 ↔ ∃𝑘 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)))
15 initoeu1.a . . . . . . . . . . . . . . . . 17 (𝜑𝐴 ∈ (InitO‘𝐶))
16 eqid 2771 . . . . . . . . . . . . . . . . . 18 (Hom ‘𝐶) = (Hom ‘𝐶)
1711, 16, 2isinitoi 16860 . . . . . . . . . . . . . . . . 17 ((𝜑𝐴 ∈ (InitO‘𝐶)) → (𝐴 ∈ (Base‘𝐶) ∧ ∀𝑎 ∈ (Base‘𝐶)∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎)))
1815, 17mpdan 667 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐴 ∈ (Base‘𝐶) ∧ ∀𝑎 ∈ (Base‘𝐶)∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎)))
19 oveq2 6804 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑎 = 𝑏 → (𝐴(Hom ‘𝐶)𝑎) = (𝐴(Hom ‘𝐶)𝑏))
2019eleq2d 2836 . . . . . . . . . . . . . . . . . . . . . 22 (𝑎 = 𝑏 → (𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎) ↔ 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏)))
2120eubidv 2638 . . . . . . . . . . . . . . . . . . . . 21 (𝑎 = 𝑏 → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎) ↔ ∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏)))
2221rspcva 3458 . . . . . . . . . . . . . . . . . . . 20 ((𝑏 ∈ (Base‘𝐶) ∧ ∀𝑎 ∈ (Base‘𝐶)∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎)) → ∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏))
23 nfv 1995 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏)
24 nfv 1995 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏)
25 eleq1w 2833 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑓 = → (𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) ↔ ∈ (𝐴(Hom ‘𝐶)𝑏)))
2623, 24, 25cbveu 2654 . . . . . . . . . . . . . . . . . . . . . . . 24 (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) ↔ ∃! ∈ (𝐴(Hom ‘𝐶)𝑏))
27 euex 2642 . . . . . . . . . . . . . . . . . . . . . . . . 25 (∃! ∈ (𝐴(Hom ‘𝐶)𝑏) → ∃ ∈ (𝐴(Hom ‘𝐶)𝑏))
282adantr 466 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) → 𝐶 ∈ Cat)
29 simpr 471 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → 𝐵 ∈ (Base‘𝐶))
3029ad2antrl 707 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) → 𝐵 ∈ (Base‘𝐶))
31 simpl 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → 𝐴 ∈ (Base‘𝐶))
3231ad2antrl 707 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) → 𝐴 ∈ (Base‘𝐶))
3311, 16, 10, 28, 30, 32isohom 16643 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) → (𝐵(Iso‘𝐶)𝐴) ⊆ (𝐵(Hom ‘𝐶)𝐴))
3433sselda 3752 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) → 𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴))
35 eqid 2771 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (comp‘𝐶) = (comp‘𝐶)
3628ad2antrr 705 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) → 𝐶 ∈ Cat)
3730ad2antrr 705 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) → 𝐵 ∈ (Base‘𝐶))
3832ad2antrr 705 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) → 𝐴 ∈ (Base‘𝐶))
39 simprr 756 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) → 𝑏 ∈ (Base‘𝐶))
4039ad2antrr 705 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) → 𝑏 ∈ (Base‘𝐶))
41 simprl 754 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) → 𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴))
42 simprr 756 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) → ∈ (𝐴(Hom ‘𝐶)𝑏))
4311, 16, 35, 36, 37, 38, 40, 41, 42catcocl 16553 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) → ((⟨𝐵, 𝐴⟩(comp‘𝐶)𝑏)𝑘) ∈ (𝐵(Hom ‘𝐶)𝑏))
44 simpl 468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) → 𝜑)
4544ad2antrr 705 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) → 𝜑)
4645adantr 466 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) ∧ ((⟨𝐵, 𝐴⟩(comp‘𝐶)𝑏)𝑘) ∈ (𝐵(Hom ‘𝐶)𝑏)) → 𝜑)
47 df-3an 1073 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶) ∧ 𝑏 ∈ (Base‘𝐶)) ↔ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)))
4847biimpri 218 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶) ∧ 𝑏 ∈ (Base‘𝐶)))
4948ad4antlr 714 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) ∧ ((⟨𝐵, 𝐴⟩(comp‘𝐶)𝑏)𝑘) ∈ (𝐵(Hom ‘𝐶)𝑏)) → (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶) ∧ 𝑏 ∈ (Base‘𝐶)))
50 simpr 471 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) → 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴))
5150ad2antrr 705 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) ∧ ((⟨𝐵, 𝐴⟩(comp‘𝐶)𝑏)𝑘) ∈ (𝐵(Hom ‘𝐶)𝑏)) → 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴))
5242adantr 466 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) ∧ ((⟨𝐵, 𝐴⟩(comp‘𝐶)𝑏)𝑘) ∈ (𝐵(Hom ‘𝐶)𝑏)) → ∈ (𝐴(Hom ‘𝐶)𝑏))
53 simpr 471 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) ∧ ((⟨𝐵, 𝐴⟩(comp‘𝐶)𝑏)𝑘) ∈ (𝐵(Hom ‘𝐶)𝑏)) → ((⟨𝐵, 𝐴⟩(comp‘𝐶)𝑏)𝑘) ∈ (𝐵(Hom ‘𝐶)𝑏))
542, 15, 11, 16, 10, 35initoeu2lem2 16872 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏) ∧ ((⟨𝐵, 𝐴⟩(comp‘𝐶)𝑏)𝑘) ∈ (𝐵(Hom ‘𝐶)𝑏))) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))
5546, 49, 51, 52, 53, 54syl113anc 1488 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) ∧ ((⟨𝐵, 𝐴⟩(comp‘𝐶)𝑏)𝑘) ∈ (𝐵(Hom ‘𝐶)𝑏)) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))
5643, 55mpdan 667 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) ∧ (𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏))) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))
5756ex 397 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) → ((𝑘 ∈ (𝐵(Hom ‘𝐶)𝐴) ∧ ∈ (𝐴(Hom ‘𝐶)𝑏)) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))
5834, 57mpand 675 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) ∧ 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴)) → ( ∈ (𝐴(Hom ‘𝐶)𝑏) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))
5958ex 397 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → ( ∈ (𝐴(Hom ‘𝐶)𝑏) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))
6059com23 86 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝜑 ∧ ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶))) → ( ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))
6160ex 397 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝜑 → (((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → ( ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))))
6261com15 101 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → (((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → ( ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))))
6362expd 400 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑏 ∈ (Base‘𝐶) → ( ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))))
6463com24 95 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ( ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑏 ∈ (Base‘𝐶) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))))
6564com12 32 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ( ∈ (𝐴(Hom ‘𝐶)𝑏) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑏 ∈ (Base‘𝐶) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))))
6665exlimiv 2010 . . . . . . . . . . . . . . . . . . . . . . . . 25 (∃ ∈ (𝐴(Hom ‘𝐶)𝑏) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑏 ∈ (Base‘𝐶) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))))
6727, 66syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (∃! ∈ (𝐴(Hom ‘𝐶)𝑏) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑏 ∈ (Base‘𝐶) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))))
6826, 67sylbi 207 . . . . . . . . . . . . . . . . . . . . . . 23 (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑏 ∈ (Base‘𝐶) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))))
6968pm2.43i 52 . . . . . . . . . . . . . . . . . . . . . 22 (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → (𝑏 ∈ (Base‘𝐶) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))))
7069com12 32 . . . . . . . . . . . . . . . . . . . . 21 (𝑏 ∈ (Base‘𝐶) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))))
7170adantr 466 . . . . . . . . . . . . . . . . . . . 20 ((𝑏 ∈ (Base‘𝐶) ∧ ∀𝑎 ∈ (Base‘𝐶)∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎)) → (∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑏) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))))
7222, 71mpd 15 . . . . . . . . . . . . . . . . . . 19 ((𝑏 ∈ (Base‘𝐶) ∧ ∀𝑎 ∈ (Base‘𝐶)∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎)) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))
7372ex 397 . . . . . . . . . . . . . . . . . 18 (𝑏 ∈ (Base‘𝐶) → (∀𝑎 ∈ (Base‘𝐶)∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝜑 → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))))
7473com15 101 . . . . . . . . . . . . . . . . 17 (𝜑 → (∀𝑎 ∈ (Base‘𝐶)∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))))
7574adantld 478 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐴 ∈ (Base‘𝐶) ∧ ∀𝑎 ∈ (Base‘𝐶)∃!𝑓 𝑓 ∈ (𝐴(Hom ‘𝐶)𝑎)) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))))
7618, 75mpd 15 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))))
7776imp 393 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))
7877com12 32 . . . . . . . . . . . . 13 (𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))
7978exlimiv 2010 . . . . . . . . . . . 12 (∃𝑘 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))
8079com12 32 . . . . . . . . . . 11 ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → (∃𝑘 𝑘 ∈ (𝐵(Iso‘𝐶)𝐴) → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))
8114, 80sylbid 230 . . . . . . . . . 10 ((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → (𝐵( ≃𝑐𝐶)𝐴 → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))
8281adantr 466 . . . . . . . . 9 (((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) ∧ 𝐴( ≃𝑐𝐶)𝐵) → (𝐵( ≃𝑐𝐶)𝐴 → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))))
839, 82mpd 15 . . . . . . . 8 (((𝜑 ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) ∧ 𝐴( ≃𝑐𝐶)𝐵) → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))
8483an32s 631 . . . . . . 7 (((𝜑𝐴( ≃𝑐𝐶)𝐵) ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → (𝑏 ∈ (Base‘𝐶) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))
8584imp 393 . . . . . 6 ((((𝜑𝐴( ≃𝑐𝐶)𝐵) ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) ∧ 𝑏 ∈ (Base‘𝐶)) → ∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))
8685ralrimiva 3115 . . . . 5 (((𝜑𝐴( ≃𝑐𝐶)𝐵) ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → ∀𝑏 ∈ (Base‘𝐶)∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏))
872ad2antrr 705 . . . . . 6 (((𝜑𝐴( ≃𝑐𝐶)𝐵) ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → 𝐶 ∈ Cat)
88 simprr 756 . . . . . 6 (((𝜑𝐴( ≃𝑐𝐶)𝐵) ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → 𝐵 ∈ (Base‘𝐶))
8911, 16, 87, 88isinito 16857 . . . . 5 (((𝜑𝐴( ≃𝑐𝐶)𝐵) ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → (𝐵 ∈ (InitO‘𝐶) ↔ ∀𝑏 ∈ (Base‘𝐶)∃!𝑔 𝑔 ∈ (𝐵(Hom ‘𝐶)𝑏)))
9086, 89mpbird 247 . . . 4 (((𝜑𝐴( ≃𝑐𝐶)𝐵) ∧ (𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶))) → 𝐵 ∈ (InitO‘𝐶))
9190ex 397 . . 3 ((𝜑𝐴( ≃𝑐𝐶)𝐵) → ((𝐴 ∈ (Base‘𝐶) ∧ 𝐵 ∈ (Base‘𝐶)) → 𝐵 ∈ (InitO‘𝐶)))
924, 6, 91mp2and 679 . 2 ((𝜑𝐴( ≃𝑐𝐶)𝐵) → 𝐵 ∈ (InitO‘𝐶))
931, 92mpdan 667 1 (𝜑𝐵 ∈ (InitO‘𝐶))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 382  w3a 1071   = wceq 1631  wex 1852  wcel 2145  ∃!weu 2618  wral 3061  cop 4323   class class class wbr 4787  cfv 6030  (class class class)co 6796  Basecbs 16064  Hom chom 16160  compcco 16161  Catccat 16532  Isociso 16613  𝑐 ccic 16662  InitOcinito 16845
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1870  ax-4 1885  ax-5 1991  ax-6 2057  ax-7 2093  ax-8 2147  ax-9 2154  ax-10 2174  ax-11 2190  ax-12 2203  ax-13 2408  ax-ext 2751  ax-rep 4905  ax-sep 4916  ax-nul 4924  ax-pow 4975  ax-pr 5035  ax-un 7100
This theorem depends on definitions:  df-bi 197  df-an 383  df-or 837  df-3an 1073  df-tru 1634  df-ex 1853  df-nf 1858  df-sb 2050  df-eu 2622  df-mo 2623  df-clab 2758  df-cleq 2764  df-clel 2767  df-nfc 2902  df-ne 2944  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3353  df-sbc 3588  df-csb 3683  df-dif 3726  df-un 3728  df-in 3730  df-ss 3737  df-nul 4064  df-if 4227  df-pw 4300  df-sn 4318  df-pr 4320  df-op 4324  df-uni 4576  df-iun 4657  df-br 4788  df-opab 4848  df-mpt 4865  df-id 5158  df-xp 5256  df-rel 5257  df-cnv 5258  df-co 5259  df-dm 5260  df-rn 5261  df-res 5262  df-ima 5263  df-iota 5993  df-fun 6032  df-fn 6033  df-f 6034  df-f1 6035  df-fo 6036  df-f1o 6037  df-fv 6038  df-riota 6757  df-ov 6799  df-oprab 6800  df-mpt2 6801  df-1st 7319  df-2nd 7320  df-supp 7451  df-cat 16536  df-cid 16537  df-sect 16614  df-inv 16615  df-iso 16616  df-cic 16663  df-inito 16848
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator