fact: Fixpoint lb_succ a l := match l with | nil => a::nil | x::l => let (r,z) := bin_add ⟘ a x in z::lb_succ r l end.
imports: Arith Nat Lia List Bool Setoid Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_list utils_nat bool_list gcd sums power_decomp)