fact: Definition add_carry b1 b2 c := match b1, b2, c with | true, true, true => (true, true) | true, true, false | true, false, true | false, true, true => (false, true) | false, false, true | false, true, false | true, false, false => (true, false) | false, false, false => (false, false) end.
imports: List Bool NArith Psatz Int63 Nnat ZArith Misc ProofIrrelevance