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

Theorem cidpropd 16351
Description: Two structures with the same base, hom-sets and composition operation have the same identity function. (Contributed by Mario Carneiro, 17-Jan-2017.)
Hypotheses
Ref Expression
catpropd.1 (𝜑 → (Homf𝐶) = (Homf𝐷))
catpropd.2 (𝜑 → (compf𝐶) = (compf𝐷))
catpropd.3 (𝜑𝐶𝑉)
catpropd.4 (𝜑𝐷𝑊)
Assertion
Ref Expression
cidpropd (𝜑 → (Id‘𝐶) = (Id‘𝐷))

Proof of Theorem cidpropd
Dummy variables 𝑓 𝑔 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 catpropd.1 . . . . . 6 (𝜑 → (Homf𝐶) = (Homf𝐷))
21homfeqbas 16337 . . . . 5 (𝜑 → (Base‘𝐶) = (Base‘𝐷))
32adantr 481 . . . 4 ((𝜑𝐶 ∈ Cat) → (Base‘𝐶) = (Base‘𝐷))
4 eqid 2620 . . . . . . . . . 10 (Base‘𝐶) = (Base‘𝐶)
5 eqid 2620 . . . . . . . . . 10 (Hom ‘𝐶) = (Hom ‘𝐶)
6 eqid 2620 . . . . . . . . . 10 (Hom ‘𝐷) = (Hom ‘𝐷)
71ad4antr 767 . . . . . . . . . 10 (((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) → (Homf𝐶) = (Homf𝐷))
8 simpr 477 . . . . . . . . . 10 (((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) → 𝑦 ∈ (Base‘𝐶))
9 simpllr 798 . . . . . . . . . 10 (((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
104, 5, 6, 7, 8, 9homfeqval 16338 . . . . . . . . 9 (((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑦(Hom ‘𝐶)𝑥) = (𝑦(Hom ‘𝐷)𝑥))
11 eqid 2620 . . . . . . . . . . 11 (comp‘𝐶) = (comp‘𝐶)
12 eqid 2620 . . . . . . . . . . 11 (comp‘𝐷) = (comp‘𝐷)
131ad5antr 769 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)) → (Homf𝐶) = (Homf𝐷))
14 catpropd.2 . . . . . . . . . . . 12 (𝜑 → (compf𝐶) = (compf𝐷))
1514ad5antr 769 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)) → (compf𝐶) = (compf𝐷))
16 simplr 791 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)) → 𝑦 ∈ (Base‘𝐶))
17 simp-4r 806 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)) → 𝑥 ∈ (Base‘𝐶))
18 simpr 477 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)) → 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥))
19 simpllr 798 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)) → 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥))
204, 5, 11, 12, 13, 15, 16, 17, 17, 18, 19comfeqval 16349 . . . . . . . . . 10 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)) → (𝑔(⟨𝑦, 𝑥⟩(comp‘𝐶)𝑥)𝑓) = (𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓))
2120eqeq1d 2622 . . . . . . . . 9 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)) → ((𝑔(⟨𝑦, 𝑥⟩(comp‘𝐶)𝑥)𝑓) = 𝑓 ↔ (𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓))
2210, 21raleqbidva 3149 . . . . . . . 8 (((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) → (∀𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐶)𝑥)𝑓) = 𝑓 ↔ ∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓))
234, 5, 6, 7, 9, 8homfeqval 16338 . . . . . . . . 9 (((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(Hom ‘𝐶)𝑦) = (𝑥(Hom ‘𝐷)𝑦))
247adantr 481 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (Homf𝐶) = (Homf𝐷))
2514ad5antr 769 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (compf𝐶) = (compf𝐷))
269adantr 481 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑥 ∈ (Base‘𝐶))
27 simplr 791 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑦 ∈ (Base‘𝐶))
28 simpllr 798 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥))
29 simpr 477 . . . . . . . . . . 11 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
304, 5, 11, 12, 24, 25, 26, 26, 27, 28, 29comfeqval 16349 . . . . . . . . . 10 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑓(⟨𝑥, 𝑥⟩(comp‘𝐶)𝑦)𝑔) = (𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔))
3130eqeq1d 2622 . . . . . . . . 9 ((((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑓(⟨𝑥, 𝑥⟩(comp‘𝐶)𝑦)𝑔) = 𝑓 ↔ (𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓))
3223, 31raleqbidva 3149 . . . . . . . 8 (((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) → (∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐶)𝑦)𝑔) = 𝑓 ↔ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓))
3322, 32anbi12d 746 . . . . . . 7 (((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) ∧ 𝑦 ∈ (Base‘𝐶)) → ((∀𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐶)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐶)𝑦)𝑔) = 𝑓) ↔ (∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓)))
3433ralbidva 2982 . . . . . 6 ((((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)) → (∀𝑦 ∈ (Base‘𝐶)(∀𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐶)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐶)𝑦)𝑔) = 𝑓) ↔ ∀𝑦 ∈ (Base‘𝐶)(∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓)))
3534riotabidva 6612 . . . . 5 (((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)∀𝑦 ∈ (Base‘𝐶)(∀𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐶)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐶)𝑦)𝑔) = 𝑓)) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)∀𝑦 ∈ (Base‘𝐶)(∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓)))
361ad2antrr 761 . . . . . . 7 (((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) → (Homf𝐶) = (Homf𝐷))
37 simpr 477 . . . . . . 7 (((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
384, 5, 6, 36, 37, 37homfeqval 16338 . . . . . 6 (((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑥(Hom ‘𝐶)𝑥) = (𝑥(Hom ‘𝐷)𝑥))
392ad2antrr 761 . . . . . . 7 (((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) → (Base‘𝐶) = (Base‘𝐷))
4039raleqdv 3139 . . . . . 6 (((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) → (∀𝑦 ∈ (Base‘𝐶)(∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓) ↔ ∀𝑦 ∈ (Base‘𝐷)(∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓)))
4138, 40riotaeqbidv 6599 . . . . 5 (((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)∀𝑦 ∈ (Base‘𝐶)(∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓)) = (𝑔 ∈ (𝑥(Hom ‘𝐷)𝑥)∀𝑦 ∈ (Base‘𝐷)(∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓)))
4235, 41eqtrd 2654 . . . 4 (((𝜑𝐶 ∈ Cat) ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)∀𝑦 ∈ (Base‘𝐶)(∀𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐶)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐶)𝑦)𝑔) = 𝑓)) = (𝑔 ∈ (𝑥(Hom ‘𝐷)𝑥)∀𝑦 ∈ (Base‘𝐷)(∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓)))
433, 42mpteq12dva 4723 . . 3 ((𝜑𝐶 ∈ Cat) → (𝑥 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)∀𝑦 ∈ (Base‘𝐶)(∀𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐶)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐶)𝑦)𝑔) = 𝑓))) = (𝑥 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐷)𝑥)∀𝑦 ∈ (Base‘𝐷)(∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓))))
44 simpr 477 . . . 4 ((𝜑𝐶 ∈ Cat) → 𝐶 ∈ Cat)
45 eqid 2620 . . . 4 (Id‘𝐶) = (Id‘𝐶)
464, 5, 11, 44, 45cidfval 16318 . . 3 ((𝜑𝐶 ∈ Cat) → (Id‘𝐶) = (𝑥 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑥)∀𝑦 ∈ (Base‘𝐶)(∀𝑓 ∈ (𝑦(Hom ‘𝐶)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐶)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐶)𝑦)𝑔) = 𝑓))))
47 eqid 2620 . . . 4 (Base‘𝐷) = (Base‘𝐷)
48 catpropd.3 . . . . . 6 (𝜑𝐶𝑉)
49 catpropd.4 . . . . . 6 (𝜑𝐷𝑊)
501, 14, 48, 49catpropd 16350 . . . . 5 (𝜑 → (𝐶 ∈ Cat ↔ 𝐷 ∈ Cat))
5150biimpa 501 . . . 4 ((𝜑𝐶 ∈ Cat) → 𝐷 ∈ Cat)
52 eqid 2620 . . . 4 (Id‘𝐷) = (Id‘𝐷)
5347, 6, 12, 51, 52cidfval 16318 . . 3 ((𝜑𝐶 ∈ Cat) → (Id‘𝐷) = (𝑥 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐷)𝑥)∀𝑦 ∈ (Base‘𝐷)(∀𝑓 ∈ (𝑦(Hom ‘𝐷)𝑥)(𝑔(⟨𝑦, 𝑥⟩(comp‘𝐷)𝑥)𝑓) = 𝑓 ∧ ∀𝑓 ∈ (𝑥(Hom ‘𝐷)𝑦)(𝑓(⟨𝑥, 𝑥⟩(comp‘𝐷)𝑦)𝑔) = 𝑓))))
5443, 46, 533eqtr4d 2664 . 2 ((𝜑𝐶 ∈ Cat) → (Id‘𝐶) = (Id‘𝐷))
55 simpr 477 . . . . 5 ((𝜑 ∧ ¬ 𝐶 ∈ Cat) → ¬ 𝐶 ∈ Cat)
56 cidffn 16320 . . . . . . 7 Id Fn Cat
57 fndm 5978 . . . . . . 7 (Id Fn Cat → dom Id = Cat)
5856, 57ax-mp 5 . . . . . 6 dom Id = Cat
5958eleq2i 2691 . . . . 5 (𝐶 ∈ dom Id ↔ 𝐶 ∈ Cat)
6055, 59sylnibr 319 . . . 4 ((𝜑 ∧ ¬ 𝐶 ∈ Cat) → ¬ 𝐶 ∈ dom Id)
61 ndmfv 6205 . . . 4 𝐶 ∈ dom Id → (Id‘𝐶) = ∅)
6260, 61syl 17 . . 3 ((𝜑 ∧ ¬ 𝐶 ∈ Cat) → (Id‘𝐶) = ∅)
6358eleq2i 2691 . . . . . . 7 (𝐷 ∈ dom Id ↔ 𝐷 ∈ Cat)
6450, 63syl6bbr 278 . . . . . 6 (𝜑 → (𝐶 ∈ Cat ↔ 𝐷 ∈ dom Id))
6564notbid 308 . . . . 5 (𝜑 → (¬ 𝐶 ∈ Cat ↔ ¬ 𝐷 ∈ dom Id))
6665biimpa 501 . . . 4 ((𝜑 ∧ ¬ 𝐶 ∈ Cat) → ¬ 𝐷 ∈ dom Id)
67 ndmfv 6205 . . . 4 𝐷 ∈ dom Id → (Id‘𝐷) = ∅)
6866, 67syl 17 . . 3 ((𝜑 ∧ ¬ 𝐶 ∈ Cat) → (Id‘𝐷) = ∅)
6962, 68eqtr4d 2657 . 2 ((𝜑 ∧ ¬ 𝐶 ∈ Cat) → (Id‘𝐶) = (Id‘𝐷))
7054, 69pm2.61dan 831 1 (𝜑 → (Id‘𝐶) = (Id‘𝐷))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 384   = wceq 1481  wcel 1988  wral 2909  c0 3907  cop 4174  cmpt 4720  dom cdm 5104   Fn wfn 5871  cfv 5876  crio 6595  (class class class)co 6635  Basecbs 15838  Hom chom 15933  compcco 15934  Catccat 16306  Idccid 16307  Homf chomf 16308  compfccomf 16309
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1720  ax-4 1735  ax-5 1837  ax-6 1886  ax-7 1933  ax-8 1990  ax-9 1997  ax-10 2017  ax-11 2032  ax-12 2045  ax-13 2244  ax-ext 2600  ax-rep 4762  ax-sep 4772  ax-nul 4780  ax-pow 4834  ax-pr 4897  ax-un 6934
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1038  df-tru 1484  df-fal 1487  df-ex 1703  df-nf 1708  df-sb 1879  df-eu 2472  df-mo 2473  df-clab 2607  df-cleq 2613  df-clel 2616  df-nfc 2751  df-ne 2792  df-ral 2914  df-rex 2915  df-reu 2916  df-rab 2918  df-v 3197  df-sbc 3430  df-csb 3527  df-dif 3570  df-un 3572  df-in 3574  df-ss 3581  df-nul 3908  df-if 4078  df-pw 4151  df-sn 4169  df-pr 4171  df-op 4175  df-uni 4428  df-iun 4513  df-br 4645  df-opab 4704  df-mpt 4721  df-id 5014  df-xp 5110  df-rel 5111  df-cnv 5112  df-co 5113  df-dm 5114  df-rn 5115  df-res 5116  df-ima 5117  df-iota 5839  df-fun 5878  df-fn 5879  df-f 5880  df-f1 5881  df-fo 5882  df-f1o 5883  df-fv 5884  df-riota 6596  df-ov 6638  df-oprab 6639  df-mpt2 6640  df-1st 7153  df-2nd 7154  df-cat 16310  df-cid 16311  df-homf 16312  df-comf 16313
This theorem is referenced by:  funcpropd  16541  curfpropd  16854
  Copyright terms: Public domain W3C validator