Theorem sectfval 17700

Description: Value of the section relation. (Contributed by Mario Carneiro, 2-Jan-2017.)

Hypotheses

Ref	Expression
issect.b	⊢ 𝐵 = (Base‘𝐶)
issect.h	⊢ 𝐻 = (Hom ‘𝐶)
issect.o	⊢ · = (comp‘𝐶)
issect.i	⊢ 1 = (Id‘𝐶)
issect.s	⊢ 𝑆 = (Sect‘𝐶)
issect.c	⊢ (𝜑 → 𝐶 ∈ Cat)
issect.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
issect.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)

Assertion

Ref	Expression
sectfval	⊢ (𝜑 → (𝑋𝑆𝑌) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩ · 𝑋)𝑓) = ( 1 ‘𝑋))})

Distinct variable groups:   𝑓,𝑔, 1   𝐶,𝑓,𝑔   𝜑,𝑓,𝑔   𝑓,𝐻,𝑔   · ,𝑓,𝑔   𝑓,𝑋,𝑔   𝑓,𝑌,𝑔

Allowed substitution hints:   𝐵(𝑓,𝑔)   𝑆(𝑓,𝑔)

Proof of Theorem sectfval

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

Step	Hyp	Ref	Expression
1		issect.b	. . 3 ⊢ 𝐵 = (Base‘𝐶)
2		issect.h	. . 3 ⊢ 𝐻 = (Hom ‘𝐶)
3		issect.o	. . 3 ⊢ · = (comp‘𝐶)
4		issect.i	. . 3 ⊢ 1 = (Id‘𝐶)
5		issect.s	. . 3 ⊢ 𝑆 = (Sect‘𝐶)
6		issect.c	. . 3 ⊢ (𝜑 → 𝐶 ∈ Cat)
7		issect.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
8	1, 2, 3, 4, 5, 6, 7, 7	sectffval 17699	. 2 ⊢ (𝜑 → 𝑆 = (𝑥 ∈ 𝐵, 𝑦 ∈ 𝐵 ↦ {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑥)) ∧ (𝑔(⟨𝑥, 𝑦⟩ · 𝑥)𝑓) = ( 1 ‘𝑥))}))
9		simprl 769	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → 𝑥 = 𝑋)
10		simprr 771	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → 𝑦 = 𝑌)
11	9, 10	oveq12d 7429	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (𝑥𝐻𝑦) = (𝑋𝐻𝑌))
12	11	eleq2d 2819	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (𝑓 ∈ (𝑥𝐻𝑦) ↔ 𝑓 ∈ (𝑋𝐻𝑌)))
13	10, 9	oveq12d 7429	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (𝑦𝐻𝑥) = (𝑌𝐻𝑋))
14	13	eleq2d 2819	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (𝑔 ∈ (𝑦𝐻𝑥) ↔ 𝑔 ∈ (𝑌𝐻𝑋)))
15	12, 14	anbi12d 631	. . . 4 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → ((𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑥)) ↔ (𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋))))
16	9, 10	opeq12d 4881	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → ⟨𝑥, 𝑦⟩ = ⟨𝑋, 𝑌⟩)
17	16, 9	oveq12d 7429	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (⟨𝑥, 𝑦⟩ · 𝑥) = (⟨𝑋, 𝑌⟩ · 𝑋))
18	17	oveqd 7428	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (𝑔(⟨𝑥, 𝑦⟩ · 𝑥)𝑓) = (𝑔(⟨𝑋, 𝑌⟩ · 𝑋)𝑓))
19	9	fveq2d 6895	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → ( 1 ‘𝑥) = ( 1 ‘𝑋))
20	18, 19	eqeq12d 2748	. . . 4 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → ((𝑔(⟨𝑥, 𝑦⟩ · 𝑥)𝑓) = ( 1 ‘𝑥) ↔ (𝑔(⟨𝑋, 𝑌⟩ · 𝑋)𝑓) = ( 1 ‘𝑋)))
21	15, 20	anbi12d 631	. . 3 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → (((𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑥)) ∧ (𝑔(⟨𝑥, 𝑦⟩ · 𝑥)𝑓) = ( 1 ‘𝑥)) ↔ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩ · 𝑋)𝑓) = ( 1 ‘𝑋))))
22	21	opabbidv 5214	. 2 ⊢ ((𝜑 ∧ (𝑥 = 𝑋 ∧ 𝑦 = 𝑌)) → {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑥)) ∧ (𝑔(⟨𝑥, 𝑦⟩ · 𝑥)𝑓) = ( 1 ‘𝑥))} = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩ · 𝑋)𝑓) = ( 1 ‘𝑋))})
23		issect.y	. 2 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
24		ovex 7444	. . . . 5 ⊢ (𝑋𝐻𝑌) ∈ V
25		ovex 7444	. . . . 5 ⊢ (𝑌𝐻𝑋) ∈ V
26	24, 25	xpex 7742	. . . 4 ⊢ ((𝑋𝐻𝑌) × (𝑌𝐻𝑋)) ∈ V
27		opabssxp 5768	. . . 4 ⊢ {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩ · 𝑋)𝑓) = ( 1 ‘𝑋))} ⊆ ((𝑋𝐻𝑌) × (𝑌𝐻𝑋))
28	26, 27	ssexi 5322	. . 3 ⊢ {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩ · 𝑋)𝑓) = ( 1 ‘𝑋))} ∈ V
29	28	a1i 11	. 2 ⊢ (𝜑 → {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩ · 𝑋)𝑓) = ( 1 ‘𝑋))} ∈ V)
30	8, 22, 7, 23, 29	ovmpod 7562	1 ⊢ (𝜑 → (𝑋𝑆𝑌) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩ · 𝑋)𝑓) = ( 1 ‘𝑋))})

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1541   ∈ wcel 2106  Vcvv 3474  ⟨cop 4634  {copab 5210   × cxp 5674  ‘cfv 6543  (class class class)co 7411  Basecbs 17146  Hom chom 17210  compcco 17211  Catccat 17610  Idccid 17611  Sectcsect 17693

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7727

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5574  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  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-ov 7414  df-oprab 7415  df-mpo 7416  df-1st 7977  df-2nd 7978  df-sect 17696

This theorem is referenced by:  sectss  17701  issect  17702  dfiso2  17721