fact: Definition erase_state (s : N.ICExec.State) (s' : N.CExec.State) := (forall n, let ns := N.ICExec.node_states s n in let ns' := N.CExec.node_states s' n in N.ICExec.prog_state ns = N.CExec.prog_state ns' /\ RState R (N.ICExec.alg_state ns) (N.CExec.alg_state ns')) /\ Rmessages (N.ICExec.messages s) (N.CExec.messages s').
imports: Coq(FunctionalExtensionality Arith Lia) Coq(Arith.Peano_dec Arith.Compare_dec) Coq(Relations.Relation_Operators) Coq(List) Chapar(Predefs)