@@ -41,7 +41,7 @@ module type S = sig
4141 (* module SLAKE : Map.S with type key = P.t*)
4242
4343 (* * {1 Types} *)
44-
44+
4545 (* * A bound is a value of the form [x + kƐ] and an explanation. *)
4646 type bound = {
4747 bvalue : R2 .t ;
@@ -129,17 +129,18 @@ module type S = sig
129129 val set_max_bound : var_info -> bound option -> var_info * bool
130130
131131 (* * [ajust_value_of_non_basic vinfo] updates the info's value with the upper
132- bound (resp. the lower bound), if [vinfo]'s status is {!const:UpperKO}
133- (resp. {!const :LowerKO}). Otherwise, do nothing.
134- The boolean returned is [true] if the new variable [var_info]
132+ bound (resp. the lower bound), if [vinfo]'s status is
133+ {!constructor:UpperKO} (resp. {!constructor :LowerKO}). Otherwise, do
134+ nothing. The boolean returned is [true] if the new variable [var_info]
135135 has changed. *)
136136 val ajust_value_of_non_basic : var_info -> var_info * bool
137137 (* vstatus is supposed to be well set *)
138138
139139 (* * [ajust_status_of_basic vinfo] checks a variable info's bound matches
140140 its status. If its value violates its lower bound, its status is set
141- to {!const:LowerKO}. In the other case, it is set to {!const:UpperKO}.
142- If the value is between the two bounds, it is set to {!const:ValueOK}. *)
141+ to {!constructor:LowerKO}. In the other case, it is set to
142+ {!constructor:UpperKO}. If the value is between the two bounds, it is set
143+ to {!constructor:ValueOK}. *)
143144 val ajust_status_of_basic : var_info -> var_info
144145 (* valuation is supposed to be well computed *)
145146
0 commit comments