proposition: Lemma Zpower_nat_pos u n : (0 < u -> 0 < Zpower_nat u n)%Z.
proof: Proof. intros Hu. induction n. reflexivity. rewrite Zpower_nat_S. apply Zmult_lt_0_compat; assumption. Qed.
imports: List ZArith Znumtheory Uint63 Cyclic63