Section update.
Variables A B : Type.
Hypothesis A_eq_dec : forall x y : A, {x = y} + {x <> y}.
Proof using.
unfold update.
intros.
break_if; congruence.
Qed.
Proof using.
unfold update.
intros. break_if; congruence.
Qed.
Proof using.
intros. subst.
unfold update.
break_if; congruence.
Qed.
Proof using.
intros.
rewrite update_eq; auto.
Qed.

Lemma update_nop_ext :
forall (sigma : A -> B) h,
update A_eq_dec sigma h (sigma h) = sigma.