(*******Injectivity of pad_inc*************************)

Lemma pad_injective_Case5 l1 l2
(H0 : (l1 ++ Byte.repr 128 :: nil) ++
list_repeat (Z.to_nat (- (BlockSize + Zlength l1 + 9) mod 64)) Byte.zero =
(l2 ++ Byte.repr 128 :: nil) ++
list_repeat (Z.to_nat (- (BlockSize + Zlength l2 + 9) mod 64)) Byte.zero)
(H : (BlockSize + Zlength l1) * 8 =
((BlockSize + Zlength l2) * 8) mod Int.modulus)
(Nonneg1 : 0 <= (BlockSize + Zlength l1) * 8)
(l : (BlockSize + Zlength l1) * 8 < Int.modulus):
length l1 = length l2.