proposition: Lemma sigma2_table_simpl : forall (t : Site -> Site -> Data) (f1 f2 : Site -> Site -> Data -> Z), (forall (s1 s2 : Site) (d : Data), f1 s1 s2 d = f2 s1 s2 d) -> sigma2_table Site LS1 LS2 Data f1 t = sigma2_table Site LS1 LS2 Data f2 t.
proof: Proof. intros t0 f0 f3 H. unfold sigma2_table in |- *. apply sigma_table_simpl. apply funct_eq. intros e. apply sigma_table_simpl2. auto. Qed.
imports: List fifo table reduce