proposition: Theorem spec_to_N n: (BigZ.to_Z n = Z.sgn (BigZ.to_Z n) * (BigN.to_Z (BigZ.to_N n)))%Z.
proof: Proof. case n; simpl; intros p; generalize (BigN.spec_pos p); case (BigN.to_Z p); auto. intros p1 H1; case H1; auto. intros p1 H1; case H1; auto. Qed.
imports: BigN ZProperties ZDivFloor ZSig ZSigZAxioms ZMake Ring Lia