Section SINGLE_HOLE.
Context {cs: compspecs}.

(* Specifications: *)
Lemma gfield_dec: forall (gf0 gf1: gfield), {gf0 = gf1} + {gf0 <> gf1}.
Lemma upd_reptype_data_equal: forall t gfs v v0 v1, data_equal v0 v1 -> data_equal (upd_reptype t gfs v v0) (upd_reptype t gfs v v1).
Lemma Znth_map_Vint: forall (i : Z) (l : list int),
0 <= i < Zlength l -> Znth i (map Vint l) = Vint (Znth i l).