fact: Fixpoint fromString s : BITS (length s * 8) := if s is String c s return BITS (length s * 8) then fromString s ## fromNat (n:=8) (nat_of_ascii c) else nilB.
imports: Coq(ZArith.ZArith Strings.String) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq fintype tuple zmodp)