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

theorem ThAffCoZero:
  [0, 1, 0] is Element of EC_SetAffCo(z,p)
  proof
    [0, 1, 0] is Element of EC_SetProjCo(z`1,z`2,p) by EC_PF_1:42;
    then [0, 1, 0] in {P where P is Element of EC_SetProjCo(z`1,z`2,p) :
    P`3_3 = 1 or P = [0,1,0] };
    hence thesis;
  end;
