fact: Fixpoint list_bool_nat l := match l with | nil => 1 | Zero::l => 0 + 2*list_bool_nat l | One::l => 1 + 2*list_bool_nat l end.
imports: List Arith Max Lia Wellfounded Bool Undecidability.Shared.Libs.DLW(Utils.utils)