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

Theorem fullsetcestrc 18101
Description: The "embedding functor" from the category of sets into the category of extensible structures which sends each set to an extensible structure consisting of the base set slot only is full. (Contributed by AV, 1-Apr-2020.)
Hypotheses
Ref Expression
funcsetcestrc.s 𝑆 = (SetCat‘𝑈)
funcsetcestrc.c 𝐶 = (Base‘𝑆)
funcsetcestrc.f (𝜑𝐹 = (𝑥𝐶 ↦ {⟨(Base‘ndx), 𝑥⟩}))
funcsetcestrc.u (𝜑𝑈 ∈ WUni)
funcsetcestrc.o (𝜑 → ω ∈ 𝑈)
funcsetcestrc.g (𝜑𝐺 = (𝑥𝐶, 𝑦𝐶 ↦ ( I ↾ (𝑦m 𝑥))))
funcsetcestrc.e 𝐸 = (ExtStrCat‘𝑈)
Assertion
Ref Expression
fullsetcestrc (𝜑𝐹(𝑆 Full 𝐸)𝐺)
Distinct variable groups:   𝑥,𝐶   𝜑,𝑥   𝑦,𝐶,𝑥   𝜑,𝑦   𝑥,𝐸
Allowed substitution hints:   𝑆(𝑥,𝑦)   𝑈(𝑥,𝑦)   𝐸(𝑦)   𝐹(𝑥,𝑦)   𝐺(𝑥,𝑦)

