fact: Definition init (p: PProg) := state (fun n => (node_state (p n) (init_method InstVal init_inst_val) 0)) nil 0.
imports: Coq(FunctionalExtensionality Arith Lia) Coq(Arith.Peano_dec Arith.Compare_dec) Coq(Relations.Relation_Operators) Coq(List) Chapar(Predefs)