Adding a wit_natural standard argument.

1 files changed, 4 insertions, 0 deletions

diff --git a/interp/stdarg.ml b/interp/stdarg.ml
index d5f104b7f8..343f85be03 100644
--- a/interp/stdarg.ml
+++ b/interp/stdarg.ml
@@ -25,6 +25,9 @@ let wit_bool : bool uniform_genarg_type =
 let wit_int : int uniform_genarg_type =
   make0 "int"
 
+let wit_nat : int uniform_genarg_type =
+  make0 "nat"
+
 let wit_string : string uniform_genarg_type =
   make0 "string"
 
@@ -59,6 +62,7 @@ let wit_clause_dft_concl  =
 (** Aliases for compatibility *)
 
 let wit_integer = wit_int
+let wit_natural = wit_nat
 let wit_preident = wit_pre_ident
 let wit_reference = wit_ref
 let wit_global = wit_ref