1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(***********************************************************************)
(* *)
(* FaCiLe *)
(* A Functional Constraint Library *)
(* *)
(* Nicolas Barnier, Pascal Brisset, LOG, CENA *)
(* *)
(* Copyright 2004 CENA. All rights reserved. This file is distributed *)
(* under the terms of the GNU Lesser General Public License. *)
(***********************************************************************)
val cstr : Fcl_var.Fd.t array -> Fcl_var.Fd.t -> Fcl_cstr.t
(** [cstr bools sum] returns a constraint ensuring that [sum] is equal
to the sum of the boolean variables of the array [bools]. This constraint
posts a demon for each variable. *)
val sum : Fcl_var.Fd.t array -> Fcl_var.Fd.t
(** [sum bools] returns the sum (a new variable) and posts the preceding
constraint. *)
|
