use predicate NormalBitsequence in PackageFoo
enrich contract of normal_case (not yet provable)
format