theorem
  len F >= 1 implies ex f st f.1 = F.1 &
 (for n being Nat st 0 <> n & n < len F
  holds f.(n + 1) = g.(f.n,F.(n + 1))) & g "**" F = f.(len F) by Def1;
