reserve k,n for Element of NAT,
  a,Y for set,
  D,D1,D2 for non empty set,
  p,q for FinSequence of NAT;
reserve F,F1,G,G1,H,H1,H2 for CTL-formula;
reserve sq,sq9 for FinSequence;
reserve V for CTLModel;
reserve Kai for Function of atomic_WFF,the BasicAssign of V;
reserve f,f1,f2 for Function of CTL_WFF,the carrier of V;
reserve S for non empty set;
reserve R for total Relation of S,S;
reserve s,s0,s1 for Element of S;
reserve BASSIGN for non empty Subset of ModelSP(S);
reserve kai for Function of atomic_WFF,the BasicAssign of BASSModel(R,BASSIGN);

theorem Th32:
  for T being Subset of S holds SIGMA(Tau(T,R,BASSIGN)) = T
proof
  let T be Subset of S;
  set f = Tau(T,R,BASSIGN);
  set U = SIGMA(f);
A1: U = { s where s is Element of S : (Fid(f,S)).s=TRUE } by Lm40;
  for s being object holds s in U iff s in T
  proof
    let s be object;
    thus s in U implies s in T
    proof
      assume s in U;
      then ex t being Element of S st s = t & (Fid(f,S)).t=TRUE by A1;
      then chi(T,S).s =TRUE by Def64;
      hence thesis by FUNCT_3:36;
    end;
    assume
A2: s in T;
    then (Fid(f,S)).s = chi(T,S).s by Def64
      .= 1 by A2,FUNCT_3:def 3;
    hence thesis by A1,A2;
  end;
  hence thesis by TARSKI:2;
end;
