fact: Fixpoint chain_exists h (c:chain h) := match c with @chainZ => N 0 :: nil | @chainS _ n pl ph cc => N n :: P' pl :: P' ph :: Pr $pl $0 :: Pr $(findNum cc (height cc)) $pl :: Pr $ph $0 :: Pr $n $ph :: Pr $pl $ph :: chain_exists cc end.
imports: Undecidability.DiophantineConstraints(H10C) Undecidability.DiophantineConstraints.Util(H10UPC_facts) Undecidability.FOL(Syntax.Facts Deduction.FragmentNDFacts Semantics.Tarski.FragmentSoundness Semantics.Tarski.FragmentFacts Syntax.BinSig Semantics.Kripke.FragmentCore Semantics.Kripke.FragmentSoundness Semantics.Kripke.FragmentToTarski) Undecidability.Shared(Dec) Undecidability.Shared.Libs.PSL(Numbers) Undecidability.Shared(ListAutomation) Coq(Arith Lia List)