theorem Th33:
  Class (0-eq_states_EqR tfsm, q) = the carrier of tfsm
proof
  set 0e = 0-eq_states_EqR tfsm;
  set S = the carrier of tfsm;
  now
    let z be object;
    thus z in Class (0e, q) implies z in S;
    assume z in S;
    then reconsider z9 = z as Element of S;
    0-equivalent z9, q by Th25;
    then [z,q] in 0e by Def12;
    hence z in Class (0e, q) by EQREL_1:19;
  end;
  hence thesis by TARSKI:2;
end;
