fact: Fixpoint EnumerateWords sz : list (word sz) := match sz with | O => [WO] | S sz' => let wds := EnumerateWords sz' in map (@WS true sz') wds ++ map (@WS false sz') wds 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 Permutation