proposition: Lemma graph_vertex_ramif_stable: forall g v, graph_has_v g v -> graph_rep g |-- vertex_rep (nth_sh g (vgeneration v)) g v * (vertex_rep (nth_sh g (vgeneration v)) g v -* graph_rep g).
proof: Proof. intros. destruct H. sep_apply (graph_gen_ramif_stable _ _ H). sep_apply (gen_vertex_ramif_stable _ _ _ H0). destruct v as [gen index]. simpl. cancel. apply wand_frame_ver. Qed.
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