fact: Definition translate_form_closed {ff:falsity_flag} (f:Full.cform) : (Fragment.cform (ff:=falsity_on)) := match f with exist _ phi Hclosed => exist _ (translate_form phi) (ltac:(apply translate_form_bounded; apply Hclosed)) end.
imports: Vector Undecidability.FOL(Syntax.Facts) Undecidability.FOL.Semantics.Tarski(FullFacts FragmentFacts) Undecidability.FOL.Semantics.FiniteTarski(Full Fragment) Undecidability.Shared(Dec) Undecidability.Shared.Libs.PSL(Numbers) Coq(Arith Lia List) Undecidability.Shared.Libs.DLW.Wf(wf_finite) Undecidability.Synthetic(Definitions)