proposition: Lemma opair_inj x x' y y' : M_opair x y = M_opair x' y' -> x = x' /\ y = y'.
proof: Proof. Proof using M_FST VIEQ. intros H. split. - eapply opair_inj1; eassumption. - eapply opair_inj2; eassumption. Qed.
imports: Undecidability.FOL(Syntax.Facts Semantics.Tarski.FullFacts FST) Undecidability.FOL(Sets.FST) Undecidability.FOL.TRAKHTENBROT(hfs) Undecidability.Shared.Libs.DLW.Utils(finite) Undecidability(Shared.ListAutomation) Coq(Lia)