Section TABLE2.
(* une table a deux dimensions est indexee par deux ensembles *)
Variable E F G : Set.
Hypothesis eq_E_dec : eq_dec E.
Hypothesis eq_F_dec : eq_dec F.
Variable t : E -> F -> G.
Variable x0 : E.
Variable y0 : F.
Variable z0 : G.
Definition change_x0y0 :=
change_x0 E (F -> G) eq_E_dec t x0 (change_x0 F G eq_F_dec (t x0) y0 z0).
Remark elsewhere2_x : forall x : E, x <> x0 -> change_x0y0 x = t x.
Remark elsewhere2_y :
forall y : F,
y <> y0 -> (fun x : E => change_x0y0 x y) = (fun x : E => t x y).

Lemma elsewhere2 :
forall (x : E) (y : F), x <> x0 \/ y <> y0 -> change_x0y0 x y = t x y.