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],
pimplies
(mk_logicvar_intervalle tmp_i 0 size,
prel(Req,
mk_offseted_array_lval_from_lval lval1 tmp_i ,
mk_offseted_array_lval_from_lval lval2 tmp_i)))