test functions is_ts_tuple...

src/core/term.ml

@@ -521,6 +521,8 @@ let fs_tuple n =
 
 let fs_tuple = Util.memo fs_tuple
 
+let is_fs_tuple fs = fs == fs_tuple (List.length fs.ls_args)
+
 let t_tuple tl =
   let ty = ty_tuple (List.map (fun t -> t.t_ty) tl) in
   t_app (fs_tuple (List.length tl)) tl ty

src/core/term.mli

@@ -288,6 +288,8 @@ val f_neq_simp : term -> term -> fmla
 val fs_tuple : int -> lsymbol
 val t_tuple : term list -> term
 
+val is_fs_tuple : lsymbol -> bool
+
 (** Term library *)
 
 (* generic term/fmla traversal *)

src/core/ty.ml

@@ -218,3 +218,4 @@ let ts_tuple = Util.memo ts_tuple
 let ty_tuple tyl =
   ty_app (ts_tuple (List.length tyl)) tyl
 
+let is_ts_tuple ts = ts == ts_tuple (List.length ts.ts_args)

src/core/ty.mli

@@ -97,3 +97,5 @@ val ty_real : ty
 
 val ts_tuple : int -> tysymbol
 val ty_tuple : ty list -> ty
+
+val is_ts_tuple : tysymbol -> bool