fact: Definition SS p := let n := Mp p in match p - 2 with Zpos p1 => iter_pos _ (fun x => Zmodd (Z.square x - 2) n) (Zmodd 4 n) p1 | _ => (Zmodd 4 n) end.
imports: ZArith ZCAux Tactic Wf_nat NatAux UList ListAux FGroup EGroup PGroup IGroup