sig
  val mk_morphism : Term.constr -> Term.constr -> Term.constr -> Term.constr
  val mk_equivalence : Term.constr -> Term.constr -> Term.constr
  val mk_reflexive : Term.constr -> Term.constr -> Term.constr
  val mk_transitive : Term.constr -> Term.constr -> Term.constr
end