fact: Fixpoint FV {ff : falsity_flag} (phi : form) : list nat := match phi with | falsity => nil | atom _ v => map FV_term (Vector.to_list v) | bin b phi psi => (FV phi) ++ (FV psi) | quant q phi => [pred p | p ∈ filter (fun n : nat => if n then false else true) (FV phi)] end.
imports: Undecidability.FOL(Semantics.FiniteTarski.Full) Undecidability.FOL(Syntax.Facts Semantics.Tarski.FullFacts Syntax.BinSig) Undecidability.SeparationLogic(MSL) Undecidability.Shared(Dec) Undecidability.Synthetic.DecidabilityFacts List