set qs9 = qs,w -admissible ;
deffunc H1( Nat) -> set = the OFun of sfsm . ((qs,w -admissible ) . $1);
consider p being FinSequence such that
A1:
( len p = len (qs,w -admissible ) & ( for i being Nat st i in dom p holds
p . i = H1(i) ) )
from FINSEQ_1:sch 2();
A2:
Seg (len (qs,w -admissible )) = dom (qs,w -admissible )
by FINSEQ_1:def 3;
rng p c= OAlph
then reconsider p9 = p as FinSequence of OAlph by FINSEQ_1:def 4;
A5:
len (qs,w -admissible ) = (len w) + 1
by Def2;
dom p = dom (qs,w -admissible )
by A1, FINSEQ_3:31;
then
for i being Element of NAT st i in dom (qs,w -admissible ) holds
p9 . i = the OFun of sfsm . ((qs,w -admissible ) . i)
by A1;
hence
ex b1 being FinSequence of OAlph st
( len b1 = (len w) + 1 & ( for i being Element of NAT st i in Seg ((len w) + 1) holds
b1 . i = the OFun of sfsm . ((qs,w -admissible ) . i) ) )
by A2, A1, A5; verum