fact: Definition cause_step (h: list Label)(l l': Label) := (prec h l l' /\ label_node l = label_node l' /\ ((label_is_get l /\ label_is_put l') \/ (label_is_put l /\ label_is_put l'))) \/ (prec h l l' /\ label_is_put l /\ label_is_get l' /\ (label_node l = label_orig_node l') /\ (label_clock l = label_clock l')).
imports: Coq(FunctionalExtensionality Arith Lia) Coq(Arith.Peano_dec Arith.Compare_dec) Coq(Relations.Relation_Operators) Coq(List) Chapar(Predefs)