fact: Fixpoint add_list_ingr bs1 bs2 c {struct bs1} := match bs1, bs2 with | nil, _ => nil | _ , nil => nil | b1 :: bs1, b2 :: bs2 => let (r, c) := add_carry b1 b2 c in r :: (add_list_ingr bs1 bs2 c) end.
imports: List Bool NArith Psatz Int63 Nnat ZArith Misc ProofIrrelevance