Metamath Proof Explorer


Theorem embedsetcestrclem

Description: Lemma for embedsetcestrc . (Contributed by AV, 31-Mar-2020)

Ref Expression
Hypotheses funcsetcestrc.s S=SetCatU
funcsetcestrc.c C=BaseS
funcsetcestrc.f φF=xCBasendxx
funcsetcestrc.u φUWUni
funcsetcestrc.o φωU
funcsetcestrclem3.e E=ExtStrCatU
funcsetcestrclem3.b B=BaseE
Assertion embedsetcestrclem φF:C1-1B

Proof

Step Hyp Ref Expression
1 funcsetcestrc.s S=SetCatU
2 funcsetcestrc.c C=BaseS
3 funcsetcestrc.f φF=xCBasendxx
4 funcsetcestrc.u φUWUni
5 funcsetcestrc.o φωU
6 funcsetcestrclem3.e E=ExtStrCatU
7 funcsetcestrclem3.b B=BaseE
8 1 2 3 4 5 6 7 funcsetcestrclem3 φF:CB
9 1 2 3 funcsetcestrclem1 φyCFy=Basendxy
10 9 adantrr φyCzCFy=Basendxy
11 1 2 3 funcsetcestrclem1 φzCFz=Basendxz
12 11 adantrl φyCzCFz=Basendxz
13 10 12 eqeq12d φyCzCFy=FzBasendxy=Basendxz
14 opex BasendxyV
15 sneqbg BasendxyVBasendxy=BasendxzBasendxy=Basendxz
16 14 15 mp1i φyCzCBasendxy=BasendxzBasendxy=Basendxz
17 fvexd φBasendxV
18 simpl yCzCyC
19 opthg BasendxVyCBasendxy=BasendxzBasendx=Basendxy=z
20 17 18 19 syl2an φyCzCBasendxy=BasendxzBasendx=Basendxy=z
21 simpr Basendx=Basendxy=zy=z
22 20 21 syl6bi φyCzCBasendxy=Basendxzy=z
23 16 22 sylbid φyCzCBasendxy=Basendxzy=z
24 13 23 sylbid φyCzCFy=Fzy=z
25 24 ralrimivva φyCzCFy=Fzy=z
26 dff13 F:C1-1BF:CByCzCFy=Fzy=z
27 8 25 26 sylanbrc φF:C1-1B