(** We hence obtain all the generic properties of [min] and [max]. *)
Ltac order := Private_Tac.order.
(** Minimum, maximum and constant one *)

Lemma iter_op_correct {A} op x p z
(op_zero_r : op x z = x)
(op_assoc : forall x y z : A, op x (op y z) = op (op x y) z)
: @Pos.iter_op A op p x = Pos.iter (op x) z p.