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
)
)
))
)