fact: CoInductive Trace : List Pointer -> Process Chnl A -> Set := | Stop : forall p : Process Chnl A, Trace (NIL Pointer) p | Evolve : forall (o : Pointer) (x : List Pointer) (c : Chnl) (p q : Process Chnl A) (w : Signal Chnl A c), UnrelProcTrans Chnl A c p w q -> Trace x q -> Trace (CONS _ o x) p | Refuse : forall (o : Pointer) (x : List Pointer) (p : Process Chnl A), ~ Wright p o -> Trace x p -> Trace (CONS _ o x) p.
imports: ABP.INTERPRETER.Processes