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 impl_dist {X} (m : dist X)
(P : Prop) (Q : X -> Prop) :
(P -> plift Q m) ->
plift (fun x => P -> Q x) m.