fact: Definition init (p: PProg): State := fun n => node_state (p n) nil nil (fun n => 0) (fun k => entry init_val init_nid 0 nil).
imports: Coq(FunctionalExtensionality Arith Lia) Coq(Arith.Peano_dec Arith.Compare_dec) Coq(Relations.Relation_Operators) Coq(List) Chapar(Predefs)