reserve p for 5_or_greater Prime;
reserve z for Element of EC_WParam p;

theorem ThRepPoint6:
  for p be 5_or_greater Prime, z be Element of EC_WParam p,
  P be Element of EC_SetProjCo(z`1,z`2,p)
  st P in EC_SetAffCo(z,p)
  holds rep_pt(P) = P
  proof
    let p be 5_or_greater Prime, z be Element of EC_WParam p,
    P be Element of EC_SetProjCo(z`1,z`2,p);
    assume P in EC_SetAffCo(z,p); then
    X1: ex PP be Element of EC_SetProjCo(z`1,z`2,p)
    st P = PP & (PP`3_3 = 1 or PP = [0,1,0]);
    reconsider PP = P as Element of ProjCo(GF(p));
    PP = [0, 1, 0] or PP`3_3 = 1 by X1,EC_PF_2:32;
    hence thesis by ThRepPoint5;
  end;
