Definition triv2 {X Y} : X -> Y -> Prop :=
  fun _ _ => True.Definition pforall {I X} (P : I -> X -> Prop) : X -> Prop :=
  fun x => forall i, P i x.

Lemma poram_lift2_ret_l {X} (x : X) (m : Poram X) Pre Post P : (forall s, poram_lift (Pre s) (Post s) (P x) m) -> poram_lift2 Pre Post P (mreturn x) m.