thincciso - Mathbox for Zhi Wang

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

Theorem thincciso 48167

Description: Two thin categories are isomorphic iff the induced preorders are order-isomorphic. Example 3.26(2) of [Adamek] p. 33. (Contributed by Zhi Wang, 16-Oct-2024.)

**Hypotheses**
Ref	Expression
thincciso.c	⊢ 𝐶 = (CatCat‘𝑈)
thincciso.b	⊢ 𝐵 = (Base‘𝐶)
thincciso.r	⊢ 𝑅 = (Base‘𝑋)
thincciso.s	⊢ 𝑆 = (Base‘𝑌)
thincciso.h	⊢ 𝐻 = (Hom ‘𝑋)
thincciso.j	⊢ 𝐽 = (Hom ‘𝑌)
thincciso.u	⊢ (𝜑 → 𝑈 ∈ 𝑉)
thincciso.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
thincciso.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
thincciso.xt	⊢ (𝜑 → 𝑋 ∈ ThinCat)
thincciso.yt	⊢ (𝜑 → 𝑌 ∈ ThinCat)

**Assertion**
Ref	Expression
thincciso	⊢ (𝜑 → (𝑋( ≃_𝑐 ‘𝐶)𝑌 ↔ ∃𝑓(∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)))

Distinct variable groups: 𝐶,𝑓,𝑥,𝑦 𝑓,𝐻,𝑥,𝑦 𝑓,𝐽,𝑥,𝑦 𝑅,𝑓,𝑥,𝑦 𝑆,𝑓 𝑓,𝑋,𝑥,𝑦 𝑓,𝑌,𝑥,𝑦 𝜑,𝑓,𝑥,𝑦 Allowed substitution hints: 𝐵(𝑥,𝑦,𝑓) 𝑆(𝑥,𝑦) 𝑈(𝑥,𝑦,𝑓) 𝑉(𝑥,𝑦,𝑓)

