let mk_eq_tables host_name1 host_name2 size =
  let lval1 = lval_to_term_lval ~cast:true ( Cil.var (get_varinfo host_name1)) in
  let lval2 = lval_to_term_lval ~cast:true ( Cil.var (get_varinfo host_name2)) in
  let tmp_i = Cil_const.make_logic_var "_buch_i" Cil_types.Linteger in
    Pforall([tmp_i],
            unamed (
              Pimplies (
                unamed ( mk_logicvar_intervalle tmp_i 0 size),
                unamed (
                  Prel(Req,
                       mk_offseted_array_lval_from_lval lval1 tmp_i ,
                       mk_offseted_array_lval_from_lval lval2 tmp_i
                      )
                )
              ))
           )