fact: CoFixpoint SEND : bool -> Stream A -> Process := fun (b : bool) (s : Stream A) => ACTALK Channel Act lnk1 (b, hd s) (SENDING b s) lnk2 (fun _ : bool => SEND b s) with SENDING : bool -> Stream A -> Process := fun (b : bool) (s : Stream A) => ACTALK Channel Act lnk1 (b, hd s) (SENDING b s) lnk2 (fun b1 : bool => if eqb b1 b then SEND (negb b) (tl s) else SEND b s).
imports: Bool Streams ABP.ABP.BISIMULATION.Processes