isopropdlem - Mathbox for Zhi Wang

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

Theorem isopropdlem 50117

Description: Lemma for isopropd 50118. (Contributed by Zhi Wang, 27-Oct-2025.)

**Hypotheses**
Ref	Expression
sectpropd.1	⊢ (𝜑 → (Hom_f ‘𝐶) = (Hom_f ‘𝐷))
sectpropd.2	⊢ (𝜑 → (comp_f‘𝐶) = (comp_f‘𝐷))

**Assertion**
Ref	Expression
isopropdlem	⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → 𝑃 ∈ (Iso‘𝐷))

Proof of Theorem isopropdlem Dummy variables 𝑐 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 490	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → 𝑃 ∈ (Iso‘𝐶))
2		eqid 2761	. . . . . 6 ⊢ (Base‘𝐶) = (Base‘𝐶)
3		eqid 2761	. . . . . 6 ⊢ (Inv‘𝐶) = (Inv‘𝐶)
4		df-iso 17917	. . . . . . . 8 ⊢ Iso = (𝑐 ∈ Cat ↦ ((𝑥 ∈ V ↦ dom 𝑥) ∘ (Inv‘𝑐)))
5	4	mptrcl 7001	. . . . . . 7 ⊢ (𝑃 ∈ (Iso‘𝐶) → 𝐶 ∈ Cat)
6	5	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → 𝐶 ∈ Cat)
7		eqid 2761	. . . . . 6 ⊢ (Iso‘𝐶) = (Iso‘𝐶)
8	2, 3, 6, 7	isofval2 50109	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (Iso‘𝐶) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ dom (𝑥(Inv‘𝐶)𝑦)))
9		df-mpo 7423	. . . . 5 ⊢ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ dom (𝑥(Inv‘𝐶)𝑦)) = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑧 = dom (𝑥(Inv‘𝐶)𝑦))}
10	8, 9	eqtrdi 2812	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (Iso‘𝐶) = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑧 = dom (𝑥(Inv‘𝐶)𝑦))})
11	1, 10	eleqtrd 2863	. . 3 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → 𝑃 ∈ {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑧 = dom (𝑥(Inv‘𝐶)𝑦))})
12		eloprab1st2nd 49947	. . 3 ⊢ (𝑃 ∈ {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑧 = dom (𝑥(Inv‘𝐶)𝑦))} → 𝑃 = ⟨⟨(1^st ‘(1^st ‘𝑃)), (2^nd ‘(1^st ‘𝑃))⟩, (2^nd ‘𝑃)⟩)
13	11, 12	syl 18	. 2 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → 𝑃 = ⟨⟨(1^st ‘(1^st ‘𝑃)), (2^nd ‘(1^st ‘𝑃))⟩, (2^nd ‘𝑃)⟩)
14		sectpropd.1	. . . . . . . . 9 ⊢ (𝜑 → (Hom_f ‘𝐶) = (Hom_f ‘𝐷))
15	14	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (Hom_f ‘𝐶) = (Hom_f ‘𝐷))
16		sectpropd.2	. . . . . . . . 9 ⊢ (𝜑 → (comp_f‘𝐶) = (comp_f‘𝐷))
17	16	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (comp_f‘𝐶) = (comp_f‘𝐷))
18	15, 17	invpropd 50116	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (Inv‘𝐶) = (Inv‘𝐷))
19	18	oveqd 7435	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃))) = ((1^st ‘(1^st ‘𝑃))(Inv‘𝐷)(2^nd ‘(1^st ‘𝑃))))
20	19	dmeqd 5887	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃))) = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐷)(2^nd ‘(1^st ‘𝑃))))
21		eleq1 2849	. . . . . . . . . 10 ⊢ (𝑥 = (1^st ‘(1^st ‘𝑃)) → (𝑥 ∈ (Base‘𝐶) ↔ (1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶)))
22	21	anbi1d 643	. . . . . . . . 9 ⊢ (𝑥 = (1^st ‘(1^st ‘𝑃)) → ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ↔ ((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))))
23		oveq1 7425	. . . . . . . . . . 11 ⊢ (𝑥 = (1^st ‘(1^st ‘𝑃)) → (𝑥(Inv‘𝐶)𝑦) = ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)𝑦))
24	23	dmeqd 5887	. . . . . . . . . 10 ⊢ (𝑥 = (1^st ‘(1^st ‘𝑃)) → dom (𝑥(Inv‘𝐶)𝑦) = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)𝑦))
25	24	eqeq2d 2772	. . . . . . . . 9 ⊢ (𝑥 = (1^st ‘(1^st ‘𝑃)) → (𝑧 = dom (𝑥(Inv‘𝐶)𝑦) ↔ 𝑧 = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)𝑦)))
26	22, 25	anbi12d 644	. . . . . . . 8 ⊢ (𝑥 = (1^st ‘(1^st ‘𝑃)) → (((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑧 = dom (𝑥(Inv‘𝐶)𝑦)) ↔ (((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑧 = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)𝑦))))
27		eleq1 2849	. . . . . . . . . 10 ⊢ (𝑦 = (2^nd ‘(1^st ‘𝑃)) → (𝑦 ∈ (Base‘𝐶) ↔ (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐶)))
28	27	anbi2d 642	. . . . . . . . 9 ⊢ (𝑦 = (2^nd ‘(1^st ‘𝑃)) → (((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ↔ ((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐶))))
29		oveq2 7426	. . . . . . . . . . 11 ⊢ (𝑦 = (2^nd ‘(1^st ‘𝑃)) → ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)𝑦) = ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃))))
30	29	dmeqd 5887	. . . . . . . . . 10 ⊢ (𝑦 = (2^nd ‘(1^st ‘𝑃)) → dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)𝑦) = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃))))
31	30	eqeq2d 2772	. . . . . . . . 9 ⊢ (𝑦 = (2^nd ‘(1^st ‘𝑃)) → (𝑧 = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)𝑦) ↔ 𝑧 = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃)))))
32	28, 31	anbi12d 644	. . . . . . . 8 ⊢ (𝑦 = (2^nd ‘(1^st ‘𝑃)) → ((((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑧 = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)𝑦)) ↔ (((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐶)) ∧ 𝑧 = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃))))))
33		eqeq1 2765	. . . . . . . . 9 ⊢ (𝑧 = (2^nd ‘𝑃) → (𝑧 = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃))) ↔ (2^nd ‘𝑃) = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃)))))
34	33	anbi2d 642	. . . . . . . 8 ⊢ (𝑧 = (2^nd ‘𝑃) → ((((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐶)) ∧ 𝑧 = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃)))) ↔ (((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐶)) ∧ (2^nd ‘𝑃) = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃))))))
35	26, 32, 34	eloprabi 8072	. . . . . . 7 ⊢ (𝑃 ∈ {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) ∧ 𝑧 = dom (𝑥(Inv‘𝐶)𝑦))} → (((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐶)) ∧ (2^nd ‘𝑃) = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃)))))
36	11, 35	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶) ∧ (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐶)) ∧ (2^nd ‘𝑃) = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃)))))
37	36	simprd 501	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (2^nd ‘𝑃) = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐶)(2^nd ‘(1^st ‘𝑃))))
38		eqid 2761	. . . . . 6 ⊢ (Base‘𝐷) = (Base‘𝐷)
39		eqid 2761	. . . . . 6 ⊢ (Inv‘𝐷) = (Inv‘𝐷)
40	36	simplld 780	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐶))
41	15	homfeqbas 17863	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (Base‘𝐶) = (Base‘𝐷))
42	40, 41	eleqtrd 2863	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐷))
43	42	elfvexd 6919	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → 𝐷 ∈ V)
44	15, 17, 6, 43	catpropd 17876	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (𝐶 ∈ Cat ↔ 𝐷 ∈ Cat))
45	6, 44	mpbid 235	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → 𝐷 ∈ Cat)
46	36	simplrd 782	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐶))
47	46, 41	eleqtrd 2863	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐷))
48		eqid 2761	. . . . . 6 ⊢ (Iso‘𝐷) = (Iso‘𝐷)
49	38, 39, 45, 42, 47, 48	isoval 17933	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → ((1^st ‘(1^st ‘𝑃))(Iso‘𝐷)(2^nd ‘(1^st ‘𝑃))) = dom ((1^st ‘(1^st ‘𝑃))(Inv‘𝐷)(2^nd ‘(1^st ‘𝑃))))
50	20, 37, 49	3eqtr4rd 2807	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → ((1^st ‘(1^st ‘𝑃))(Iso‘𝐷)(2^nd ‘(1^st ‘𝑃))) = (2^nd ‘𝑃))
51		isofn 17943	. . . . . 6 ⊢ (𝐷 ∈ Cat → (Iso‘𝐷) Fn ((Base‘𝐷) × (Base‘𝐷)))
52	45, 51	syl 18	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (Iso‘𝐷) Fn ((Base‘𝐷) × (Base‘𝐷)))
53		fnbrovb 7469	. . . . 5 ⊢ (((Iso‘𝐷) Fn ((Base‘𝐷) × (Base‘𝐷)) ∧ ((1^st ‘(1^st ‘𝑃)) ∈ (Base‘𝐷) ∧ (2^nd ‘(1^st ‘𝑃)) ∈ (Base‘𝐷))) → (((1^st ‘(1^st ‘𝑃))(Iso‘𝐷)(2^nd ‘(1^st ‘𝑃))) = (2^nd ‘𝑃) ↔ ⟨(1^st ‘(1^st ‘𝑃)), (2^nd ‘(1^st ‘𝑃))⟩(Iso‘𝐷)(2^nd ‘𝑃)))
54	52, 42, 47, 53	syl12anc 850	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → (((1^st ‘(1^st ‘𝑃))(Iso‘𝐷)(2^nd ‘(1^st ‘𝑃))) = (2^nd ‘𝑃) ↔ ⟨(1^st ‘(1^st ‘𝑃)), (2^nd ‘(1^st ‘𝑃))⟩(Iso‘𝐷)(2^nd ‘𝑃)))
55	50, 54	mpbid 235	. . 3 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → ⟨(1^st ‘(1^st ‘𝑃)), (2^nd ‘(1^st ‘𝑃))⟩(Iso‘𝐷)(2^nd ‘𝑃))
56		df-br 5104	. . 3 ⊢ (⟨(1^st ‘(1^st ‘𝑃)), (2^nd ‘(1^st ‘𝑃))⟩(Iso‘𝐷)(2^nd ‘𝑃) ↔ ⟨⟨(1^st ‘(1^st ‘𝑃)), (2^nd ‘(1^st ‘𝑃))⟩, (2^nd ‘𝑃)⟩ ∈ (Iso‘𝐷))
57	55, 56	sylib 221	. 2 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → ⟨⟨(1^st ‘(1^st ‘𝑃)), (2^nd ‘(1^st ‘𝑃))⟩, (2^nd ‘𝑃)⟩ ∈ (Iso‘𝐷))
58	13, 57	eqeltrd 2861	1 ⊢ ((𝜑 ∧ 𝑃 ∈ (Iso‘𝐶)) → 𝑃 ∈ (Iso‘𝐷))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2145 Vcvv 3451 ⟨cop 4590 class class class wbr 5103 ↦ cmpt 5186 × cxp 5649 dom cdm 5651 ∘ ccom 5655 Fn wfn 6532 ‘cfv 6537 (class class class)co 7418 {coprab 7419 ∈ cmpo 7420 1^st c1st 7997 2^nd c2nd 7998 Basecbs 17380 Catccat 17831 Hom_f chomf 17833 comp_fccomf 17834 Invcinv 17913 Isociso 17914

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2733 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7749

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-ral 3078 df-rex 3088 df-reu 3367 df-rab 3414 df-v 3453 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-op 4591 df-uni 4868 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-id 5546 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-riota 7375 df-ov 7421 df-oprab 7422 df-mpo 7423 df-1st 7999 df-2nd 8000 df-cat 17835 df-cid 17836 df-homf 17837 df-comf 17838 df-sect 17915 df-inv 17916 df-iso 17917

This theorem is used by: isopropd 50118

W3C validator