proposition: Theorem mersenne_pos: 1 < p -> 1 < Mp.
proof: Proof. intros H; unfold Mp; enough (2 < 2 ^p) by auto with zarith. apply Z.lt_le_trans with (2^2). refine (refl_equal _). apply Zpower_le_monotone; auto with zarith. Qed.
imports: ZArith ZCAux Tactic Wf_nat NatAux UList ListAux FGroup EGroup PGroup IGroup