fact: Fixpoint make_pairs {A} (ls: list A) zero := match ls with | nil => nil | x :: nil => [(x, zero)] | x :: y :: t => (x, y) :: (make_pairs t zero) end.
imports: Fiat.Common.Coq__8_4__8_5__Compat List Bedrock.Word Coq.ZArith.ZArith Coq.micromega.Psatz NArith NArithRing ZArith ZArithRing Program Coq.micromega.Psatz AlignedByteString