Theorem funcinv 17841

Description: The image of an inverse under a functor is an inverse. (Contributed by Mario Carneiro, 3-Jan-2017.)

Hypotheses

Ref	Expression
funcinv.b	⊢ 𝐵 = (Base‘𝐷)
funcinv.s	⊢ 𝐼 = (Inv‘𝐷)
funcinv.t	⊢ 𝐽 = (Inv‘𝐸)
funcinv.f	⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
funcinv.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
funcinv.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
funcinv.m	⊢ (𝜑 → 𝑀(𝑋𝐼𝑌)𝑁)

Assertion

Ref	Expression
funcinv	⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝐽(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁))

Proof of Theorem funcinv

Step	Hyp	Ref	Expression
1		funcinv.b	. . 3 ⊢ 𝐵 = (Base‘𝐷)
2		eqid 2730	. . 3 ⊢ (Sect‘𝐷) = (Sect‘𝐷)
3		eqid 2730	. . 3 ⊢ (Sect‘𝐸) = (Sect‘𝐸)
4		funcinv.f	. . 3 ⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
5		funcinv.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
6		funcinv.y	. . 3 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
7		funcinv.m	. . . . 5 ⊢ (𝜑 → 𝑀(𝑋𝐼𝑌)𝑁)
8		funcinv.s	. . . . . 6 ⊢ 𝐼 = (Inv‘𝐷)
9		df-br 5110	. . . . . . . . 9 ⊢ (𝐹(𝐷 Func 𝐸)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸))
10	4, 9	sylib 218	. . . . . . . 8 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸))
11		funcrcl 17831	. . . . . . . 8 ⊢ (⟨𝐹, 𝐺⟩ ∈ (𝐷 Func 𝐸) → (𝐷 ∈ Cat ∧ 𝐸 ∈ Cat))
12	10, 11	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝐷 ∈ Cat ∧ 𝐸 ∈ Cat))
13	12	simpld 494	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ Cat)
14	1, 8, 13, 5, 6, 2	isinv 17728	. . . . 5 ⊢ (𝜑 → (𝑀(𝑋𝐼𝑌)𝑁 ↔ (𝑀(𝑋(Sect‘𝐷)𝑌)𝑁 ∧ 𝑁(𝑌(Sect‘𝐷)𝑋)𝑀)))
15	7, 14	mpbid 232	. . . 4 ⊢ (𝜑 → (𝑀(𝑋(Sect‘𝐷)𝑌)𝑁 ∧ 𝑁(𝑌(Sect‘𝐷)𝑋)𝑀))
16	15	simpld 494	. . 3 ⊢ (𝜑 → 𝑀(𝑋(Sect‘𝐷)𝑌)𝑁)
17	1, 2, 3, 4, 5, 6, 16	funcsect 17840	. 2 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)(Sect‘𝐸)(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁))
18	15	simprd 495	. . 3 ⊢ (𝜑 → 𝑁(𝑌(Sect‘𝐷)𝑋)𝑀)
19	1, 2, 3, 4, 6, 5, 18	funcsect 17840	. 2 ⊢ (𝜑 → ((𝑌𝐺𝑋)‘𝑁)((𝐹‘𝑌)(Sect‘𝐸)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀))
20		eqid 2730	. . 3 ⊢ (Base‘𝐸) = (Base‘𝐸)
21		funcinv.t	. . 3 ⊢ 𝐽 = (Inv‘𝐸)
22	12	simprd 495	. . 3 ⊢ (𝜑 → 𝐸 ∈ Cat)
23	1, 20, 4	funcf1 17834	. . . 4 ⊢ (𝜑 → 𝐹:𝐵⟶(Base‘𝐸))
24	23, 5	ffvelcdmd 7059	. . 3 ⊢ (𝜑 → (𝐹‘𝑋) ∈ (Base‘𝐸))
25	23, 6	ffvelcdmd 7059	. . 3 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝐸))
26	20, 21, 22, 24, 25, 3	isinv 17728	. 2 ⊢ (𝜑 → (((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝐽(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁) ↔ (((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)(Sect‘𝐸)(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁) ∧ ((𝑌𝐺𝑋)‘𝑁)((𝐹‘𝑌)(Sect‘𝐸)(𝐹‘𝑋))((𝑋𝐺𝑌)‘𝑀))))
27	17, 19, 26	mpbir2and 713	1 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝑀)((𝐹‘𝑋)𝐽(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑁))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109  ⟨cop 4597   class class class wbr 5109  ‘cfv 6513  (class class class)co 7389  Basecbs 17185  Catccat 17631  Sectcsect 17712  Invcinv 17713   Func cfunc 17822

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5236  ax-sep 5253  ax-nul 5263  ax-pow 5322  ax-pr 5389  ax-un 7713

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3756  df-csb 3865  df-dif 3919  df-un 3921  df-in 3923  df-ss 3933  df-nul 4299  df-if 4491  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-iun 4959  df-br 5110  df-opab 5172  df-mpt 5191  df-id 5535  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-iota 6466  df-fun 6515  df-fn 6516  df-f 6517  df-f1 6518  df-fo 6519  df-f1o 6520  df-fv 6521  df-ov 7392  df-oprab 7393  df-mpo 7394  df-1st 7970  df-2nd 7971  df-map 8803  df-ixp 8873  df-sect 17715  df-inv 17716  df-func 17826

This theorem is referenced by:  funciso  17842