fact: Definition match_n n {k} (l : list (recalg k)) : list (recalg n) := match Nat.eq_dec k n with left Heq => match Heq in (_ = i) return list (recalg i) with eq_refl => l end | _ => nil end.
imports: Arith Lia List Bool Eqdep_dec EqdepFacts Undecidability.Shared.Libs.DLW(utils_tac utils_nat utils_list finite pos vec) Undecidability.Synthetic(Definitions DecidabilityFacts EnumerabilityFacts ListEnumerabilityFacts ReducibilityFacts) Undecidability(Shared.ListAutomation Shared.Dec) Undecidability.MuRec.Util.recalg