fact: Fixpoint L_list (n : nat) : list (list X) := match n with | 0 => [ [] ] | S n => L_list n ++ map (fun '(x, L) => x :: L) (list_prod (cumul L n) (L_list n)) end.
imports: Undecidability.Synthetic(DecidabilityFacts SemiDecidabilityFacts EnumerabilityFacts) Undecidability.Shared.Dec List