let lv_to_fol_var lv =
let fol_v = Fol.mk_lvar_variable lv (Types.mk_ltype lv.lv_type) in
let _ = match lv.lv_origin with None -> ()
| Some v ->
begin
let added = if v.vglob then add_glob_var lv else false in
if added then
match mk_array_length (Fol.Tvar fol_v) v.vtype with None -> ()
| Some ax ->
let ax_name = Format.sprintf "ax_array_size_%s" v.vname in
add_axiom ax_name ax
end
in fol_v