theorem ThCompellO: :: EC_PF_3:25

for p being 5 _or_greater Prime
for z being Element of EC_WParam p
for P, O being Element of EC_SetProjCo ((z `1),(z `2),p) st O = [0,1,0] holds
( P _EQ_ O iff (compell_ProjCo (z,p)) . P _EQ_ O )