Parameter P : Blist -> Prop.Parameter HP: forall m, P m -> NPeano.Nat.divide 8 (length m).

(* Specifications: *)
Lemma splitAndPad_1to1: forall b1 b2 (B:EQ256.splitAndPad_v b1 = EQ256.splitAndPad_v b2) (L1: NPeano.Nat.divide 8 (length b1)) (L2: NPeano.Nat.divide 8 (length b2)), b1 = b2.