diff options
| author | Gaëtan Gilbert | 2019-11-21 16:46:11 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-11-21 16:46:11 +0100 |
| commit | c0f34539209842735ccb93f3c069632b7eee4d6c (patch) | |
| tree | 32cd948273f79a2c01ad27b4ed0244ea60d7e2f9 /kernel/nativevalues.mli | |
| parent | b680b06b31c27751a7d551d95839aea38f7fbea1 (diff) | |
| parent | d016f69818b30b75d186fb14f440b93b0518fc66 (diff) | |
Merge PR #11010: [coq] Untabify the whole ML codebase.
Reviewed-by: SkySkimmer
Reviewed-by: herbelin
Diffstat (limited to 'kernel/nativevalues.mli')
| -rw-r--r-- | kernel/nativevalues.mli | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/kernel/nativevalues.mli b/kernel/nativevalues.mli index 815ef3e98e..420249117d 100644 --- a/kernel/nativevalues.mli +++ b/kernel/nativevalues.mli @@ -36,7 +36,7 @@ val eq_annot_sw : annot_sw -> annot_sw -> bool val hash_annot_sw : annot_sw -> int type sort_annot = string * int - + type rec_pos = int array val eq_rec_pos : rec_pos -> rec_pos -> bool @@ -47,8 +47,8 @@ type atom = | Aind of pinductive | Asort of Sorts.t | Avar of Id.t - | Acase of annot_sw * accumulator * t * (t -> t) - | Afix of t array * t array * rec_pos * int + | Acase of annot_sw * accumulator * t * (t -> t) + | Afix of t array * t array * rec_pos * int | Acofix of t array * t array * int * t | Acofixe of t array * t array * int * t | Aprod of Name.t * t * (t -> t) @@ -89,7 +89,7 @@ val mk_meta_accu : metavariable -> t val mk_evar_accu : Evar.t -> t array -> t val mk_proj_accu : (inductive * int) -> accumulator -> t val upd_cofix : t -> t -> unit -val force_cofix : t -> t +val force_cofix : t -> t val mk_const : tag -> t val mk_block : tag -> t array -> t @@ -117,9 +117,9 @@ val cast_accu : t -> accumulator [@@ocaml.inline always] (* Functions over block: i.e constructors *) - + type block - + val block_size : block -> int val block_field : block -> int -> t val block_tag : block -> int @@ -178,7 +178,7 @@ val addMulDiv : t -> t -> t -> t -> t val eq : t -> t -> t -> t val lt : t -> t -> t -> t val le : t -> t -> t -> t -val compare : t -> t -> t -> t +val compare : t -> t -> t -> t val print : t -> t |
