Module Term_based.Product

module Make (Terms : Terms.Sig.TERMS) (A : Term_based_sig.Domain_S with module Terms = Terms) (B : Term_based_sig.Domain_S with module Terms = Terms) : Term_based_sig.Domain_S with module Terms = Terms and type t = A.t * B.t

Simple product of domains.