fact: Fixpoint SU_term_to_poly_type (s: SU.term) := match s with | SU.atom n => poly_var n | SU.arr s t => poly_arr (SU_term_to_poly_type s) (SU_term_to_poly_type t) end.
imports: List Lia Undecidability.SystemF.SysF Undecidability.SystemF.Autosubst.syntax Undecidability.SystemF.Util(Facts poly_type_facts pure_term_facts term_facts typing_facts pure_typing_facts pure_typable_prenex) ssreflect ssrbool ssrfun