proposition: Theorem SS_prop_cor: forall p, 1 < p -> SS p = 0 -> (Mp p | fst(s (p -2))).
proof: Proof. intros p H H1. apply Zmod_divide. generalize (mersenne_pos _ H); auto with zarith. apply trans_equal with (2:= H1); apply sym_equal; apply SS_prop; auto. Qed.
imports: ZArith ZCAux Tactic Wf_nat NatAux UList ListAux FGroup EGroup PGroup IGroup