fact: Fixpoint allfv_term (p: nat -> Prop) (P: term) := match P with | var x => p x | app P Q => allfv_term p P /\ allfv_term p Q | abs _ P => allfv_term (scons True p) P | ty_app P _ => allfv_term p P | ty_abs P => allfv_term p P end.
imports: List Lia Undecidability.SystemF.SysF Undecidability.SystemF.Autosubst.syntax Undecidability.SystemF.Autosubst.unscoped Undecidability.SystemF.Util(Facts poly_type_facts pure_term_facts) ssreflect ssrbool ssrfun