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