proposition: Lemma transport_direct : H10UPC_SAT h10 -> valid F.
proof: Proof. intros [φ Hφ]. intros D I rho. intros cr1 cr2 zero. intros H_zero H_succ_left H_succ_right. eapply (@prove_constraints φ Hφ (Build_model H_zero H_succ_left H_succ_right)). Qed.
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.FOL.Reductions(H10UPC_to_FOL_minimal H10UPC_to_FOL_constructions) Undecidability.Shared(Dec) Undecidability.Shared.Libs.PSL(Numbers) Undecidability.Synthetic(Definitions) Coq(Arith Lia List)