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'.