fact: Definition vertex_at (sh: share) (p: val) (header: Z) (lst_fields: list val) := Eval cbv delta [Archi.ptr64] match in (data_at sh (if Archi.ptr64 then tulong else tuint) (Z2val header) (offset_val (- WORD_SIZE) p) * data_at sh (tarray int_or_ptr_type (Zlength lst_fields)) lst_fields p).
imports: VST.veric.compcert_rmaps VST.msl.shares VST.msl.wand_frame VST.concurrency.conclib CertiGraph.lib.List_ext CertiGraph.msl_ext.log_normalize CertiGraph.msl_ext.ramification_lemmas CertiGraph.graph.graph_model CertiGraph.CertiGC.GCGraph CertiGraph.CertiGC.env_graph_gc CertiGraph.msl_ext.iter_sepcon Coq.Lists.List