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

theorem
  for P, Q being Element of EC_SetProjCo(z`1,z`2,p)
  st rep_pt(P) _EQ_ rep_pt(Q) holds rep_pt(P) = rep_pt(Q)
  proof
    let P, Q be Element of EC_SetProjCo(z`1,z`2,p) such that
    A1: rep_pt(P) _EQ_ rep_pt(Q);
    reconsider rP = rep_pt(P), rQ = rep_pt(Q)
    as Element of EC_SetProjCo(z`1,z`2,p) by EC_PF_2:36;
    rep_pt(rP) = rep_pt(rQ) by A1,EC_PF_2:39
    .= rep_pt(Q) by LmRepPoint9;
    hence thesis by LmRepPoint9;
  end;
