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 blk_in_state_functional : forall s, well_formed s -> forall k v v', blk_in_state k v s -> blk_in_state k v' s -> v = v'.