fact: Definition state_map (s: N.ICExec.State): I.CExec.State := I.CExec.state (fun n => (I.CExec.node_state (InstSyntaxArg.prog_map (N.ICExec.prog_state (N.ICExec.node_states s n)) n (N.ICExec.clock_state (N.ICExec.node_states s n)) ) (N.ICExec.alg_state (N.ICExec.node_states s n)))) (map msg_map (N.ICExec.messages s)).
imports: Coq(FunctionalExtensionality Arith Lia) Coq(Arith.Peano_dec Arith.Compare_dec) Coq(Relations.Relation_Operators) Coq(List) Chapar(Predefs)