From Coq Require Import NArith ZArith Int63 Program.Wf.

#[local] Close Scope nat_scope.
#[local] Open Scope bool_scope.

Definition max_uint (p : positive) : Z := 2 ^ (Z.pos p).
Definition min_int (p : positive) : Z := - 2 ^ (Z.pos p - 1).
Definition max_int (p : positive) : Z := 2 ^ (Z.pos p - 1).

Record i63 := mk_i63 { un_i63 : int}.

Register i63 as coqffi.data.i63.type.
Register mk_i63 as coqffi.data.i63.mk_i63.

Declare Scope i63_scope.
Delimit Scope i63_scope with i63.
Bind Scope i63_scope with i63.

#[local] Open Scope i63_scope.

Definition of_Z (x : Z) : option i63 :=
  if (min_int 63 <=? x)%Z
  then if (x <? 0)%Z
       then Some (mk_i63 (Int63.of_Z (x + max_uint 63)))
       else if (x <? max_int 63)%Z
            then Some (mk_i63 (of_Z x))
            else None
  else None.

Definition to_Z (x : i63) : Z :=
  let x := Int63.to_Z (un_i63 x) in
  if (x <? max_int 63)%Z
  then x
  else x - max_uint 63.

Number Notation i63 of_Z to_Z : i63_scope.

Definition ibinop (op : int → int → int) (x y : i63) : i63 :=
  mk_i63 (op (un_i63 x) (un_i63 y)).

Definition i63add : i63 → i63 → i63 := ibinop Int63.add.
Definition i63mul : i63 → i63 → i63 := ibinop Int63.mul.
Definition i63sub : i63 → i63 → i63 := ibinop Int63.sub.
Definition i63div : i63 → i63 → i63 := ibinop Int63.div.
Definition i63lxor : i63 → i63 → i63 := ibinop Int63.lxor.

Infix "+" := i63add : i63_scope.
Infix "-" := i63sub : i63_scope.
Infix "×" := i63mul : i63_scope.
Infix "/" := i63div : i63_scope.

Definition i63ops (x : i63) : i63 := -1 × x.

Notation "'-' x" := (i63ops x) : i63_scope.

Definition i63eqb (x y : i63) : bool :=
  eqb (un_i63 x) (un_i63 y).

Infix "=?" := i63eqb.

Lemma i63_eqb_eq (x y : i63) : x =? y = true ↔ x = y.

Proof.
  destruct x as [x].
  destruct y as [y].
  cbv.
  split; intros equ.
  + apply eqb_correct in equ.
    now rewrite equ.
  + inversion equ; subst.
    apply eqb_refl.
Qed.

Definition i63le (x y : i63) : Prop := (to_Z x ≤ to_Z y)%Z.
Definition i63lt (x y : i63) : Prop := (to_Z x < to_Z y)%Z.

Infix "<" := i63lt : i63_scope.
Infix "≤" := i63le : i63_scope.

Definition max_i63 : i63 := mk_i63 (Int63.of_Z (max_int 63 - 1)).
Definition min_i63 : i63 := mk_i63 (Int63.of_Z (min_int 63)).

Definition i63ltb (x y : i63) : bool :=
  let max_int := un_i63 max_i63 in
  let x := un_i63 x in
  let y := un_i63 y in
  if ((ltb x max_int) && (ltb y max_int))
     || ((ltb max_int x)%int63 && (ltb max_int y))
  then (ltb x y)%int63
  else if (ltb max_int x)%int63
  then true
  else false.

Infix "<?" := i63ltb : i63_scope.

Definition i63leb (x y : i63) : bool :=
  (x =? y) || (x <? y).

Infix "<=?" := i63leb : i63_scope.

Definition i63_mod (x y : i63) : i63 :=
  mk_i63 (Int63.mod (un_i63 x) (un_i63 y))%int63.

Infix "mod" := i63_mod : i63_scope.

Definition abs (x : i63) : i63 :=
  if x <? 0
  then -1 × x
  else x.

Definition i63min (x y : i63) : i63 :=
  if x <? y then x else y.

Definition i63max (x y : i63) : i63 :=
  if x <? y then y else x.

Module IntExtraction.
  Extract Inlined Constant int ⇒ int.
  Extract Inductive i63 ⇒ int [ "" ].

  Extract Inlined Constant abs ⇒ "abs".
  Extract Inlined Constant i63add ⇒ "(+)".
  Extract Inlined Constant i63sub ⇒ "(-)".
  Extract Inlined Constant i63mul ⇒ "( * )".
  Extract Inlined Constant i63div ⇒ "(/)".
  Extract Inlined Constant i63eqb ⇒ "(=)".
  Extract Inlined Constant i63ltb ⇒ "(<)".
  Extract Inlined Constant i63leb ⇒ "(<=)".
End IntExtraction.