Theorem isoval 17798

Description: The isomorphisms are the domain of the inverse relation. (Contributed by Mario Carneiro, 2-Jan-2017.) (Proof shortened by AV, 21-May-2020.)

Hypotheses

Ref	Expression
invfval.b	⊢ 𝐵 = (Base‘𝐶)
invfval.n	⊢ 𝑁 = (Inv‘𝐶)
invfval.c	⊢ (𝜑 → 𝐶 ∈ Cat)
invss.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
invss.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
isoval.n	⊢ 𝐼 = (Iso‘𝐶)

Assertion

Ref	Expression
isoval	⊢ (𝜑 → (𝑋𝐼𝑌) = dom (𝑋𝑁𝑌))

Proof of Theorem isoval

Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		invfval.c	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ Cat)
2		isofval 17790	. . . . 5 ⊢ (𝐶 ∈ Cat → (Iso‘𝐶) = ((𝑧 ∈ V ↦ dom 𝑧) ∘ (Inv‘𝐶)))
3	1, 2	syl 17	. . . 4 ⊢ (𝜑 → (Iso‘𝐶) = ((𝑧 ∈ V ↦ dom 𝑧) ∘ (Inv‘𝐶)))
4		isoval.n	. . . 4 ⊢ 𝐼 = (Iso‘𝐶)
5		invfval.n	. . . . 5 ⊢ 𝑁 = (Inv‘𝐶)
6	5	coeq2i 5832	. . . 4 ⊢ ((𝑧 ∈ V ↦ dom 𝑧) ∘ 𝑁) = ((𝑧 ∈ V ↦ dom 𝑧) ∘ (Inv‘𝐶))
7	3, 4, 6	3eqtr4g 2822	. . 3 ⊢ (𝜑 → 𝐼 = ((𝑧 ∈ V ↦ dom 𝑧) ∘ 𝑁))
8	7	oveqd 7413	. 2 ⊢ (𝜑 → (𝑋𝐼𝑌) = (𝑋((𝑧 ∈ V ↦ dom 𝑧) ∘ 𝑁)𝑌))
9		eqid 2762	. . . . . 6 ⊢ (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ((𝑥(Sect‘𝐶)𝑦) ∩ ◡(𝑦(Sect‘𝐶)𝑥))) = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ((𝑥(Sect‘𝐶)𝑦) ∩ ◡(𝑦(Sect‘𝐶)𝑥)))
10		ovex 7429	. . . . . . 7 ⊢ (𝑥(Sect‘𝐶)𝑦) ∈ V
11	10	inex1 5273	. . . . . 6 ⊢ ((𝑥(Sect‘𝐶)𝑦) ∩ ◡(𝑦(Sect‘𝐶)𝑥)) ∈ V
12	9, 11	fnmpoi 8051	. . . . 5 ⊢ (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ((𝑥(Sect‘𝐶)𝑦) ∩ ◡(𝑦(Sect‘𝐶)𝑥))) Fn (𝐵 × 𝐵)
13		invfval.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐶)
14		eqid 2762	. . . . . . 7 ⊢ (Sect‘𝐶) = (Sect‘𝐶)
15	13, 5, 1, 14	invffval 17791	. . . . . 6 ⊢ (𝜑 → 𝑁 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ((𝑥(Sect‘𝐶)𝑦) ∩ ◡(𝑦(Sect‘𝐶)𝑥))))
16	15	fneq1d 6614	. . . . 5 ⊢ (𝜑 → (𝑁 Fn (𝐵 × 𝐵) ↔ (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ ((𝑥(Sect‘𝐶)𝑦) ∩ ◡(𝑦(Sect‘𝐶)𝑥))) Fn (𝐵 × 𝐵)))
17	12, 16	mpbiri 260	. . . 4 ⊢ (𝜑 → 𝑁 Fn (𝐵 × 𝐵))
18		invss.x	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
19		invss.y	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
20	18, 19	opelxpd 5686	. . . 4 ⊢ (𝜑 → ⟨𝑋, 𝑌⟩ ∈ (𝐵 × 𝐵))
21		fvco2 6964	. . . 4 ⊢ ((𝑁 Fn (𝐵 × 𝐵) ∧ ⟨𝑋, 𝑌⟩ ∈ (𝐵 × 𝐵)) → (((𝑧 ∈ V ↦ dom 𝑧) ∘ 𝑁)‘⟨𝑋, 𝑌⟩) = ((𝑧 ∈ V ↦ dom 𝑧)‘(𝑁‘⟨𝑋, 𝑌⟩)))
22	17, 20, 21	syl2anc 593	. . 3 ⊢ (𝜑 → (((𝑧 ∈ V ↦ dom 𝑧) ∘ 𝑁)‘⟨𝑋, 𝑌⟩) = ((𝑧 ∈ V ↦ dom 𝑧)‘(𝑁‘⟨𝑋, 𝑌⟩)))
23		df-ov 7399	. . 3 ⊢ (𝑋((𝑧 ∈ V ↦ dom 𝑧) ∘ 𝑁)𝑌) = (((𝑧 ∈ V ↦ dom 𝑧) ∘ 𝑁)‘⟨𝑋, 𝑌⟩)
24		ovex 7429	. . . . 5 ⊢ (𝑋𝑁𝑌) ∈ V
25		dmeq 5879	. . . . . 6 ⊢ (𝑧 = (𝑋𝑁𝑌) → dom 𝑧 = dom (𝑋𝑁𝑌))
26		eqid 2762	. . . . . 6 ⊢ (𝑧 ∈ V ↦ dom 𝑧) = (𝑧 ∈ V ↦ dom 𝑧)
27	24	dmex 7890	. . . . . 6 ⊢ dom (𝑋𝑁𝑌) ∈ V
28	25, 26, 27	fvmpt 6975	. . . . 5 ⊢ ((𝑋𝑁𝑌) ∈ V → ((𝑧 ∈ V ↦ dom 𝑧)‘(𝑋𝑁𝑌)) = dom (𝑋𝑁𝑌))
29	24, 28	ax-mp 5	. . . 4 ⊢ ((𝑧 ∈ V ↦ dom 𝑧)‘(𝑋𝑁𝑌)) = dom (𝑋𝑁𝑌)
30		df-ov 7399	. . . . 5 ⊢ (𝑋𝑁𝑌) = (𝑁‘⟨𝑋, 𝑌⟩)
31	30	fveq2i 6870	. . . 4 ⊢ ((𝑧 ∈ V ↦ dom 𝑧)‘(𝑋𝑁𝑌)) = ((𝑧 ∈ V ↦ dom 𝑧)‘(𝑁‘⟨𝑋, 𝑌⟩))
32	29, 31	eqtr3i 2787	. . 3 ⊢ dom (𝑋𝑁𝑌) = ((𝑧 ∈ V ↦ dom 𝑧)‘(𝑁‘⟨𝑋, 𝑌⟩))
33	22, 23, 32	3eqtr4g 2822	. 2 ⊢ (𝜑 → (𝑋((𝑧 ∈ V ↦ dom 𝑧) ∘ 𝑁)𝑌) = dom (𝑋𝑁𝑌))
34	8, 33	eqtrd 2797	1 ⊢ (𝜑 → (𝑋𝐼𝑌) = dom (𝑋𝑁𝑌))

Syntax hints:   → wi 4   = wceq 1560   ∈ wcel 2142  Vcvv 3454   ∩ cin 3903  ⟨cop 4588   ↦ cmpt 5181   × cxp 5645  ^◡ccnv 5646  dom cdm 5647   ∘ ccom 5651   Fn wfn 6516  ‘cfv 6521  (class class class)co 7396   ∈ cmpo 7398  Basecbs 17245  Catccat 17696  Sectcsect 17777  Invcinv 17778  Isociso 17779

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5227  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3077  df-rex 3087  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5542  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-ov 7399  df-oprab 7400  df-mpo 7401  df-1st 7970  df-2nd 7971  df-inv 17781  df-iso 17782

This theorem is referenced by:  inviso1  17799  invf  17801  invco  17804  dfiso2  17805  isohom  17809  oppciso  17814  cicsym  17837  ffthiso  17964  fuciso  18011  setciso  18124  catciso  18144  rngciso  20688  ringciso  20722  rngcisoALTV  48899  ringcisoALTV  48933  isofval2  49653  isoval2  49656  isopropdlem  49661