MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  catcfuccl Structured version   Visualization version   GIF version

Theorem catcfuccl 18129
Description: The category of categories for a weak universe is closed under the functor category operation. (Contributed by Mario Carneiro, 12-Jan-2017.) (Proof shortened by AV, 14-Oct-2024.)
Hypotheses
Ref Expression
catcfuccl.c 𝐶 = (CatCat‘𝑈)
catcfuccl.b 𝐵 = (Base‘𝐶)
catcfuccl.o 𝑄 = (𝑋 FuncCat 𝑌)
catcfuccl.u (𝜑𝑈 ∈ WUni)
catcfuccl.1 (𝜑 → ω ∈ 𝑈)
catcfuccl.x (𝜑𝑋𝐵)
catcfuccl.y (𝜑𝑌𝐵)
Assertion
Ref Expression
catcfuccl (𝜑𝑄𝐵)

Proof of Theorem catcfuccl
Dummy variables 𝑎 𝑏 𝑓 𝑔 𝑣 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 catcfuccl.o . . . . 5 𝑄 = (𝑋 FuncCat 𝑌)
2 eqid 2735 . . . . 5 (𝑋 Func 𝑌) = (𝑋 Func 𝑌)
3 eqid 2735 . . . . 5 (𝑋 Nat 𝑌) = (𝑋 Nat 𝑌)
4 eqid 2735 . . . . 5 (Base‘𝑋) = (Base‘𝑋)
5 eqid 2735 . . . . 5 (comp‘𝑌) = (comp‘𝑌)
6 catcfuccl.x . . . . . . 7 (𝜑𝑋𝐵)
7 catcfuccl.c . . . . . . . 8 𝐶 = (CatCat‘𝑈)
8 catcfuccl.b . . . . . . . 8 𝐵 = (Base‘𝐶)
9 catcfuccl.u . . . . . . . 8 (𝜑𝑈 ∈ WUni)
107, 8, 9catcbas 18112 . . . . . . 7 (𝜑𝐵 = (𝑈 ∩ Cat))
116, 10eleqtrd 2836 . . . . . 6 (𝜑𝑋 ∈ (𝑈 ∩ Cat))
1211elin2d 4180 . . . . 5 (𝜑𝑋 ∈ Cat)
13 catcfuccl.y . . . . . . 7 (𝜑𝑌𝐵)
1413, 10eleqtrd 2836 . . . . . 6 (𝜑𝑌 ∈ (𝑈 ∩ Cat))
1514elin2d 4180 . . . . 5 (𝜑𝑌 ∈ Cat)
16 eqidd 2736 . . . . 5 (𝜑 → (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))) = (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))))
171, 2, 3, 4, 5, 12, 15, 16fucval 17972 . . . 4 (𝜑𝑄 = {⟨(Base‘ndx), (𝑋 Func 𝑌)⟩, ⟨(Hom ‘ndx), (𝑋 Nat 𝑌)⟩, ⟨(comp‘ndx), (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))))⟩})
18 baseid 17229 . . . . . . 7 Base = Slot (Base‘ndx)
19 catcfuccl.1 . . . . . . . 8 (𝜑 → ω ∈ 𝑈)
209, 19wunndx 17212 . . . . . . 7 (𝜑 → ndx ∈ 𝑈)
2118, 9, 20wunstr 17205 . . . . . 6 (𝜑 → (Base‘ndx) ∈ 𝑈)
227, 8, 9, 6catcbascl 18123 . . . . . . 7 (𝜑𝑋𝑈)
237, 8, 9, 13catcbascl 18123 . . . . . . 7 (𝜑𝑌𝑈)
249, 22, 23wunfunc 17912 . . . . . 6 (𝜑 → (𝑋 Func 𝑌) ∈ 𝑈)
259, 21, 24wunop 10734 . . . . 5 (𝜑 → ⟨(Base‘ndx), (𝑋 Func 𝑌)⟩ ∈ 𝑈)
26 homid 17424 . . . . . . 7 Hom = Slot (Hom ‘ndx)
2726, 9, 20wunstr 17205 . . . . . 6 (𝜑 → (Hom ‘ndx) ∈ 𝑈)
289, 22, 23wunnat 17970 . . . . . 6 (𝜑 → (𝑋 Nat 𝑌) ∈ 𝑈)
299, 27, 28wunop 10734 . . . . 5 (𝜑 → ⟨(Hom ‘ndx), (𝑋 Nat 𝑌)⟩ ∈ 𝑈)
30 ccoid 17426 . . . . . . 7 comp = Slot (comp‘ndx)
3130, 9, 20wunstr 17205 . . . . . 6 (𝜑 → (comp‘ndx) ∈ 𝑈)
329, 24, 24wunxp 10736 . . . . . . . 8 (𝜑 → ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)) ∈ 𝑈)
339, 32, 24wunxp 10736 . . . . . . 7 (𝜑 → (((𝑋 Func 𝑌) × (𝑋 Func 𝑌)) × (𝑋 Func 𝑌)) ∈ 𝑈)
347, 8, 9, 13catcccocl 18127 . . . . . . . . . . . . . 14 (𝜑 → (comp‘𝑌) ∈ 𝑈)
359, 34wunrn 10741 . . . . . . . . . . . . 13 (𝜑 → ran (comp‘𝑌) ∈ 𝑈)
369, 35wununi 10718 . . . . . . . . . . . 12 (𝜑 ran (comp‘𝑌) ∈ 𝑈)
379, 36wunrn 10741 . . . . . . . . . . 11 (𝜑 → ran ran (comp‘𝑌) ∈ 𝑈)
389, 37wununi 10718 . . . . . . . . . 10 (𝜑 ran ran (comp‘𝑌) ∈ 𝑈)
399, 38wunpw 10719 . . . . . . . . 9 (𝜑 → 𝒫 ran ran (comp‘𝑌) ∈ 𝑈)
407, 8, 9, 6catcbaselcl 18125 . . . . . . . . 9 (𝜑 → (Base‘𝑋) ∈ 𝑈)
419, 39, 40wunmap 10738 . . . . . . . 8 (𝜑 → (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ∈ 𝑈)
429, 28wunrn 10741 . . . . . . . . . 10 (𝜑 → ran (𝑋 Nat 𝑌) ∈ 𝑈)
439, 42wununi 10718 . . . . . . . . 9 (𝜑 ran (𝑋 Nat 𝑌) ∈ 𝑈)
449, 43, 43wunxp 10736 . . . . . . . 8 (𝜑 → ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)) ∈ 𝑈)
459, 41, 44wunpm 10737 . . . . . . 7 (𝜑 → ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))) ∈ 𝑈)
46 fvex 6888 . . . . . . . . . . 11 (1st𝑣) ∈ V
47 fvex 6888 . . . . . . . . . . . . . 14 (2nd𝑣) ∈ V
48 ovex 7436 . . . . . . . . . . . . . . . . 17 (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ∈ V
49 ovex 7436 . . . . . . . . . . . . . . . . . . . 20 (𝑋 Nat 𝑌) ∈ V
5049rnex 7904 . . . . . . . . . . . . . . . . . . 19 ran (𝑋 Nat 𝑌) ∈ V
5150uniex 7733 . . . . . . . . . . . . . . . . . 18 ran (𝑋 Nat 𝑌) ∈ V
5251, 51xpex 7745 . . . . . . . . . . . . . . . . 17 ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)) ∈ V
53 eqid 2735 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))) = (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))
54 ovssunirn 7439 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ⊆ ran (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))
55 ovssunirn 7439 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥)) ⊆ ran (comp‘𝑌)
56 rnss 5919 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥)) ⊆ ran (comp‘𝑌) → ran (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥)) ⊆ ran ran (comp‘𝑌))
57 uniss 4891 . . . . . . . . . . . . . . . . . . . . . . . . 25 (ran (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥)) ⊆ ran ran (comp‘𝑌) → ran (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥)) ⊆ ran ran (comp‘𝑌))
5855, 56, 57mp2b 10 . . . . . . . . . . . . . . . . . . . . . . . 24 ran (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥)) ⊆ ran ran (comp‘𝑌)
5954, 58sstri 3968 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ⊆ ran ran (comp‘𝑌)
60 ovex 7436 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ∈ V
6160elpw 4579 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ∈ 𝒫 ran ran (comp‘𝑌) ↔ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ⊆ ran ran (comp‘𝑌))
6259, 61mpbir 231 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ∈ 𝒫 ran ran (comp‘𝑌)
6362a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 ∈ (Base‘𝑋) → ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ∈ 𝒫 ran ran (comp‘𝑌))
6453, 63fmpti 7101 . . . . . . . . . . . . . . . . . . . 20 (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))):(Base‘𝑋)⟶𝒫 ran ran (comp‘𝑌)
65 fvex 6888 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (comp‘𝑌) ∈ V
6665rnex 7904 . . . . . . . . . . . . . . . . . . . . . . . . 25 ran (comp‘𝑌) ∈ V
6766uniex 7733 . . . . . . . . . . . . . . . . . . . . . . . 24 ran (comp‘𝑌) ∈ V
6867rnex 7904 . . . . . . . . . . . . . . . . . . . . . . 23 ran ran (comp‘𝑌) ∈ V
6968uniex 7733 . . . . . . . . . . . . . . . . . . . . . 22 ran ran (comp‘𝑌) ∈ V
7069pwex 5350 . . . . . . . . . . . . . . . . . . . . 21 𝒫 ran ran (comp‘𝑌) ∈ V
71 fvex 6888 . . . . . . . . . . . . . . . . . . . . 21 (Base‘𝑋) ∈ V
7270, 71elmap 8883 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))) ∈ (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↔ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))):(Base‘𝑋)⟶𝒫 ran ran (comp‘𝑌))
7364, 72mpbir 231 . . . . . . . . . . . . . . . . . . 19 (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))) ∈ (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋))
7473rgen2w 3056 . . . . . . . . . . . . . . . . . 18 𝑏 ∈ (𝑔(𝑋 Nat 𝑌))∀𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔)(𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))) ∈ (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋))
75 eqid 2735 . . . . . . . . . . . . . . . . . . 19 (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) = (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))
7675fmpo 8065 . . . . . . . . . . . . . . . . . 18 (∀𝑏 ∈ (𝑔(𝑋 Nat 𝑌))∀𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔)(𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))) ∈ (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↔ (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))):((𝑔(𝑋 Nat 𝑌)) × (𝑓(𝑋 Nat 𝑌)𝑔))⟶(𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)))
7774, 76mpbi 230 . . . . . . . . . . . . . . . . 17 (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))):((𝑔(𝑋 Nat 𝑌)) × (𝑓(𝑋 Nat 𝑌)𝑔))⟶(𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋))
78 ovssunirn 7439 . . . . . . . . . . . . . . . . . 18 (𝑔(𝑋 Nat 𝑌)) ⊆ ran (𝑋 Nat 𝑌)
79 ovssunirn 7439 . . . . . . . . . . . . . . . . . 18 (𝑓(𝑋 Nat 𝑌)𝑔) ⊆ ran (𝑋 Nat 𝑌)
80 xpss12 5669 . . . . . . . . . . . . . . . . . 18 (((𝑔(𝑋 Nat 𝑌)) ⊆ ran (𝑋 Nat 𝑌) ∧ (𝑓(𝑋 Nat 𝑌)𝑔) ⊆ ran (𝑋 Nat 𝑌)) → ((𝑔(𝑋 Nat 𝑌)) × (𝑓(𝑋 Nat 𝑌)𝑔)) ⊆ ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))
8178, 79, 80mp2an 692 . . . . . . . . . . . . . . . . 17 ((𝑔(𝑋 Nat 𝑌)) × (𝑓(𝑋 Nat 𝑌)𝑔)) ⊆ ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))
82 elpm2r 8857 . . . . . . . . . . . . . . . . 17 ((((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ∈ V ∧ ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)) ∈ V) ∧ ((𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))):((𝑔(𝑋 Nat 𝑌)) × (𝑓(𝑋 Nat 𝑌)𝑔))⟶(𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ∧ ((𝑔(𝑋 Nat 𝑌)) × (𝑓(𝑋 Nat 𝑌)𝑔)) ⊆ ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))) → (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))))
8348, 52, 77, 81, 82mp4an 693 . . . . . . . . . . . . . . . 16 (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))
8483sbcth 3780 . . . . . . . . . . . . . . 15 ((2nd𝑣) ∈ V → [(2nd𝑣) / 𝑔](𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))))
85 sbcel1g 4391 . . . . . . . . . . . . . . 15 ((2nd𝑣) ∈ V → ([(2nd𝑣) / 𝑔](𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))) ↔ (2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))))
8684, 85mpbid 232 . . . . . . . . . . . . . 14 ((2nd𝑣) ∈ V → (2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))))
8747, 86ax-mp 5 . . . . . . . . . . . . 13 (2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))
8887sbcth 3780 . . . . . . . . . . . 12 ((1st𝑣) ∈ V → [(1st𝑣) / 𝑓](2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))))
89 sbcel1g 4391 . . . . . . . . . . . 12 ((1st𝑣) ∈ V → ([(1st𝑣) / 𝑓](2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))) ↔ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))))
9088, 89mpbid 232 . . . . . . . . . . 11 ((1st𝑣) ∈ V → (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))))
9146, 90ax-mp 5 . . . . . . . . . 10 (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))
9291rgen2w 3056 . . . . . . . . 9 𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌))∀ ∈ (𝑋 Func 𝑌)(1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))
93 eqid 2735 . . . . . . . . . 10 (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))) = (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))))
9493fmpo 8065 . . . . . . . . 9 (∀𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌))∀ ∈ (𝑋 Func 𝑌)(1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))) ↔ (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))):(((𝑋 Func 𝑌) × (𝑋 Func 𝑌)) × (𝑋 Func 𝑌))⟶((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))))
9592, 94mpbi 230 . . . . . . . 8 (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))):(((𝑋 Func 𝑌) × (𝑋 Func 𝑌)) × (𝑋 Func 𝑌))⟶((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))
9695a1i 11 . . . . . . 7 (𝜑 → (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))):(((𝑋 Func 𝑌) × (𝑋 Func 𝑌)) × (𝑋 Func 𝑌))⟶((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))))
979, 33, 45, 96wunf 10739 . . . . . 6 (𝜑 → (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))) ∈ 𝑈)
989, 31, 97wunop 10734 . . . . 5 (𝜑 → ⟨(comp‘ndx), (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))))⟩ ∈ 𝑈)
999, 25, 29, 98wuntp 10723 . . . 4 (𝜑 → {⟨(Base‘ndx), (𝑋 Func 𝑌)⟩, ⟨(Hom ‘ndx), (𝑋 Nat 𝑌)⟩, ⟨(comp‘ndx), (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))))⟩} ∈ 𝑈)
10017, 99eqeltrd 2834 . . 3 (𝜑𝑄𝑈)
1011, 12, 15fuccat 17984 . . 3 (𝜑𝑄 ∈ Cat)
102100, 101elind 4175 . 2 (𝜑𝑄 ∈ (𝑈 ∩ Cat))
103102, 10eleqtrrd 2837 1 (𝜑𝑄𝐵)
Colors of variables: wff setvar class
Syntax hints:  wi 4   = wceq 1540  wcel 2108  wral 3051  Vcvv 3459  [wsbc 3765  csb 3874  cin 3925  wss 3926  𝒫 cpw 4575  {ctp 4605  cop 4607   cuni 4883  cmpt 5201   × cxp 5652  ran crn 5655  wf 6526  cfv 6530  (class class class)co 7403  cmpo 7405  ωcom 7859  1st c1st 7984  2nd c2nd 7985  m cmap 8838  pm cpm 8839  WUnicwun 10712  ndxcnx 17210  Basecbs 17226  Hom chom 17280  compcco 17281  Catccat 17674   Func cfunc 17865   Nat cnat 17955   FuncCat cfuc 17956  CatCatccatc 18109
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 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7727  ax-inf2 9653  ax-cnex 11183  ax-resscn 11184  ax-1cn 11185  ax-icn 11186  ax-addcl 11187  ax-addrcl 11188  ax-mulcl 11189  ax-mulrcl 11190  ax-mulcom 11191  ax-addass 11192  ax-mulass 11193  ax-distr 11194  ax-i2m1 11195  ax-1ne0 11196  ax-1rid 11197  ax-rnegex 11198  ax-rrecex 11199  ax-cnre 11200  ax-pre-lttri 11201  ax-pre-lttrn 11202  ax-pre-ltadd 11203  ax-pre-mulgt0 11204
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3359  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-pss 3946  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-tp 4606  df-op 4608  df-uni 4884  df-int 4923  df-iun 4969  df-br 5120  df-opab 5182  df-mpt 5202  df-tr 5230  df-id 5548  df-eprel 5553  df-po 5561  df-so 5562  df-fr 5606  df-we 5608  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6290  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6483  df-fun 6532  df-fn 6533  df-f 6534  df-f1 6535  df-fo 6536  df-f1o 6537  df-fv 6538  df-riota 7360  df-ov 7406  df-oprab 7407  df-mpo 7408  df-om 7860  df-1st 7986  df-2nd 7987  df-frecs 8278  df-wrecs 8309  df-recs 8383  df-rdg 8422  df-1o 8478  df-oadd 8482  df-omul 8483  df-er 8717  df-ec 8719  df-qs 8723  df-map 8840  df-pm 8841  df-ixp 8910  df-en 8958  df-dom 8959  df-sdom 8960  df-fin 8961  df-wun 10714  df-ni 10884  df-pli 10885  df-mi 10886  df-lti 10887  df-plpq 10920  df-mpq 10921  df-ltpq 10922  df-enq 10923  df-nq 10924  df-erq 10925  df-plq 10926  df-mq 10927  df-1nq 10928  df-rq 10929  df-ltnq 10930  df-np 10993  df-plp 10995  df-ltp 10997  df-enr 11067  df-nr 11068  df-c 11133  df-pnf 11269  df-mnf 11270  df-xr 11271  df-ltxr 11272  df-le 11273  df-sub 11466  df-neg 11467  df-nn 12239  df-2 12301  df-3 12302  df-4 12303  df-5 12304  df-6 12305  df-7 12306  df-8 12307  df-9 12308  df-n0 12500  df-z 12587  df-dec 12707  df-uz 12851  df-fz 13523  df-struct 17164  df-slot 17199  df-ndx 17211  df-base 17227  df-hom 17293  df-cco 17294  df-cat 17678  df-cid 17679  df-func 17869  df-nat 17957  df-fuc 17958  df-catc 18110
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator