proposition: Lemma gen_vertex_ramif_stable: forall g gen index, gen_has_index g gen index -> generation_rep g gen |-- vertex_rep (nth_sh g gen) g (gen, index) * (vertex_rep (nth_sh g gen) g (gen, index) -* generation_rep g gen).
proof: Proof. intros. unfold generation_rep. remember (nth_sh g gen) as sh. apply iter_sepcon_ramif_stable_1. change (gen, index) with ((fun x : nat => (gen, x)) index). apply in_map. rewrite nat_inc_list_In_iff. assumption. 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