sig
  val mk_mult : Sym.t
  val get : Sym.t -> Sym.pprod
  val is : Sym.t -> bool
  val is_mult : Sym.t -> bool
  val pp : 'a Pretty.printer -> (Sym.pprod * 'a list) Pretty.printer
end