fact: Fixpoint to_falsity {ff:falsity_flag} (phi : form) : @form _ _ _ falsity_on := match phi with falsity => falsity | atom P v => atom P v | bin b f1 f2 => bin b (to_falsity f1) (to_falsity f2) | quant q f => quant q (to_falsity f) end.
imports: Undecidability.Synthetic(Definitions DecidabilityFacts EnumerabilityFacts ListEnumerabilityFacts ReducibilityFacts) Undecidability(Shared.ListAutomation Shared.Dec) Coq(Eqdep_dec) Coq.Vectors.Vector Undecidability.Shared.Libs.PSL.Vectors(Vectors) EqdepFacts