module Abstract1:sig
..end
val is_disjunction : 'a Abstract1.t -> bool
Return true
iff the argument value is a disjunction value
val of_disjunction : 'a Disjunction.t Abstract1.t -> 'b Abstract1.t
Make a disjunction value generic
val to_disjunction : 'a Abstract1.t -> 'b Disjunction.t Abstract1.t
Instanciate the type of a disjunction value.
Raises Failure
if the argument value is not a disjunction value