Definition kv_stable {X} (m : Poram X) : Prop :=
forall s, poram_lift (state_equiv s) (state_equiv s) triv m.

Lemma bind_stable {X Y} (m : Poram X) (f : X -> Poram Y) :
kv_stable m ->
(forall x, kv_stable (f x)) ->
kv_stable (x <- m;; f x).