diff options
| author | Pierre-Marie Pédrot | 2018-06-05 13:30:21 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-06-05 13:30:21 +0200 |
| commit | 00a01f65be79bef8592928941646750968dbe648 (patch) | |
| tree | ad742b6f4ed5c706308755f2a9bbff2fd261eb18 /kernel/constr.mli | |
| parent | c7f8af076b3f9bcfd4ff84ca9a14fc65ab9b953d (diff) | |
| parent | 7ada864b7728c9c94b7ca9856b6b2c89feb0214e (diff) | |
Merge PR #7643: Fix #7631: native_compute fails to compile an example in Coq 8.8
Diffstat (limited to 'kernel/constr.mli')
| -rw-r--r-- | kernel/constr.mli | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/kernel/constr.mli b/kernel/constr.mli index b35ea66536..742a13919a 100644 --- a/kernel/constr.mli +++ b/kernel/constr.mli @@ -402,6 +402,15 @@ val iter : (constr -> unit) -> constr -> unit val iter_with_binders : ('a -> 'a) -> ('a -> constr -> unit) -> 'a -> constr -> unit +(** [iter_with_binders g f n c] iters [f n] on the immediate + subterms of [c]; it carries an extra data [n] (typically a lift + index) which is processed by [g] (which typically add 1 to [n]) at + each binder traversal; it is not recursive and the order with which + subterms are processed is not specified *) + +val fold_constr_with_binders : + ('a -> 'a) -> ('a -> 'b -> constr -> 'b) -> 'a -> 'b -> constr -> 'b + type constr_compare_fn = int -> constr -> constr -> bool (** [compare_head f c1 c2] compare [c1] and [c2] using [f] to compare |