Definition d_i := minusw s'_i y_i.Definition rrr_i := minusw x_i_in_Z_ y_i.Definition r_i := ltw l'_i M_in_Z_ rrr_i (minusw rrr_i M_in_Z_).(* notation *)

Definition r''0 := ltw r'0 M_in_Z_ r'0 (minusw r'0 M_in_Z_).(* only needed after the loop *)
(* KE EP TOGETHER> *)

Definition r'0' := ltw d0 c_in_Z_ r0 (minusw r0 M_in_Z_).(* needed in loop *)

Definition r''0' := ltw r'0' M_in_Z_ r'0' (minusw r'0' M_in_Z_).Definition g' := r''0.

Lemma mod2p : forall a b c', (a * 2 ^ w + b) mod 2 ^ p = (c' * 2 ^ w + b) mod 2 ^ p.