theorem
  for tfsm being finite non empty Mealy-FSM over IAlph, OAlph st n+1 =
  card the carrier of tfsm holds ex k being Nat st k <= n & k
  -eq_states_partition tfsm is final
proof
  let tfsm be finite non empty Mealy-FSM over IAlph, OAlph;
  assume
A1: n+1 = card the carrier of tfsm;
  take n;
  thus n <= n;
  n-eq_states_partition tfsm = (n+1)-eq_states_partition tfsm by A1,Th35;
  hence thesis by Th37;
end;
