fact: Fixpoint mult_list_carry2 (a b :list bool) n {struct a}: list bool := match a with | nil => mk_list_false n | a' :: xs => if a' then add_list b (mult_list_carry2 xs (false :: (removelast b)) n) else mult_list_carry2 xs (false :: (removelast b)) n end.
imports: List Bool NArith Psatz Int63 Nnat ZArith Misc ProofIrrelevance