fact: Parameter cause_rec: forall p h s1 l s2 l', let n := label_node l in let c := label_clock l in let n' := label_node l' in let lp := ICExec.msg_label (ICExec.label_message l') in (ICExec.StepStar.step_star (ICExec.init p) h s1 /\ ICExec.step s1 l' s2 /\ ICExec.label_is_put l /\ ICExec.label_is_update l' /\ cause h l lp) -> c <= algrec (ICExec.alg_state (ICExec.node_states s1 n')) n.
imports: Coq(FunctionalExtensionality Arith Lia) Coq(Arith.Peano_dec Arith.Compare_dec) Coq(Relations.Relation_Operators) Coq(List) Chapar(Predefs)