set I = the carrier of F₁();
set sA = the Sorts of F₂();
consider Gen being GeneratorSet of F₂() such that
A6: Gen is finite-yielding by MSAFREE2:def 10;
reconsider Gen = Gen as V33() ManySortedSubset of the Sorts of F₂() by A6;
consider GEN being V8() V33() ManySortedSubset of the Sorts of F₂() such that
A7: Gen c= GEN by MSUALG_9:8;
consider F being ManySortedFunction of the carrier of F₁() --> NAT ,GEN such that
A8: F is "onto" by MSUALG_9:13;
the carrier of F₁() --> NAT is_transformable_to GEN

proof

let i be set ; :: according to PZFMISC1:def 3 :: thesis: ( not i in the carrier of F₁() or not GEN . i = {} or (the carrier of F₁() --> NAT ) . i = {} )
assume i in the carrier of F₁() ; :: thesis: ( not GEN . i = {} or (the carrier of F₁() --> NAT ) . i = {} )
hence ( not GEN . i = {} or (the carrier of F₁() --> NAT ) . i = {} ) ; :: thesis: verum

end;

then reconsider G = F as ManySortedFunction of the carrier of F₁() --> NAT ,the Sorts of F₂() by EXTENS_1:9;
consider h being ManySortedFunction of F₃(),F₂() such that
A9: h is_homomorphism F₃(),F₂() and
A10: G = h ** F₄() by A1, A3;
reconsider sI1 = the Sorts of (Image h) as MSSubset of (Image h) by PBOOLE:def 23;
A11: GEN is GeneratorSet of F₂() by A7, MSSCYC_1:21;
reconsider sI = the Sorts of (Image h) as MSSubset of F₂() by MSUALG_2:def 10;
GEN is ManySortedSubset of sI

proof

let i be set ; :: according to PBOOLE:def 5,PBOOLE:def 23 :: thesis: ( not i in the carrier of F₁() or GEN . i c= sI . i )
assume i in the carrier of F₁() ; :: thesis: GEN . i c= sI . i
then reconsider s = i as SortSymbol of F₁() ;
let g be set ; :: according to TARSKI:def 3 :: thesis: ( not g in GEN . i or g in sI . i )
assume A12: g in GEN . i ; :: thesis: g in sI . i
A13: (the carrier of F₁() --> NAT ) . s = NAT by FUNCOP_1:13;
then reconsider fi = F₄() . s as Function of NAT ,(the Sorts of F₃() . s) ;
dom ((h . s) * fi) = NAT by FUNCT_2:def 1
.= dom fi by FUNCT_2:def 1 ;
then A14: rng fi c= dom (h . s) by FUNCT_1:27;
rng (F . s) = GEN . s by A8, MSUALG_3:def 3;
then consider x being set such that
A15: x in dom (F . s) and
A16: g = (F . s) . x by A12, FUNCT_1:def 5;
dom (F . s) = NAT by A13, FUNCT_2:def 1
.= dom fi by FUNCT_2:def 1 ;
then A17: fi . x in rng fi by A15, FUNCT_1:def 5;
g = ((h . s) * fi) . x by A10, A16, MSUALG_3:2
.= (h . s) . (fi . x) by A15, FUNCT_2:21 ;
then g in (h . s) .: (the Sorts of F₃() . s) by A17, A14, FUNCT_1:def 12;
then g in (h .:.: the Sorts of F₃()) . s by PBOOLE:def 25;
hence g in sI . i by A9, MSUALG_3:def 14; :: thesis: verum

end;

then A18: GenMSAlg GEN is MSSubAlgebra of GenMSAlg sI by EXTENS_1:21;
GenMSAlg sI = GenMSAlg sI1 by EXTENS_1:22;
then GenMSAlg GEN is MSSubAlgebra of Image h by A18, MSUALG_2:22;
then F₂() is MSSubAlgebra of Image h by A11, MSAFREE:3;
then F₂() = Image h by MSUALG_2:8;
then A19: h is_epimorphism F₃(),F₂() by A9, MSUALG_3:19;
P₁[ QuotMSAlg F₃(),(MSCng h)] by A2, A5;
hence P₁[F₂()] by A4, A19, MSUALG_4:6; :: thesis: verum