fact: Fixpoint bounded_t_comp (n:nat) (t:term) : Prop := match t with var x => n > x | func f v => VectorDef.fold_right (fun x y => bounded_t_comp n x /\ y) v True end.
imports: Undecidability.Synthetic(Definitions DecidabilityFacts EnumerabilityFacts ListEnumerabilityFacts ReducibilityFacts) Undecidability(Shared.ListAutomation Shared.Dec) Coq(Eqdep_dec PeanoNat) Coq.Vectors.Vector Undecidability.Shared.Libs.PSL.Vectors(Vectors) EqdepFacts