proposition: Lemma sigma_table_simpl2_partial : forall (Data : Set) (t : Site -> Data) (f1 f2 : Site -> Data -> Z), (forall (s : Site) (d : Data), t s = d -> f1 s d = f2 s d) -> sigma_table Site LS Data f1 t = sigma_table Site LS Data f2 t.
proof: Proof. intros Data0 t0 f0 f3 H. unfold sigma_table in |- *. apply sigma_simpl. intro x. intro H0. generalize (H x (t0 x)). intro H1. apply H1. auto. Qed.
imports: List fifo table reduce