Sig.Sito
val label : string
val ff_f : elt -> t * t * t
val ff_arr : arr -> t * t * t
val df : t -> t -> t -> t
val dr : t -> t -> (t Stdlib.ref * t Stdlib.ref * t Stdlib.ref) -> (t Stdlib.ref * t Stdlib.ref * t Stdlib.ref) -> t