fact: Fixpoint prune (s: poly_type) : SU.term := match s with | poly_var x => SU.atom (1 + x) | poly_arr s t => SU.arr (prune s) (prune t) | poly_abs _ => SU.atom 0 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