theorem
  ((q, w)-admissible).(len (q, w)-admissible) = q9 iff q, w -leads_to q9
by Def2;