Proof of Theorem fullsetcestrc
Dummy variables 𝑎 𝑏 𝑘 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 funcsetcestrc.s . . 3 𝑆 = (SetCat‘𝑈)
2 funcsetcestrc.c . . 3 𝐶 = (Base‘𝑆)
3 funcsetcestrc.f . . 3 (𝜑𝐹 = (𝑥𝐶 ↦ {⟨(Base‘ndx), 𝑥⟩}))
4 funcsetcestrc.u . . 3 (𝜑𝑈 ∈ WUni)
5 funcsetcestrc.o . . 3 (𝜑 → ω ∈ 𝑈)
6 funcsetcestrc.g . . 3 (𝜑𝐺 = (𝑥𝐶, 𝑦𝐶 ↦ ( I ↾ (𝑦m 𝑥))))
7 funcsetcestrc.e . . 3 𝐸 = (ExtStrCat‘𝑈)
81, 2, 3, 4, 5, 6, 7funcsetcestrc 18099 . 2 (𝜑𝐹(𝑆 Func 𝐸)𝐺)
91, 2, 3, 4, 5, 6, 7funcsetcestrclem8 18097 . . . 4 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (𝑎𝐺𝑏):(𝑎(Hom ‘𝑆)𝑏)⟶((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏)))
104adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → 𝑈 ∈ WUni)
11 eqid 2737 . . . . . . 7 (Hom ‘𝐸) = (Hom ‘𝐸)
121, 2, 3, 4, 5funcsetcestrclem2 18090 . . . . . . . 8 ((𝜑𝑎𝐶) → (𝐹𝑎) ∈ 𝑈)
1312adantrr 718 . . . . . . 7 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (𝐹𝑎) ∈ 𝑈)
141, 2, 3, 4, 5funcsetcestrclem2 18090 . . . . . . . 8 ((𝜑𝑏𝐶) → (𝐹𝑏) ∈ 𝑈)
1514adantrl 717 . . . . . . 7 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (𝐹𝑏) ∈ 𝑈)
16 eqid 2737 . . . . . . 7 (Base‘(𝐹𝑎)) = (Base‘(𝐹𝑎))
17 eqid 2737 . . . . . . 7 (Base‘(𝐹𝑏)) = (Base‘(𝐹𝑏))
187, 10, 11, 13, 15, 16, 17elestrchom 18063 . . . . . 6 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → ( ∈ ((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏)) ↔ :(Base‘(𝐹𝑎))⟶(Base‘(𝐹𝑏))))
191, 2, 3funcsetcestrclem1 18089 . . . . . . . . . . 11 ((𝜑𝑎𝐶) → (𝐹𝑎) = {⟨(Base‘ndx), 𝑎⟩})
2019adantrr 718 . . . . . . . . . 10 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (𝐹𝑎) = {⟨(Base‘ndx), 𝑎⟩})
2120fveq2d 6846 . . . . . . . . 9 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (Base‘(𝐹𝑎)) = (Base‘{⟨(Base‘ndx), 𝑎⟩}))
22 eqid 2737 . . . . . . . . . . 11 {⟨(Base‘ndx), 𝑎⟩} = {⟨(Base‘ndx), 𝑎⟩}
23221strbas 17163 . . . . . . . . . 10 (𝑎𝐶𝑎 = (Base‘{⟨(Base‘ndx), 𝑎⟩}))
2423ad2antrl 729 . . . . . . . . 9 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → 𝑎 = (Base‘{⟨(Base‘ndx), 𝑎⟩}))
2521, 24eqtr4d 2775 . . . . . . . 8 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (Base‘(𝐹𝑎)) = 𝑎)
261, 2, 3funcsetcestrclem1 18089 . . . . . . . . . . 11 ((𝜑𝑏𝐶) → (𝐹𝑏) = {⟨(Base‘ndx), 𝑏⟩})
2726adantrl 717 . . . . . . . . . 10 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (𝐹𝑏) = {⟨(Base‘ndx), 𝑏⟩})
2827fveq2d 6846 . . . . . . . . 9 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (Base‘(𝐹𝑏)) = (Base‘{⟨(Base‘ndx), 𝑏⟩}))
29 eqid 2737 . . . . . . . . . . 11 {⟨(Base‘ndx), 𝑏⟩} = {⟨(Base‘ndx), 𝑏⟩}
30291strbas 17163 . . . . . . . . . 10 (𝑏𝐶𝑏 = (Base‘{⟨(Base‘ndx), 𝑏⟩}))
3130ad2antll 730 . . . . . . . . 9 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → 𝑏 = (Base‘{⟨(Base‘ndx), 𝑏⟩}))
3228, 31eqtr4d 2775 . . . . . . . 8 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (Base‘(𝐹𝑏)) = 𝑏)
3325, 32feq23d 6665 . . . . . . 7 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (:(Base‘(𝐹𝑎))⟶(Base‘(𝐹𝑏)) ↔ :𝑎𝑏))
34 simpr 484 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (𝑎𝐶𝑏𝐶))
3534ancomd 461 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (𝑏𝐶𝑎𝐶))
36 elmapg 8788 . . . . . . . . . . . . 13 ((𝑏𝐶𝑎𝐶) → ( ∈ (𝑏m 𝑎) ↔ :𝑎𝑏))
3735, 36syl 17 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → ( ∈ (𝑏m 𝑎) ↔ :𝑎𝑏))
3837biimpar 477 . . . . . . . . . . 11 (((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ :𝑎𝑏) → ∈ (𝑏m 𝑎))
39 equequ2 2028 . . . . . . . . . . . 12 (𝑘 = → ( = 𝑘 = ))
4039adantl 481 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ :𝑎𝑏) ∧ 𝑘 = ) → ( = 𝑘 = ))
41 eqidd 2738 . . . . . . . . . . 11 (((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ :𝑎𝑏) → = )
4238, 40, 41rspcedvd 3580 . . . . . . . . . 10 (((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ :𝑎𝑏) → ∃𝑘 ∈ (𝑏m 𝑎) = 𝑘)
431, 2, 3, 4, 5, 6funcsetcestrclem6 18095 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑎𝐶𝑏𝐶) ∧ 𝑘 ∈ (𝑏m 𝑎)) → ((𝑎𝐺𝑏)‘𝑘) = 𝑘)
44433expa 1119 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ 𝑘 ∈ (𝑏m 𝑎)) → ((𝑎𝐺𝑏)‘𝑘) = 𝑘)
4544eqeq2d 2748 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ 𝑘 ∈ (𝑏m 𝑎)) → ( = ((𝑎𝐺𝑏)‘𝑘) ↔ = 𝑘))
4645rexbidva 3160 . . . . . . . . . . 11 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (∃𝑘 ∈ (𝑏m 𝑎) = ((𝑎𝐺𝑏)‘𝑘) ↔ ∃𝑘 ∈ (𝑏m 𝑎) = 𝑘))
4746adantr 480 . . . . . . . . . 10 (((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ :𝑎𝑏) → (∃𝑘 ∈ (𝑏m 𝑎) = ((𝑎𝐺𝑏)‘𝑘) ↔ ∃𝑘 ∈ (𝑏m 𝑎) = 𝑘))
4842, 47mpbird 257 . . . . . . . . 9 (((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ :𝑎𝑏) → ∃𝑘 ∈ (𝑏m 𝑎) = ((𝑎𝐺𝑏)‘𝑘))
49 eqid 2737 . . . . . . . . . . . 12 (Hom ‘𝑆) = (Hom ‘𝑆)
501, 4setcbas 18014 . . . . . . . . . . . . . . . . 17 (𝜑𝑈 = (Base‘𝑆))
512, 50eqtr4id 2791 . . . . . . . . . . . . . . . 16 (𝜑𝐶 = 𝑈)
5251eleq2d 2823 . . . . . . . . . . . . . . 15 (𝜑 → (𝑎𝐶𝑎𝑈))
5352biimpcd 249 . . . . . . . . . . . . . 14 (𝑎𝐶 → (𝜑𝑎𝑈))
5453adantr 480 . . . . . . . . . . . . 13 ((𝑎𝐶𝑏𝐶) → (𝜑𝑎𝑈))
5554impcom 407 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → 𝑎𝑈)
5651eleq2d 2823 . . . . . . . . . . . . . . 15 (𝜑 → (𝑏𝐶𝑏𝑈))
5756biimpcd 249 . . . . . . . . . . . . . 14 (𝑏𝐶 → (𝜑𝑏𝑈))
5857adantl 481 . . . . . . . . . . . . 13 ((𝑎𝐶𝑏𝐶) → (𝜑𝑏𝑈))
5958impcom 407 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → 𝑏𝑈)
601, 10, 49, 55, 59setchom 18016 . . . . . . . . . . 11 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (𝑎(Hom ‘𝑆)𝑏) = (𝑏m 𝑎))
6160rexeqdv 3299 . . . . . . . . . 10 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (∃𝑘 ∈ (𝑎(Hom ‘𝑆)𝑏) = ((𝑎𝐺𝑏)‘𝑘) ↔ ∃𝑘 ∈ (𝑏m 𝑎) = ((𝑎𝐺𝑏)‘𝑘)))
6261adantr 480 . . . . . . . . 9 (((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ :𝑎𝑏) → (∃𝑘 ∈ (𝑎(Hom ‘𝑆)𝑏) = ((𝑎𝐺𝑏)‘𝑘) ↔ ∃𝑘 ∈ (𝑏m 𝑎) = ((𝑎𝐺𝑏)‘𝑘)))
6348, 62mpbird 257 . . . . . . . 8 (((𝜑 ∧ (𝑎𝐶𝑏𝐶)) ∧ :𝑎𝑏) → ∃𝑘 ∈ (𝑎(Hom ‘𝑆)𝑏) = ((𝑎𝐺𝑏)‘𝑘))
6463ex 412 . . . . . . 7 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (:𝑎𝑏 → ∃𝑘 ∈ (𝑎(Hom ‘𝑆)𝑏) = ((𝑎𝐺𝑏)‘𝑘)))
6533, 64sylbid 240 . . . . . 6 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (:(Base‘(𝐹𝑎))⟶(Base‘(𝐹𝑏)) → ∃𝑘 ∈ (𝑎(Hom ‘𝑆)𝑏) = ((𝑎𝐺𝑏)‘𝑘)))
6618, 65sylbid 240 . . . . 5 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → ( ∈ ((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏)) → ∃𝑘 ∈ (𝑎(Hom ‘𝑆)𝑏) = ((𝑎𝐺𝑏)‘𝑘)))
6766ralrimiv 3129 . . . 4 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → ∀ ∈ ((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏))∃𝑘 ∈ (𝑎(Hom ‘𝑆)𝑏) = ((𝑎𝐺𝑏)‘𝑘))
68 dffo3 7056 . . . 4 ((𝑎𝐺𝑏):(𝑎(Hom ‘𝑆)𝑏)–onto→((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏)) ↔ ((𝑎𝐺𝑏):(𝑎(Hom ‘𝑆)𝑏)⟶((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏)) ∧ ∀ ∈ ((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏))∃𝑘 ∈ (𝑎(Hom ‘𝑆)𝑏) = ((𝑎𝐺𝑏)‘𝑘)))
699, 67, 68sylanbrc 584 . . 3 ((𝜑 ∧ (𝑎𝐶𝑏𝐶)) → (𝑎𝐺𝑏):(𝑎(Hom ‘𝑆)𝑏)–onto→((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏)))
7069ralrimivva 3181 . 2 (𝜑 → ∀𝑎𝐶𝑏𝐶 (𝑎𝐺𝑏):(𝑎(Hom ‘𝑆)𝑏)–onto→((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏)))
712, 11, 49isfull2 17849 . 2 (𝐹(𝑆 Full 𝐸)𝐺 ↔ (𝐹(𝑆 Func 𝐸)𝐺 ∧ ∀𝑎𝐶𝑏𝐶 (𝑎𝐺𝑏):(𝑎(Hom ‘𝑆)𝑏)–onto→((𝐹𝑎)(Hom ‘𝐸)(𝐹𝑏))))
728, 70, 71sylanbrc 584 1 (𝜑𝐹(𝑆 Full 𝐸)𝐺)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1542  wcel 2114  wral 3052  wrex 3062  {csn 4582  cop 4588   class class class wbr 5100  cmpt 5181   I cid 5526  cres 5634  wf 6496  ontowfo 6498  cfv 6500  (class class class)co 7368  cmpo 7370  ωcom 7818  m cmap 8775  WUnicwun 10623  ndxcnx 17132  Basecbs 17148  Hom chom 17200   Func cfunc 17790   Full cful 17840  SetCatcsetc 18011  ExtStrCatcestrc 18057
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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-inf2 9562  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-om 7819  df-1st 7943  df-2nd 7944  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-1o 8407  df-oadd 8411  df-omul 8412  df-er 8645  df-ec 8647  df-qs 8651  df-map 8777  df-pm 8778  df-ixp 8848  df-en 8896  df-dom 8897  df-sdom 8898  df-fin 8899  df-wun 10625  df-ni 10795  df-pli 10796  df-mi 10797  df-lti 10798  df-plpq 10831  df-mpq 10832  df-ltpq 10833  df-enq 10834  df-nq 10835  df-erq 10836  df-plq 10837  df-mq 10838  df-1nq 10839  df-rq 10840  df-ltnq 10841  df-np 10904  df-plp 10906  df-ltp 10908  df-enr 10978  df-nr 10979  df-c 11044  df-pnf 11180  df-mnf 11181  df-xr 11182  df-ltxr 11183  df-le 11184  df-sub 11378  df-neg 11379  df-nn 12158  df-2 12220  df-3 12221  df-4 12222  df-5 12223  df-6 12224  df-7 12225  df-8 12226  df-9 12227  df-n0 12414  df-z 12501  df-dec 12620  df-uz 12764  df-fz 13436  df-struct 17086  df-slot 17121  df-ndx 17133  df-base 17149  df-hom 17213  df-cco 17214  df-cat 17603  df-cid 17604  df-func 17794  df-full 17842  df-setc 18012  df-estrc 18058
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator