sig val is_disjunction : 'a Abstract1.t -> bool val of_disjunction : 'a Disjunction.t Abstract1.t -> 'b Abstract1.t val to_disjunction : 'a Abstract1.t -> 'b Disjunction.t Abstract1.t end