fact: Definition t_u := poly_abs (many_poly_arr [ Ut' 1 (poly_var 0); Ut' 1 (poly_var 0); Ut' 1 (poly_var 0); Ut' 1 (poly_var 0); poly_abs (many_poly_arr [ Ut' 2 (poly_var 0); St' 2 ((poly_var 1), (poly_var (1+ zt' 2)), (poly_var 0)); St' 2 ((poly_var 0), (poly_var (0+ zt' 2)), (poly_var 0)); Pt' 2 ((poly_var 0), (poly_var (0+ zt' 2)), (poly_var (0+ zt' 2))) ] (poly_var (2+tt))) ] (poly_var (1+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