theorem
  (p.v)`2 = 2 implies ex w being Element of dom p, T,x,y st w = v^<*0*> &
  (p.v)`1 = [T,y\x] & (p.w)`1 = [<*y*>^T,x]
proof
A1: v is correct by Def12;
  assume
A2: (p.v)`2 = 2;
  then
A3: ex T,x,y st (p.v)`1 = [T,y\x] & (p.(v^<*0*>))`1 = [<*y*>^T,x] by A1,Def4;
  branchdeg v = 1 by A1,A2,Def4;
  then v^<*0*> in dom p by Th1;
  hence thesis by A3;
end;
