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 plift_conj {X} (P Q : X -> Prop) (m : dist X) : plift P m -> plift Q m -> plift (pand P Q) m.