fact: Fixpoint wcountones {sz} (w: word sz) : nat := match w with | WO => 0 | @WS x n w' => (if Bool.eqb x true then 1 else 0) + wcountones w' end%nat.
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