(* Specifications: *)
Lemma Pos_pow_1_r: forall p : positive,
(1^p = 1)%positive.
Lemma Pos_le_multiple : forall n p : positive, (n <= p * n)%positive.
Lemma Pos_pow_le_mono_r : forall a b c : positive,
(b <= c)%positive
-> (a ^ b <= a ^ c)%positive.
Lemma to_Z_bounded : forall x, (0 <= to_Z x < 9223372036854775808)%Z.
#[global]
Instance Op_ltb : BinOp ltb :=
{| TBOp := Z.ltb; TBOpInj := ltb_lt |}.
Lemma to_Z_bounded (x : int) :
(-4611686018427387904 <= to_Z x <= 4611686018427387903)%Z.