Theorem isohom 17738

Description: An isomorphism is a homomorphism. (Contributed by Mario Carneiro, 27-Jan-2017.)

Hypotheses

Ref	Expression
isohom.b	⊢ 𝐵 = (Base‘𝐶)
isohom.h	⊢ 𝐻 = (Hom ‘𝐶)
isohom.i	⊢ 𝐼 = (Iso‘𝐶)
isohom.c	⊢ (𝜑 → 𝐶 ∈ Cat)
isohom.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
isohom.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)

Assertion

Ref	Expression
isohom	⊢ (𝜑 → (𝑋𝐼𝑌) ⊆ (𝑋𝐻𝑌))

Proof of Theorem isohom

Step	Hyp	Ref	Expression
1		isohom.b	. . . 4 ⊢ 𝐵 = (Base‘𝐶)
2		eqid 2741	. . . 4 ⊢ (Inv‘𝐶) = (Inv‘𝐶)
3		isohom.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
4		isohom.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
5		isohom.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
6		isohom.i	. . . 4 ⊢ 𝐼 = (Iso‘𝐶)
7	1, 2, 3, 4, 5, 6	isoval 17727	. . 3 ⊢ (𝜑 → (𝑋𝐼𝑌) = dom (𝑋(Inv‘𝐶)𝑌))
8		isohom.h	. . . . 5 ⊢ 𝐻 = (Hom ‘𝐶)
9	1, 2, 3, 4, 5, 8	invss 17723	. . . 4 ⊢ (𝜑 → (𝑋(Inv‘𝐶)𝑌) ⊆ ((𝑋𝐻𝑌) × (𝑌𝐻𝑋)))
10		dmss 5850	. . . 4 ⊢ ((𝑋(Inv‘𝐶)𝑌) ⊆ ((𝑋𝐻𝑌) × (𝑌𝐻𝑋)) → dom (𝑋(Inv‘𝐶)𝑌) ⊆ dom ((𝑋𝐻𝑌) × (𝑌𝐻𝑋)))
11	9, 10	syl 17	. . 3 ⊢ (𝜑 → dom (𝑋(Inv‘𝐶)𝑌) ⊆ dom ((𝑋𝐻𝑌) × (𝑌𝐻𝑋)))
12	7, 11	eqsstrd 3950	. 2 ⊢ (𝜑 → (𝑋𝐼𝑌) ⊆ dom ((𝑋𝐻𝑌) × (𝑌𝐻𝑋)))
13		dmxpss 6125	. 2 ⊢ dom ((𝑋𝐻𝑌) × (𝑌𝐻𝑋)) ⊆ (𝑋𝐻𝑌)
14	12, 13	sstrdi 3928	1 ⊢ (𝜑 → (𝑋𝐼𝑌) ⊆ (𝑋𝐻𝑌))

Syntax hints:   → wi 4   = wceq 1548   ∈ wcel 2121   ⊆ wss 3884   × cxp 5618  dom cdm 5620  ‘cfv 6488  (class class class)co 7359  Basecbs 17174  Hom chom 17226  Catccat 17625  Invcinv 17707  Isociso 17708

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-rep 5201  ax-sep 5220  ax-nul 5230  ax-pow 5296  ax-pr 5364  ax-un 7681

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-ral 3056  df-rex 3066  df-reu 3347  df-rab 3394  df-v 3435  df-sbc 3725  df-csb 3833  df-dif 3887  df-un 3889  df-in 3891  df-ss 3901  df-nul 4264  df-if 4457  df-pw 4533  df-sn 4558  df-pr 4560  df-op 4564  df-uni 4841  df-iun 4925  df-br 5075  df-opab 5137  df-mpt 5156  df-id 5515  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-iota 6444  df-fun 6490  df-fn 6491  df-f 6492  df-f1 6493  df-fo 6494  df-f1o 6495  df-fv 6496  df-ov 7362  df-oprab 7363  df-mpo 7364  df-1st 7933  df-2nd 7934  df-sect 17709  df-inv 17710  df-iso 17711

This theorem is referenced by:  invisoinvl  17752  invcoisoid  17754  isocoinvid  17755  rcaninv  17756  ffthiso  17893  fuciso  17940  initoeu1  17973  initoeu2lem0  17975  initoeu2lem1  17976  initoeu2  17978  termoeu1  17980  nzerooringczr  21458  upeu2lem  49530  upeu  49673  upeu2  49674  thinccic  49973