fact: Fixpoint dp_eval φ ν p := match p with | dp_nat n => n | dp_var v => φ v | dp_par i => ν i | dp_comp do_add p q => dp_eval φ ν p + dp_eval φ ν q | dp_comp do_mul p q => dp_eval φ ν p * dp_eval φ ν q end.
imports: List Arith Lia  Undecidability.Shared.Libs.DLW(utils_tac utils_list sums pos vec) Undecidability.H10.Dio(dio_logic dio_elem)