Proof of Theorem thincciso Dummy variables 𝑎 𝑤 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2725	. . 3 ⊢ (Iso‘𝐶) = (Iso‘𝐶)
2		thincciso.b	. . 3 ⊢ 𝐵 = (Base‘𝐶)
3		thincciso.u	. . . 4 ⊢ (𝜑 → 𝑈 ∈ 𝑉)
4		thincciso.c	. . . . 5 ⊢ 𝐶 = (CatCat‘𝑈)
5	4	catccat 18096	. . . 4 ⊢ (𝑈 ∈ 𝑉 → 𝐶 ∈ Cat)
6	3, 5	syl 17	. . 3 ⊢ (𝜑 → 𝐶 ∈ Cat)
7		thincciso.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
8		thincciso.y	. . 3 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
9	1, 2, 6, 7, 8	cic 17781	. 2 ⊢ (𝜑 → (𝑋( ≃_𝑐 ‘𝐶)𝑌 ↔ ∃𝑎 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)))
10		opex 5460	. . . . . . 7 ⊢ ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ V
11	10	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ V)
12		biimp 214	. . . . . . . . . . . . 13 ⊢ (((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) → ((𝑥𝐻𝑦) = ∅ → ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅))
13	12	2ralimi 3113	. . . . . . . . . . . 12 ⊢ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) → ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ → ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅))
14	13	ad2antrl 726	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ → ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅))
15		thincciso.r	. . . . . . . . . . . 12 ⊢ 𝑅 = (Base‘𝑋)
16		thincciso.j	. . . . . . . . . . . 12 ⊢ 𝐽 = (Hom ‘𝑌)
17		thincciso.h	. . . . . . . . . . . 12 ⊢ 𝐻 = (Hom ‘𝑋)
18		thincciso.yt	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑌 ∈ ThinCat)
19	18	adantr 479	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → 𝑌 ∈ ThinCat)
20		eqid 2725	. . . . . . . . . . . . 13 ⊢ (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))) = (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))
21		thincciso.s	. . . . . . . . . . . . . 14 ⊢ 𝑆 = (Base‘𝑌)
22		thincciso.xt	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑋 ∈ ThinCat)
23	22	adantr 479	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → 𝑋 ∈ ThinCat)
24	23	thinccd 48143	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → 𝑋 ∈ Cat)
25		simprr 771	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → 𝑓:𝑅–1-1-onto→𝑆)
26		f1of 6834	. . . . . . . . . . . . . . 15 ⊢ (𝑓:𝑅–1-1-onto→𝑆 → 𝑓:𝑅⟶𝑆)
27	25, 26	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → 𝑓:𝑅⟶𝑆)
28		biimpr 219	. . . . . . . . . . . . . . . 16 ⊢ (((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) → (((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅ → (𝑥𝐻𝑦) = ∅))
29	28	2ralimi 3113	. . . . . . . . . . . . . . 15 ⊢ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) → ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 (((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅ → (𝑥𝐻𝑦) = ∅))
30	29	ad2antrl 726	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 (((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅ → (𝑥𝐻𝑦) = ∅))
31	15, 21, 17, 16, 24, 19, 27, 20, 30	functhinc 48163	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → (𝑓(𝑋 Func 𝑌)(𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))) ↔ (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))) = (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))))
32	20, 31	mpbiri 257	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → 𝑓(𝑋 Func 𝑌)(𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))))
33	15, 16, 17, 19, 32	fullthinc 48164	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → (𝑓(𝑋 Full 𝑌)(𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))) ↔ ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ → ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅)))
34	14, 33	mpbird 256	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → 𝑓(𝑋 Full 𝑌)(𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))))
35		df-br 5144	. . . . . . . . . 10 ⊢ (𝑓(𝑋 Full 𝑌)(𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))) ↔ ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ (𝑋 Full 𝑌))
36	34, 35	sylib 217	. . . . . . . . 9 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ (𝑋 Full 𝑌))
37	23, 32	thincfth 48166	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → 𝑓(𝑋 Faith 𝑌)(𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))))
38		df-br 5144	. . . . . . . . . 10 ⊢ (𝑓(𝑋 Faith 𝑌)(𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))) ↔ ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ (𝑋 Faith 𝑌))
39	37, 38	sylib 217	. . . . . . . . 9 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ (𝑋 Faith 𝑌))
40	36, 39	elind 4188	. . . . . . . 8 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ ((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌)))
41		vex 3467	. . . . . . . . . . 11 ⊢ 𝑓 ∈ V
42	15	fvexi 6906	. . . . . . . . . . . 12 ⊢ 𝑅 ∈ V
43	42, 42	mpoex 8082	. . . . . . . . . . 11 ⊢ (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤)))) ∈ V
44	41, 43	op1st 7999	. . . . . . . . . 10 ⊢ (1^st ‘⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩) = 𝑓
45		f1oeq1 6822	. . . . . . . . . 10 ⊢ ((1^st ‘⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩) = 𝑓 → ((1^st ‘⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩):𝑅–1-1-onto→𝑆 ↔ 𝑓:𝑅–1-1-onto→𝑆))
46	44, 45	ax-mp 5	. . . . . . . . 9 ⊢ ((1^st ‘⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩):𝑅–1-1-onto→𝑆 ↔ 𝑓:𝑅–1-1-onto→𝑆)
47	25, 46	sylibr 233	. . . . . . . 8 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → (1^st ‘⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩):𝑅–1-1-onto→𝑆)
48	40, 47	jca 510	. . . . . . 7 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → (⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ ((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌)) ∧ (1^st ‘⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩):𝑅–1-1-onto→𝑆))
49	4, 2, 15, 21, 3, 7, 8, 1	catciso 18099	. . . . . . . 8 ⊢ (𝜑 → (⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ (𝑋(Iso‘𝐶)𝑌) ↔ (⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ ((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌)) ∧ (1^st ‘⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩):𝑅–1-1-onto→𝑆)))
50	49	biimpar 476	. . . . . . 7 ⊢ ((𝜑 ∧ (⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ ((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌)) ∧ (1^st ‘⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩):𝑅–1-1-onto→𝑆)) → ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ (𝑋(Iso‘𝐶)𝑌))
51	48, 50	syldan 589	. . . . . 6 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ (𝑋(Iso‘𝐶)𝑌))
52		eleq1 2813	. . . . . 6 ⊢ (𝑎 = ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ → (𝑎 ∈ (𝑋(Iso‘𝐶)𝑌) ↔ ⟨𝑓, (𝑧 ∈ 𝑅, 𝑤 ∈ 𝑅 ↦ ((𝑧𝐻𝑤) × ((𝑓‘𝑧)𝐽(𝑓‘𝑤))))⟩ ∈ (𝑋(Iso‘𝐶)𝑌)))
53	11, 51, 52	spcedv 3577	. . . . 5 ⊢ ((𝜑 ∧ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)) → ∃𝑎 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌))
54	53	ex 411	. . . 4 ⊢ (𝜑 → ((∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆) → ∃𝑎 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)))
55	54	exlimdv 1928	. . 3 ⊢ (𝜑 → (∃𝑓(∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆) → ∃𝑎 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)))
56		fvexd 6907	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → (1^st ‘𝑎) ∈ V)
57		relfull 17896	. . . . . . . . . 10 ⊢ Rel (𝑋 Full 𝑌)
58	4, 2, 15, 21, 3, 7, 8, 1	catciso 18099	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑎 ∈ (𝑋(Iso‘𝐶)𝑌) ↔ (𝑎 ∈ ((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌)) ∧ (1^st ‘𝑎):𝑅–1-1-onto→𝑆)))
59	58	biimpa 475	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → (𝑎 ∈ ((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌)) ∧ (1^st ‘𝑎):𝑅–1-1-onto→𝑆))
60	59	simpld 493	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → 𝑎 ∈ ((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌)))
61	60	elin1d 4192	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → 𝑎 ∈ (𝑋 Full 𝑌))
62		1st2ndbr 8044	. . . . . . . . . 10 ⊢ ((Rel (𝑋 Full 𝑌) ∧ 𝑎 ∈ (𝑋 Full 𝑌)) → (1^st ‘𝑎)(𝑋 Full 𝑌)(2^nd ‘𝑎))
63	57, 61, 62	sylancr 585	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → (1^st ‘𝑎)(𝑋 Full 𝑌)(2^nd ‘𝑎))
64	18	adantr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → 𝑌 ∈ ThinCat)
65		fullfunc 17894	. . . . . . . . . . . 12 ⊢ (𝑋 Full 𝑌) ⊆ (𝑋 Func 𝑌)
66	65	ssbri 5188	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑎)(𝑋 Full 𝑌)(2^nd ‘𝑎) → (1^st ‘𝑎)(𝑋 Func 𝑌)(2^nd ‘𝑎))
67	63, 66	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → (1^st ‘𝑎)(𝑋 Func 𝑌)(2^nd ‘𝑎))
68	15, 16, 17, 64, 67	fullthinc 48164	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → ((1^st ‘𝑎)(𝑋 Full 𝑌)(2^nd ‘𝑎) ↔ ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ → (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅)))
69	63, 68	mpbid 231	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ → (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅))
70	67	adantr 479	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) ∧ (𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅)) → (1^st ‘𝑎)(𝑋 Func 𝑌)(2^nd ‘𝑎))
71		simprl 769	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) ∧ (𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅)) → 𝑥 ∈ 𝑅)
72		simprr 771	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) ∧ (𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅)) → 𝑦 ∈ 𝑅)
73	15, 17, 16, 70, 71, 72	funcf2 17853	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) ∧ (𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅)) → (𝑥(2^nd ‘𝑎)𝑦):(𝑥𝐻𝑦)⟶(((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)))
74	73	f002 48018	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) ∧ (𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅)) → ((((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅ → (𝑥𝐻𝑦) = ∅))
75	74	ralrimivva 3191	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅ → (𝑥𝐻𝑦) = ∅))
76		2ralbiim 3122	. . . . . . . 8 ⊢ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅) ↔ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ → (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅) ∧ ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅ → (𝑥𝐻𝑦) = ∅)))
77	69, 75, 76	sylanbrc 581	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅))
78	59	simprd 494	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → (1^st ‘𝑎):𝑅–1-1-onto→𝑆)
79	77, 78	jca 510	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅) ∧ (1^st ‘𝑎):𝑅–1-1-onto→𝑆))
80		fveq1 6891	. . . . . . . . . . 11 ⊢ (𝑓 = (1^st ‘𝑎) → (𝑓‘𝑥) = ((1^st ‘𝑎)‘𝑥))
81		fveq1 6891	. . . . . . . . . . 11 ⊢ (𝑓 = (1^st ‘𝑎) → (𝑓‘𝑦) = ((1^st ‘𝑎)‘𝑦))
82	80, 81	oveq12d 7434	. . . . . . . . . 10 ⊢ (𝑓 = (1^st ‘𝑎) → ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)))
83	82	eqeq1d 2727	. . . . . . . . 9 ⊢ (𝑓 = (1^st ‘𝑎) → (((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅ ↔ (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅))
84	83	bibi2d 341	. . . . . . . 8 ⊢ (𝑓 = (1^st ‘𝑎) → (((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ↔ ((𝑥𝐻𝑦) = ∅ ↔ (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅)))
85	84	2ralbidv 3209	. . . . . . 7 ⊢ (𝑓 = (1^st ‘𝑎) → (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ↔ ∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅)))
86		f1oeq1 6822	. . . . . . 7 ⊢ (𝑓 = (1^st ‘𝑎) → (𝑓:𝑅–1-1-onto→𝑆 ↔ (1^st ‘𝑎):𝑅–1-1-onto→𝑆))
87	85, 86	anbi12d 630	. . . . . 6 ⊢ (𝑓 = (1^st ‘𝑎) → ((∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆) ↔ (∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ (((1^st ‘𝑎)‘𝑥)𝐽((1^st ‘𝑎)‘𝑦)) = ∅) ∧ (1^st ‘𝑎):𝑅–1-1-onto→𝑆)))
88	56, 79, 87	spcedv 3577	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)) → ∃𝑓(∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆))
89	88	ex 411	. . . 4 ⊢ (𝜑 → (𝑎 ∈ (𝑋(Iso‘𝐶)𝑌) → ∃𝑓(∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)))
90	89	exlimdv 1928	. . 3 ⊢ (𝜑 → (∃𝑎 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌) → ∃𝑓(∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)))
91	55, 90	impbid 211	. 2 ⊢ (𝜑 → (∃𝑓(∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆) ↔ ∃𝑎 𝑎 ∈ (𝑋(Iso‘𝐶)𝑌)))
92	9, 91	bitr4d 281	1 ⊢ (𝜑 → (𝑋( ≃_𝑐 ‘𝐶)𝑌 ↔ ∃𝑓(∀𝑥 ∈ 𝑅 ∀𝑦 ∈ 𝑅 ((𝑥𝐻𝑦) = ∅ ↔ ((𝑓‘𝑥)𝐽(𝑓‘𝑦)) = ∅) ∧ 𝑓:𝑅–1-1-onto→𝑆)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 394 = wceq 1533 ∃wex 1773 ∈ wcel 2098 ∀wral 3051 Vcvv 3463 ∩ cin 3938 ∅c0 4318 ⟨cop 4630 class class class wbr 5143 × cxp 5670 Rel wrel 5677 ⟶wf 6539 –1-1-onto→wf1o 6542 ‘cfv 6543 (class class class)co 7416 ∈ cmpo 7418 1^st c1st 7989 2^nd c2nd 7990 Basecbs 17179 Hom chom 17243 Catccat 17643 Isociso 17728 ≃_𝑐 ccic 17777 Func cfunc 17839 Full cful 17890 Faith cfth 17891 CatCatccatc 18086 ThinCatcthinc 48137

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2166 ax-ext 2696 ax-rep 5280 ax-sep 5294 ax-nul 5301 ax-pow 5359 ax-pr 5423 ax-un 7738 ax-cnex 11194 ax-resscn 11195 ax-1cn 11196 ax-icn 11197 ax-addcl 11198 ax-addrcl 11199 ax-mulcl 11200 ax-mulrcl 11201 ax-mulcom 11202 ax-addass 11203 ax-mulass 11204 ax-distr 11205 ax-i2m1 11206 ax-1ne0 11207 ax-1rid 11208 ax-rnegex 11209 ax-rrecex 11210 ax-cnre 11211 ax-pre-lttri 11212 ax-pre-lttrn 11213 ax-pre-ltadd 11214 ax-pre-mulgt0 11215

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2703 df-cleq 2717 df-clel 2802 df-nfc 2877 df-ne 2931 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3364 df-reu 3365 df-rab 3420 df-v 3465 df-sbc 3769 df-csb 3885 df-dif 3942 df-un 3944 df-in 3946 df-ss 3956 df-pss 3959 df-nul 4319 df-if 4525 df-pw 4600 df-sn 4625 df-pr 4627 df-tp 4629 df-op 4631 df-uni 4904 df-iun 4993 df-br 5144 df-opab 5206 df-mpt 5227 df-tr 5261 df-id 5570 df-eprel 5576 df-po 5584 df-so 5585 df-fr 5627 df-we 5629 df-xp 5678 df-rel 5679 df-cnv 5680 df-co 5681 df-dm 5682 df-rn 5683 df-res 5684 df-ima 5685 df-pred 6300 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6495 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-riota 7372 df-ov 7419 df-oprab 7420 df-mpo 7421 df-om 7869 df-1st 7991 df-2nd 7992 df-supp 8164 df-frecs 8285 df-wrecs 8316 df-recs 8390 df-rdg 8429 df-1o 8485 df-er 8723 df-map 8845 df-ixp 8915 df-en 8963 df-dom 8964 df-sdom 8965 df-fin 8966 df-pnf 11280 df-mnf 11281 df-xr 11282 df-ltxr 11283 df-le 11284 df-sub 11476 df-neg 11477 df-nn 12243 df-2 12305 df-3 12306 df-4 12307 df-5 12308 df-6 12309 df-7 12310 df-8 12311 df-9 12312 df-n0 12503 df-z 12589 df-dec 12708 df-uz 12853 df-fz 13517 df-struct 17115 df-slot 17150 df-ndx 17162 df-base 17180 df-hom 17256 df-cco 17257 df-cat 17647 df-cid 17648 df-sect 17729 df-inv 17730 df-iso 17731 df-cic 17778 df-func 17843 df-idfu 17844 df-cofu 17845 df-full 17892 df-fth 17893 df-catc 18087 df-thinc 48138

This theorem is referenced by: (None)

W3C validator