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:29;
then
for i being 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 Nat st i in Seg ((len w) + 1) holds
b1 . i = the OFun of sfsm . (((qs,w) -admissible) . i) ) )
by A2, A1, A5; verum