theorem Th12:
  1 = 1.(GF p)
  proof
    1 < p by INT_2:def 4;
    then 1 in Segm p by NAT_1:44;
    hence thesis by SUBSET_1:def 8;
  end;
