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

Theorem catcfuccl 18083
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 2740 . . . . 5 (𝑋 Func 𝑌) = (𝑋 Func 𝑌)
3 eqid 2740 . . . . 5 (𝑋 Nat 𝑌) = (𝑋 Nat 𝑌)
4 eqid 2740 . . . . 5 (Base‘𝑋) = (Base‘𝑋)
5 eqid 2740 . . . . 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 18066 . . . . . . 7 (𝜑𝐵 = (𝑈 ∩ Cat))
116, 10eleqtrd 2842 . . . . . 6 (𝜑𝑋 ∈ (𝑈 ∩ Cat))
1211elin2d 4141 . . . . 5 (𝜑𝑋 ∈ Cat)
13 catcfuccl.y . . . . . . 7 (𝜑𝑌𝐵)
1413, 10eleqtrd 2842 . . . . . 6 (𝜑𝑌 ∈ (𝑈 ∩ Cat))
1514elin2d 4141 . . . . 5 (𝜑𝑌 ∈ Cat)
16 eqidd 2741 . . . . 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 17926 . . . 4 (𝜑𝑄 = {⟨(Base‘ndx), (𝑋 Func 𝑌)⟩, ⟨(Hom ‘ndx), (𝑋 Nat 𝑌)⟩, ⟨(comp‘ndx), (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))))⟩})
18 baseid 17180 . . . . . . 7 Base = Slot (Base‘ndx)
19 catcfuccl.1 . . . . . . . 8 (𝜑 → ω ∈ 𝑈)
209, 19wunndx 17163 . . . . . . 7 (𝜑 → ndx ∈ 𝑈)
2118, 9, 20wunstr 17156 . . . . . 6 (𝜑 → (Base‘ndx) ∈ 𝑈)
227, 8, 9, 6catcbascl 18077 . . . . . . 7 (𝜑𝑋𝑈)
237, 8, 9, 13catcbascl 18077 . . . . . . 7 (𝜑𝑌𝑈)
249, 22, 23wunfunc 17866 . . . . . 6 (𝜑 → (𝑋 Func 𝑌) ∈ 𝑈)
259, 21, 24wunop 10643 . . . . 5 (𝜑 → ⟨(Base‘ndx), (𝑋 Func 𝑌)⟩ ∈ 𝑈)
26 homid 17373 . . . . . . 7 Hom = Slot (Hom ‘ndx)
2726, 9, 20wunstr 17156 . . . . . 6 (𝜑 → (Hom ‘ndx) ∈ 𝑈)
289, 22, 23wunnat 17924 . . . . . 6 (𝜑 → (𝑋 Nat 𝑌) ∈ 𝑈)
299, 27, 28wunop 10643 . . . . 5 (𝜑 → ⟨(Hom ‘ndx), (𝑋 Nat 𝑌)⟩ ∈ 𝑈)
30 ccoid 17375 . . . . . . 7 comp = Slot (comp‘ndx)
3130, 9, 20wunstr 17156 . . . . . 6 (𝜑 → (comp‘ndx) ∈ 𝑈)
329, 24, 24wunxp 10645 . . . . . . . 8 (𝜑 → ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)) ∈ 𝑈)
339, 32, 24wunxp 10645 . . . . . . 7 (𝜑 → (((𝑋 Func 𝑌) × (𝑋 Func 𝑌)) × (𝑋 Func 𝑌)) ∈ 𝑈)
347, 8, 9, 13catcccocl 18081 . . . . . . . . . . . . . 14 (𝜑 → (comp‘𝑌) ∈ 𝑈)
359, 34wunrn 10650 . . . . . . . . . . . . 13 (𝜑 → ran (comp‘𝑌) ∈ 𝑈)
369, 35wununi 10627 . . . . . . . . . . . 12 (𝜑 ran (comp‘𝑌) ∈ 𝑈)
379, 36wunrn 10650 . . . . . . . . . . 11 (𝜑 → ran ran (comp‘𝑌) ∈ 𝑈)
389, 37wununi 10627 . . . . . . . . . 10 (𝜑 ran ran (comp‘𝑌) ∈ 𝑈)
399, 38wunpw 10628 . . . . . . . . 9 (𝜑 → 𝒫 ran ran (comp‘𝑌) ∈ 𝑈)
407, 8, 9, 6catcbaselcl 18079 . . . . . . . . 9 (𝜑 → (Base‘𝑋) ∈ 𝑈)
419, 39, 40wunmap 10647 . . . . . . . 8 (𝜑 → (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ∈ 𝑈)
429, 28wunrn 10650 . . . . . . . . . 10 (𝜑 → ran (𝑋 Nat 𝑌) ∈ 𝑈)
439, 42wununi 10627 . . . . . . . . 9 (𝜑 ran (𝑋 Nat 𝑌) ∈ 𝑈)
449, 43, 43wunxp 10645 . . . . . . . 8 (𝜑 → ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)) ∈ 𝑈)
459, 41, 44wunpm 10646 . . . . . . 7 (𝜑 → ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))) ∈ 𝑈)
46 fvex 6847 . . . . . . . . . . 11 (1st𝑣) ∈ V
47 fvex 6847 . . . . . . . . . . . . . 14 (2nd𝑣) ∈ V
48 ovex 7396 . . . . . . . . . . . . . . . . 17 (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ∈ V
49 ovex 7396 . . . . . . . . . . . . . . . . . . . 20 (𝑋 Nat 𝑌) ∈ V
5049rnex 7857 . . . . . . . . . . . . . . . . . . 19 ran (𝑋 Nat 𝑌) ∈ V
5150uniex 7691 . . . . . . . . . . . . . . . . . 18 ran (𝑋 Nat 𝑌) ∈ V
5251, 51xpex 7703 . . . . . . . . . . . . . . . . 17 ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)) ∈ V
53 eqid 2740 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))) = (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))
54 ovssunirn 7399 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ⊆ ran (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))
55 ovssunirn 7399 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥)) ⊆ ran (comp‘𝑌)
56 rnss 5888 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥)) ⊆ ran (comp‘𝑌) → ran (⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥)) ⊆ ran ran (comp‘𝑌))
57 uniss 4853 . . . . . . . . . . . . . . . . . . . . . . . . 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 3931 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ⊆ ran ran (comp‘𝑌)
60 ovex 7396 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ∈ V
6160elpw 4540 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ∈ 𝒫 ran ran (comp‘𝑌) ↔ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ⊆ ran ran (comp‘𝑌))
6259, 61mpbir 232 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ∈ 𝒫 ran ran (comp‘𝑌)
6362a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 ∈ (Base‘𝑋) → ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)) ∈ 𝒫 ran ran (comp‘𝑌))
6453, 63fmpti 7060 . . . . . . . . . . . . . . . . . . . 20 (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))):(Base‘𝑋)⟶𝒫 ran ran (comp‘𝑌)
65 fvex 6847 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (comp‘𝑌) ∈ V
6665rnex 7857 . . . . . . . . . . . . . . . . . . . . . . . . 25 ran (comp‘𝑌) ∈ V
6766uniex 7691 . . . . . . . . . . . . . . . . . . . . . . . 24 ran (comp‘𝑌) ∈ V
6867rnex 7857 . . . . . . . . . . . . . . . . . . . . . . 23 ran ran (comp‘𝑌) ∈ V
6968uniex 7691 . . . . . . . . . . . . . . . . . . . . . 22 ran ran (comp‘𝑌) ∈ V
7069pwex 5316 . . . . . . . . . . . . . . . . . . . . 21 𝒫 ran ran (comp‘𝑌) ∈ V
71 fvex 6847 . . . . . . . . . . . . . . . . . . . . 21 (Base‘𝑋) ∈ V
7270, 71elmap 8816 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))) ∈ (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↔ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))):(Base‘𝑋)⟶𝒫 ran ran (comp‘𝑌))
7364, 72mpbir 232 . . . . . . . . . . . . . . . . . . 19 (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))) ∈ (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋))
7473rgen2w 3059 . . . . . . . . . . . . . . . . . 18 𝑏 ∈ (𝑔(𝑋 Nat 𝑌))∀𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔)(𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))) ∈ (𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋))
75 eqid 2740 . . . . . . . . . . . . . . . . . . 19 (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) = (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))
7675fmpo 8017 . . . . . . . . . . . . . . . . . 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 231 . . . . . . . . . . . . . . . . 17 (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))):((𝑔(𝑋 Nat 𝑌)) × (𝑓(𝑋 Nat 𝑌)𝑔))⟶(𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋))
78 ovssunirn 7399 . . . . . . . . . . . . . . . . . 18 (𝑔(𝑋 Nat 𝑌)) ⊆ ran (𝑋 Nat 𝑌)
79 ovssunirn 7399 . . . . . . . . . . . . . . . . . 18 (𝑓(𝑋 Nat 𝑌)𝑔) ⊆ ran (𝑋 Nat 𝑌)
80 xpss12 5640 . . . . . . . . . . . . . . . . . 18 (((𝑔(𝑋 Nat 𝑌)) ⊆ ran (𝑋 Nat 𝑌) ∧ (𝑓(𝑋 Nat 𝑌)𝑔) ⊆ ran (𝑋 Nat 𝑌)) → ((𝑔(𝑋 Nat 𝑌)) × (𝑓(𝑋 Nat 𝑌)𝑔)) ⊆ ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))
8178, 79, 80mp2an 698 . . . . . . . . . . . . . . . . 17 ((𝑔(𝑋 Nat 𝑌)) × (𝑓(𝑋 Nat 𝑌)𝑔)) ⊆ ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))
82 elpm2r 8789 . . . . . . . . . . . . . . . . 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 699 . . . . . . . . . . . . . . . 16 (𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌)))
8483sbcth 3745 . . . . . . . . . . . . . . 15 ((2nd𝑣) ∈ V → [(2nd𝑣) / 𝑔](𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))))
85 sbcel1g 4351 . . . . . . . . . . . . . . 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 233 . . . . . . . . . . . . . 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 3745 . . . . . . . . . . . 12 ((1st𝑣) ∈ V → [(1st𝑣) / 𝑓](2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))) ∈ ((𝒫 ran ran (comp‘𝑌) ↑m (Base‘𝑋)) ↑pm ( ran (𝑋 Nat 𝑌) × ran (𝑋 Nat 𝑌))))
89 sbcel1g 4351 . . . . . . . . . . . 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 233 . . . . . . . . . . 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 3059 . . . . . . . . 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 2740 . . . . . . . . . 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 8017 . . . . . . . . 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 231 . . . . . . . 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 10648 . . . . . 6 (𝜑 → (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥))))) ∈ 𝑈)
989, 31, 97wunop 10643 . . . . 5 (𝜑 → ⟨(comp‘ndx), (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))))⟩ ∈ 𝑈)
999, 25, 29, 98wuntp 10632 . . . 4 (𝜑 → {⟨(Base‘ndx), (𝑋 Func 𝑌)⟩, ⟨(Hom ‘ndx), (𝑋 Nat 𝑌)⟩, ⟨(comp‘ndx), (𝑣 ∈ ((𝑋 Func 𝑌) × (𝑋 Func 𝑌)), ∈ (𝑋 Func 𝑌) ↦ (1st𝑣) / 𝑓(2nd𝑣) / 𝑔(𝑏 ∈ (𝑔(𝑋 Nat 𝑌)), 𝑎 ∈ (𝑓(𝑋 Nat 𝑌)𝑔) ↦ (𝑥 ∈ (Base‘𝑋) ↦ ((𝑏𝑥)(⟨((1st𝑓)‘𝑥), ((1st𝑔)‘𝑥)⟩(comp‘𝑌)((1st)‘𝑥))(𝑎𝑥)))))⟩} ∈ 𝑈)
10017, 99eqeltrd 2840 . . 3 (𝜑𝑄𝑈)
1011, 12, 15fuccat 17938 . . 3 (𝜑𝑄 ∈ Cat)
102100, 101elind 4136 . 2 (𝜑𝑄 ∈ (𝑈 ∩ Cat))
103102, 10eleqtrrd 2843 1 (𝜑𝑄𝐵)
Colors of variables: wff setvar class
Syntax hints:  wi 4   = wceq 1547  wcel 2119  wral 3054  Vcvv 3432  [wsbc 3730  csb 3838  cin 3889  wss 3890  𝒫 cpw 4536  {ctp 4566  cop 4568   cuni 4845  cmpt 5160   × cxp 5623  ran crn 5626  wf 6488  cfv 6492  (class class class)co 7363  cmpo 7365  ωcom 7813  1st c1st 7936  2nd c2nd 7937  m cmap 8770  pm cpm 8771  WUnicwun 10621  ndxcnx 17161  Basecbs 17177  Hom chom 17229  compcco 17230  Catccat 17628   Func cfunc 17819   Nat cnat 17909   FuncCat cfuc 17910  CatCatccatc 18063
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685  ax-inf2 9560  ax-cnex 11092  ax-resscn 11093  ax-1cn 11094  ax-icn 11095  ax-addcl 11096  ax-addrcl 11097  ax-mulcl 11098  ax-mulrcl 11099  ax-mulcom 11100  ax-addass 11101  ax-mulass 11102  ax-distr 11103  ax-i2m1 11104  ax-1ne0 11105  ax-1rid 11106  ax-rnegex 11107  ax-rrecex 11108  ax-cnre 11109  ax-pre-lttri 11110  ax-pre-lttrn 11111  ax-pre-ltadd 11112  ax-pre-mulgt0 11113
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-nel 3040  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-tp 4567  df-op 4569  df-uni 4846  df-int 4885  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-om 7814  df-1st 7938  df-2nd 7939  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-oadd 8406  df-omul 8407  df-er 8640  df-ec 8642  df-qs 8646  df-map 8772  df-pm 8773  df-ixp 8843  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-wun 10623  df-ni 10793  df-pli 10794  df-mi 10795  df-lti 10796  df-plpq 10829  df-mpq 10830  df-ltpq 10831  df-enq 10832  df-nq 10833  df-erq 10834  df-plq 10835  df-mq 10836  df-1nq 10837  df-rq 10838  df-ltnq 10839  df-np 10902  df-plp 10904  df-ltp 10906  df-enr 10976  df-nr 10977  df-c 11042  df-pnf 11179  df-mnf 11180  df-xr 11181  df-ltxr 11182  df-le 11183  df-sub 11377  df-neg 11378  df-nn 12173  df-2 12242  df-3 12243  df-4 12244  df-5 12245  df-6 12246  df-7 12247  df-8 12248  df-9 12249  df-n0 12436  df-z 12523  df-dec 12643  df-uz 12787  df-fz 13460  df-struct 17115  df-slot 17150  df-ndx 17162  df-base 17178  df-hom 17242  df-cco 17243  df-cat 17632  df-cid 17633  df-func 17823  df-nat 17911  df-fuc 17912  df-catc 18064
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator