Arguments alwI [A s p P Q].

(* Specifications: *)
Lemma alw_bnd A B (p1 : proc A) (p12 : proc B) pp2 s1
(P : state -> B -> Prop) :
p12 \In pcat p1 pp2 ->
always s1 p1 (fun s2 p2 =>
forall p v, p2 = Ret v -> p \In pp2 v ->
always s2 p (fun s q => forall v, q = Ret v -> P s v)) ->
always s1 p12 (fun s p => forall v, p = Ret v -> P s v).