fact: Fixpoint bounded_comp {ff} (n:nat) (phi : form ff) : Prop := match phi with falsity => True | atom P v => VectorDef.fold_right (fun x y => bounded_t_comp n x /\ y) v True | bin b phi psi => bounded_comp n phi /\ bounded_comp n psi | quant q phi => bounded_comp (S n) phi 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