theorem Th7:
  Evaluate(EX H,Kai) = EX Evaluate(H,Kai)
proof
  consider f1 be Function of CTL_WFF,the carrier of V such that
A1: f1 is-Evaluation-for Kai and
A2: Evaluate(EX H,Kai) = f1.(EX H) by Def34;
A3: ex f2 be Function of CTL_WFF,the carrier of V st f2
  is-Evaluation-for Kai & Evaluate(H,Kai) = f2.H by Def34;
A4: EX H is ExistNext;
  then Evaluate(EX H,Kai) = (the EneXt of V).(f1.(the_argument_of(EX H)) ) by
A1,A2
    .= (the EneXt of V).(f1.H ) by A4,Def21
    .= EX Evaluate(H,Kai) by A1,A3,Th4;
  hence thesis;
end;
