Add num operations used by Itt_omega

Author: LdBeth

stdlib/lm_num.ml

@@ -57,7 +57,7 @@ let one_num = Z.one
 let minus_one_num = Z.minus_one
 
 (*
- * Catch overflows in addition.
+ * Arithmetics.
  *)
 let add_num = Z.add
 let sub_num = Z.sub
@@ -70,9 +70,16 @@ let quo_num = div_num
 let mod_num = rem_num
 
 (*
- * Power.
+ * Euclidean division and remainder, used by Itt_omega.
  *)
+let ediv_num = Z.ediv
+let erem_num = Z.erem
+
+let gcd_num = Z.gcd
 
+(*
+ * Power.
+ *)
 let power_num = Z.pow
 
 (*

stdlib/lm_num.mli

@@ -56,6 +56,10 @@ val neg_num : num -> num
 val abs_num : num -> num
 val power_num : num -> int -> num
 
+val ediv_num : num -> num -> num
+val erem_num : num -> num -> num
+val gcd_num : num -> num -> num
+
 val succ_num : num -> num
 val pred_num : num -> num