Definition initblocksize (V: Type)  (a: ident * globvar V)  : (ident * Z) :=
 match a with (id,l) => (id , init_data_list_size (gvar_init l)) end.

(* Specifications: *)
Lemma initblocksize_name: forall V a id n, initblocksize V a = (id,n) -> fst a = id.