Remark sigma_change_pred :
sigma E L (change_x0 E Z eq_E_dec f x0 (f x0 - 1)%Z) = (sigma E L f - 1)%Z.

(* Specifications: *)
Lemma sigma__pred :
forall g : E -> Z,
g x0 = (f x0 - 1)%Z ->
(forall x : E, x <> x0 -> g x = f x) -> sigma E L g = (sigma E L f - 1)%Z.