Core : restreint the type in order to prevent ourselves from miss-spelling,

like the last commit

src/core/term.ml

@@ -328,8 +328,8 @@ and expr =
 
 (* term and fmla equality *)
 
-let t_equal = (==)
-let f_equal = (==)
+let t_equal : term -> term -> bool = (==)
+let f_equal : fmla -> fmla -> bool = (==)
 
 let t_hash t = t.t_tag
 let f_hash f = f.f_tag
@@ -1702,7 +1702,7 @@ exception NoMatch
 
 let rec t_match s t1 t2 =
   if t_equal t1 t2 then s else
-  if not (t_equal t1.t_ty t2.t_ty) then raise NoMatch else
+  if not (ty_equal t1.t_ty t2.t_ty) then raise NoMatch else
   match t1.t_node, t2.t_node with
     | Tconst c1, Tconst c2 when c1 = c2 -> s
     | Tvar v1, _ ->

src/core/ty.ml

@@ -68,8 +68,8 @@ module Mts = Tsym.M
 module Hts = Tsym.H
 module Wts = Tsym.W
 
-let ts_equal = (==)
-let ty_equal = (==)
+let ts_equal : tysymbol -> tysymbol -> bool = (==)
+let ty_equal : ty       -> ty       -> bool = (==)
 
 let ts_hash ts = id_hash ts.ts_name
 let ty_hash ty = Hashweak.tag_hash ty.ty_tag