fact: Fixpoint ByteString_into_BitString' (chars : list char) {struct chars} : BitString := match chars return BitString with | [ ] => [ ] | char' :: chars' => app (wordToBitString char') (ByteString_into_BitString' chars') end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Bedrock.Word Coq.ZArith.ZArith Coq.NArith.NArith Coq.Arith.Arith Coq.Numbers.Natural.Peano.NPeano Coq.Logic.Eqdep_dec Fiat.Narcissus.Common.Specs