fact: Definition t_s := many_poly_abs 5 (many_poly_arr [ poly_arr (St' 5 ((poly_var 0), (poly_var 3), (poly_var 4))) (poly_var (5+tt)); Ut' 5 (poly_var 0); Ut' 5 (poly_var 1); Ut' 5 (poly_var 2); Ut' 5 (poly_var 3); Ut' 5 (poly_var 4); St' 5 ((poly_var 0), (poly_var 1), (poly_var 2)); St' 5 ((poly_var 1), (poly_var (1 + zt' 5)), (poly_var 3)); St' 5 ((poly_var 2), (poly_var (1 + zt' 5)), (poly_var 4)) ] (poly_var (5+tt))).
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