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