aboutsummaryrefslogtreecommitdiffhomepage
path: root/pretyping/reductionops.mli
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2017-12-10 23:02:01 +0100
committerGravatar Maxime Dénès <mail@maximedenes.fr>2017-12-12 11:20:30 +0100
commita9efdae884ca14a180e049ef47897ec04c411247 (patch)
tree2c542f54711584a71f9e6c662dc54dcf993216ee /pretyping/reductionops.mli
parenta1f135553d121234af0441b4dea25f5c479975c1 (diff)
Further clean-up in Reductionops, removing unused lift arguments.
Diffstat (limited to 'pretyping/reductionops.mli')
-rw-r--r--pretyping/reductionops.mli2
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/reductionops.mli b/pretyping/reductionops.mli
index 7e12d263a..a277864c9 100644
--- a/pretyping/reductionops.mli
+++ b/pretyping/reductionops.mli
@@ -100,7 +100,7 @@ module Stack : sig
@return the result and the lifts to apply on the terms
@raise IncompatibleFold2 when [sk1] and [sk2] have incompatible shapes *)
val fold2 : ('a -> constr -> constr -> 'a) -> 'a ->
- constr t -> constr t -> 'a * int * int
+ constr t -> constr t -> 'a
val map : ('a -> 'a) -> 'a t -> 'a t
val append_app_list : 'a list -> 'a t -> 'a t