proposition: Lemma parameters_poly_arr_safe_poly_type {n ss x}: parameters_poly_arr (safe_poly_type n ss x) = if n is 0 then ss else [].
proof: Proof. case: n; last done. elim: ss; first done. by move=> /= ? ? ->. Qed.
imports: PeanoNat List Lia Undecidability.SystemF.SysF Undecidability.SystemF.Autosubst.syntax Undecidability.SystemF.Util(Facts poly_type_facts term_facts typing_facts iipc2_facts sn_facts) Undecidability.DiophantineConstraints.H10C ssreflect ssrbool ssrfun