reserve x,y for object, X for set;

theorem
  for p be Prime holds card Z/Z*(p) = p-1
by INT_2:def 4,Th18;
