(* needed to implement Stdlib.Numbers.NatInt.NZBitsSpec *)
Definition shiftl_spec_high a n m (_:0<=m) := shiftl_specif_high a n m.(* needed to implement Stdlib.Numbers.NatInt.NZBitsSpec *)
Definition shiftr_spec a n m (_:0<=m) := shiftr_specif a n m.

Lemma tail_addmul_spec r n m : tail_addmul r n m = r + n * m.