remove duplicated code from EcAst

Author: strub

src/ecAst.ml

@@ -439,17 +439,7 @@ let ov_equal vd1 vd2 =
   EcUtils.opt_equal (=) vd1.ov_name vd2.ov_name &&
   ty_equal vd1.ov_type vd2.ov_type
 
-let v_hash v =
-  Why3.Hashcons.combine
-    (Hashtbl.hash v.v_name)
-    (ty_hash v.v_type)
-
-let v_equal vd1 vd2 =
-  vd1.v_name = vd2.v_name &&
-  ty_equal vd1.v_type vd2.v_type
-
 (* -------------------------------------------------------------------- *)
-
 let mr_xpaths (mr : mod_restr) : mr_xpaths =
   { ur_pos = omap fst mr.ur_pos;
     ur_neg = fst mr.ur_neg; }
@@ -624,15 +614,6 @@ let b_hash (bs : bindings) =
   in
     Why3.Hashcons.combine_list b1_hash 0 bs
 
-(* -------------------------------------------------------------------- *)
-let i_equal   = ((==) : instr -> instr -> bool)
-let i_hash    = fun i -> i.i_tag
-let i_fv i    = i.i_fv
-
-let s_equal   = ((==) : stmt -> stmt -> bool)
-let s_hash    = fun s -> s.s_tag
-let s_fv      = fun s -> s.s_fv
-
 (*-------------------------------------------------------------------- *)
 let hf_equal hf1 hf2 =
      f_equal hf1.hf_pr hf2.hf_pr

src/ecAst.mli

@@ -344,9 +344,6 @@ val hcmp_hash : hoarecmp hash
 val ov_equal : ovariable equality
 val ov_hash  : ovariable hash
 
-val v_equal : variable equality
-val v_hash : variable hash
-
 (* -------------------------------------------------------------------- *)
 val ur_equal : 'a equality -> 'a use_restr equality
 val ur_hash  : ('a -> 'b list) -> 'b hash -> 'a use_restr hash
@@ -389,19 +386,9 @@ val gty_hash  : gty hash
 val gty_fv    : gty fv
 
 (*-------------------------------------------------------------------- *)
-
 val b_equal : bindings equality
 val b_hash : bindings hash
 
-(* -------------------------------------------------------------------- *)
-val i_equal   : instr equality
-val i_hash    : instr hash
-val i_fv      : instr fv
-
-val s_equal   : stmt equality
-val s_hash    : stmt hash
-val s_fv      : stmt fv
-
 (*-------------------------------------------------------------------- *)
 val hf_equal  : sHoareF equality
 val hf_hash   : sHoareF hash