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