Users' Mathboxes Mathbox for Zhi Wang < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  oppcthinendcALT Structured version   Visualization version   GIF version

Theorem oppcthinendcALT 49063
Description: Alternate proof of oppcthinendc 49062. (Contributed by Zhi Wang, 16-Oct-2025.) (Proof modification is discouraged.) (New usage is discouraged.)
Hypotheses
Ref Expression
oppcthinco.o 𝑂 = (oppCat‘𝐶)
oppcthinco.c (𝜑𝐶 ∈ ThinCat)
oppcthinendc.b 𝐵 = (Base‘𝐶)
oppcthinendc.h 𝐻 = (Hom ‘𝐶)
oppcthinendc.1 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑥𝑦 → (𝑥𝐻𝑦) = ∅))
Assertion
Ref Expression
oppcthinendcALT (𝜑 → (compf𝐶) = (compf𝑂))
Distinct variable groups:   𝑥,𝐵,𝑦   𝑥,𝐶,𝑦   𝑥,𝐻,𝑦   𝑥,𝑂,𝑦   𝜑,𝑥,𝑦

Proof of Theorem oppcthinendcALT
Dummy variables 𝑓 𝑔 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oppcthinendc.b . . . . . 6 𝐵 = (Base‘𝐶)
2 eqid 2736 . . . . . 6 (comp‘𝐶) = (comp‘𝐶)
3 oppcthinco.o . . . . . 6 𝑂 = (oppCat‘𝐶)
4 simplr1 1216 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑥𝐵)
5 simplr2 1217 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑦𝐵)
6 simplr3 1218 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑧𝐵)
71, 2, 3, 4, 5, 6oppcco 17756 . . . . 5 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝑂)𝑧)𝑓) = (𝑓(⟨𝑧, 𝑦⟩(comp‘𝐶)𝑥)𝑔))
8 simpll 767 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝜑)
94, 5jca 511 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (𝑥𝐵𝑦𝐵))
10 simprl 771 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑓 ∈ (𝑥𝐻𝑦))
1110ne0d 4341 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (𝑥𝐻𝑦) ≠ ∅)
12 oppcthinendc.1 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → (𝑥𝑦 → (𝑥𝐻𝑦) = ∅))
1312necon1d 2961 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝐵𝑦𝐵)) → ((𝑥𝐻𝑦) ≠ ∅ → 𝑥 = 𝑦))
1413imp 406 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝐵𝑦𝐵)) ∧ (𝑥𝐻𝑦) ≠ ∅) → 𝑥 = 𝑦)
158, 9, 11, 14syl21anc 838 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑥 = 𝑦)
16 simprr 773 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑔 ∈ (𝑦𝐻𝑧))
1716ne0d 4341 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (𝑦𝐻𝑧) ≠ ∅)
18 neeq1 3002 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → (𝑥𝑧𝑦𝑧))
19 oveq1 7436 . . . . . . . . . . . . . . 15 (𝑥 = 𝑦 → (𝑥𝐻𝑧) = (𝑦𝐻𝑧))
2019eqeq1d 2738 . . . . . . . . . . . . . 14 (𝑥 = 𝑦 → ((𝑥𝐻𝑧) = ∅ ↔ (𝑦𝐻𝑧) = ∅))
2118, 20imbi12d 344 . . . . . . . . . . . . 13 (𝑥 = 𝑦 → ((𝑥𝑧 → (𝑥𝐻𝑧) = ∅) ↔ (𝑦𝑧 → (𝑦𝐻𝑧) = ∅)))
22 neeq2 3003 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑧 → (𝑥𝑦𝑥𝑧))
23 oveq2 7437 . . . . . . . . . . . . . . . . . 18 (𝑦 = 𝑧 → (𝑥𝐻𝑦) = (𝑥𝐻𝑧))
2423eqeq1d 2738 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑧 → ((𝑥𝐻𝑦) = ∅ ↔ (𝑥𝐻𝑧) = ∅))
2522, 24imbi12d 344 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑧 → ((𝑥𝑦 → (𝑥𝐻𝑦) = ∅) ↔ (𝑥𝑧 → (𝑥𝐻𝑧) = ∅)))
2612anassrs 467 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑥𝐵) ∧ 𝑦𝐵) → (𝑥𝑦 → (𝑥𝐻𝑦) = ∅))
2726ralrimiva 3145 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥𝐵) → ∀𝑦𝐵 (𝑥𝑦 → (𝑥𝐻𝑦) = ∅))
2827adantlr 715 . . . . . . . . . . . . . . . 16 (((𝜑𝑧𝐵) ∧ 𝑥𝐵) → ∀𝑦𝐵 (𝑥𝑦 → (𝑥𝐻𝑦) = ∅))
29 simplr 769 . . . . . . . . . . . . . . . 16 (((𝜑𝑧𝐵) ∧ 𝑥𝐵) → 𝑧𝐵)
3025, 28, 29rspcdva 3622 . . . . . . . . . . . . . . 15 (((𝜑𝑧𝐵) ∧ 𝑥𝐵) → (𝑥𝑧 → (𝑥𝐻𝑧) = ∅))
3130ralrimiva 3145 . . . . . . . . . . . . . 14 ((𝜑𝑧𝐵) → ∀𝑥𝐵 (𝑥𝑧 → (𝑥𝐻𝑧) = ∅))
328, 6, 31syl2anc 584 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → ∀𝑥𝐵 (𝑥𝑧 → (𝑥𝐻𝑧) = ∅))
3321, 32, 5rspcdva 3622 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (𝑦𝑧 → (𝑦𝐻𝑧) = ∅))
3433necon1d 2961 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → ((𝑦𝐻𝑧) ≠ ∅ → 𝑦 = 𝑧))
3517, 34mpd 15 . . . . . . . . . 10 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑦 = 𝑧)
3615, 35eqtrd 2776 . . . . . . . . 9 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑥 = 𝑧)
3736equcomd 2018 . . . . . . . 8 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑧 = 𝑥)
3837opeq1d 4877 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → ⟨𝑧, 𝑦⟩ = ⟨𝑥, 𝑦⟩)
3938, 36oveq12d 7447 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (⟨𝑧, 𝑦⟩(comp‘𝐶)𝑥) = (⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧))
4015oveq1d 7444 . . . . . . . 8 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (𝑥𝐻𝑦) = (𝑦𝐻𝑦))
4110, 40eleqtrd 2842 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑓 ∈ (𝑦𝐻𝑦))
4235oveq2d 7445 . . . . . . . 8 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (𝑦𝐻𝑦) = (𝑦𝐻𝑧))
4316, 42eleqtrrd 2843 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑔 ∈ (𝑦𝐻𝑦))
44 oppcthinendc.h . . . . . . 7 𝐻 = (Hom ‘𝐶)
45 oppcthinco.c . . . . . . . 8 (𝜑𝐶 ∈ ThinCat)
468, 45syl 17 . . . . . . 7 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝐶 ∈ ThinCat)
475, 5, 41, 43, 1, 44, 46thincmo2 49049 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑓 = 𝑔)
4847equcomd 2018 . . . . . 6 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → 𝑔 = 𝑓)
4939, 47, 48oveq123d 7450 . . . . 5 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (𝑓(⟨𝑧, 𝑦⟩(comp‘𝐶)𝑥)𝑔) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))
507, 49eqtr2d 2777 . . . 4 (((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝑂)𝑧)𝑓))
5150ralrimivva 3201 . . 3 ((𝜑 ∧ (𝑥𝐵𝑦𝐵𝑧𝐵)) → ∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝑂)𝑧)𝑓))
5251ralrimivvva 3204 . 2 (𝜑 → ∀𝑥𝐵𝑦𝐵𝑧𝐵𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝑂)𝑧)𝑓))
53 eqid 2736 . . 3 (comp‘𝑂) = (comp‘𝑂)
541a1i 11 . . 3 (𝜑𝐵 = (Base‘𝐶))
553, 1oppcbas 17757 . . . 4 𝐵 = (Base‘𝑂)
5655a1i 11 . . 3 (𝜑𝐵 = (Base‘𝑂))
573, 1, 44, 12oppcendc 48879 . . 3 (𝜑 → (Homf𝐶) = (Homf𝑂))
582, 53, 44, 54, 56, 57comfeq 17745 . 2 (𝜑 → ((compf𝐶) = (compf𝑂) ↔ ∀𝑥𝐵𝑦𝐵𝑧𝐵𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩(comp‘𝑂)𝑧)𝑓)))
5952, 58mpbird 257 1 (𝜑 → (compf𝐶) = (compf𝑂))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  w3a 1087   = wceq 1540  wcel 2108  wne 2939  wral 3060  c0 4332  cop 4630  cfv 6559  (class class class)co 7429  Basecbs 17243  Hom chom 17304  compcco 17305  compfccomf 17706  oppCatcoppc 17750  ThinCatcthinc 49040
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5277  ax-sep 5294  ax-nul 5304  ax-pow 5363  ax-pr 5430  ax-un 7751  ax-cnex 11207  ax-resscn 11208  ax-1cn 11209  ax-icn 11210  ax-addcl 11211  ax-addrcl 11212  ax-mulcl 11213  ax-mulrcl 11214  ax-mulcom 11215  ax-addass 11216  ax-mulass 11217  ax-distr 11218  ax-i2m1 11219  ax-1ne0 11220  ax-1rid 11221  ax-rnegex 11222  ax-rrecex 11223  ax-cnre 11224  ax-pre-lttri 11225  ax-pre-lttrn 11226  ax-pre-ltadd 11227  ax-pre-mulgt0 11228
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2728  df-clel 2815  df-nfc 2891  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-reu 3380  df-rab 3436  df-v 3481  df-sbc 3788  df-csb 3899  df-dif 3953  df-un 3955  df-in 3957  df-ss 3967  df-pss 3970  df-nul 4333  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-op 4631  df-uni 4906  df-iun 4991  df-br 5142  df-opab 5204  df-mpt 5224  df-tr 5258  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5635  df-we 5637  df-xp 5689  df-rel 5690  df-cnv 5691  df-co 5692  df-dm 5693  df-rn 5694  df-res 5695  df-ima 5696  df-pred 6319  df-ord 6385  df-on 6386  df-lim 6387  df-suc 6388  df-iota 6512  df-fun 6561  df-fn 6562  df-f 6563  df-f1 6564  df-fo 6565  df-f1o 6566  df-fv 6567  df-riota 7386  df-ov 7432  df-oprab 7433  df-mpo 7434  df-om 7884  df-1st 8010  df-2nd 8011  df-tpos 8247  df-frecs 8302  df-wrecs 8333  df-recs 8407  df-rdg 8446  df-er 8741  df-en 8982  df-dom 8983  df-sdom 8984  df-pnf 11293  df-mnf 11294  df-xr 11295  df-ltxr 11296  df-le 11297  df-sub 11490  df-neg 11491  df-nn 12263  df-2 12325  df-3 12326  df-4 12327  df-5 12328  df-6 12329  df-7 12330  df-8 12331  df-9 12332  df-n0 12523  df-z 12610  df-dec 12730  df-sets 17197  df-slot 17215  df-ndx 17227  df-base 17244  df-hom 17317  df-cco 17318  df-homf 17709  df-comf 17710  df-oppc 17751  df-thinc 49041
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator