Intuitionistic Logic Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  ILE Home  >  Th. List  >  caucvgprprlemnkeqj GIF version

Theorem caucvgprprlemnkeqj 7517
 Description: Lemma for caucvgprpr 7539. Part of disjointness. (Contributed by Jim Kingdon, 12-Feb-2021.)
Hypotheses
Ref Expression
caucvgprpr.f (𝜑𝐹:NP)
caucvgprpr.cau (𝜑 → ∀𝑛N𝑘N (𝑛 <N 𝑘 → ((𝐹𝑛)<P ((𝐹𝑘) +P ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑛, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑛, 1o⟩] ~Q ) <Q 𝑢}⟩) ∧ (𝐹𝑘)<P ((𝐹𝑛) +P ⟨{𝑙𝑙 <Q (*Q‘[⟨𝑛, 1o⟩] ~Q )}, {𝑢 ∣ (*Q‘[⟨𝑛, 1o⟩] ~Q ) <Q 𝑢}⟩))))
caucvgprprlemnkj.k (𝜑𝐾N)
caucvgprprlemnkj.j (𝜑𝐽N)
caucvgprprlemnkj.s (𝜑𝑆Q)
Assertion
Ref Expression
caucvgprprlemnkeqj ((𝜑𝐾 = 𝐽) → ¬ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐾) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩))
Distinct variable groups:   𝑘,𝐹,𝑛   𝐽,𝑝,𝑞   𝐾,𝑝,𝑞   𝑆,𝑝,𝑞
Allowed substitution hints:   𝜑(𝑢,𝑘,𝑛,𝑞,𝑝,𝑙)   𝑆(𝑢,𝑘,𝑛,𝑙)   𝐹(𝑢,𝑞,𝑝,𝑙)   𝐽(𝑢,𝑘,𝑛,𝑙)   𝐾(𝑢,𝑘,𝑛,𝑙)

Proof of Theorem caucvgprprlemnkeqj
StepHypRef Expression
1 ltsopr 7423 . . . 4 <P Or P
2 ltrelpr 7332 . . . 4 <P ⊆ (P × P)
31, 2son2lpi 4938 . . 3 ¬ ((𝐹𝐽)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ ∧ ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩<P (𝐹𝐽))
4 caucvgprpr.f . . . . . . . . 9 (𝜑𝐹:NP)
5 caucvgprprlemnkj.j . . . . . . . . 9 (𝜑𝐽N)
64, 5ffvelrnd 5559 . . . . . . . 8 (𝜑 → (𝐹𝐽) ∈ P)
76ad2antrr 479 . . . . . . 7 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → (𝐹𝐽) ∈ P)
85adantr 274 . . . . . . . . . . 11 ((𝜑𝐾 = 𝐽) → 𝐽N)
9 nnnq 7249 . . . . . . . . . . 11 (𝐽N → [⟨𝐽, 1o⟩] ~QQ)
108, 9syl 14 . . . . . . . . . 10 ((𝜑𝐾 = 𝐽) → [⟨𝐽, 1o⟩] ~QQ)
11 recclnq 7219 . . . . . . . . . 10 ([⟨𝐽, 1o⟩] ~QQ → (*Q‘[⟨𝐽, 1o⟩] ~Q ) ∈ Q)
1210, 11syl 14 . . . . . . . . 9 ((𝜑𝐾 = 𝐽) → (*Q‘[⟨𝐽, 1o⟩] ~Q ) ∈ Q)
13 nqprlu 7374 . . . . . . . . 9 ((*Q‘[⟨𝐽, 1o⟩] ~Q ) ∈ Q → ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩ ∈ P)
1412, 13syl 14 . . . . . . . 8 ((𝜑𝐾 = 𝐽) → ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩ ∈ P)
1514adantr 274 . . . . . . 7 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩ ∈ P)
16 ltaddpr 7424 . . . . . . 7 (((𝐹𝐽) ∈ P ∧ ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩ ∈ P) → (𝐹𝐽)<P ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩))
177, 15, 16syl2anc 408 . . . . . 6 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → (𝐹𝐽)<P ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩))
18 simprr 521 . . . . . 6 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)
191, 2sotri 4937 . . . . . 6 (((𝐹𝐽)<P ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩) → (𝐹𝐽)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)
2017, 18, 19syl2anc 408 . . . . 5 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → (𝐹𝐽)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)
21 caucvgprprlemnkj.s . . . . . . . . . 10 (𝜑𝑆Q)
2221adantr 274 . . . . . . . . 9 ((𝜑𝐾 = 𝐽) → 𝑆Q)
23 nqprlu 7374 . . . . . . . . 9 (𝑆Q → ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ ∈ P)
2422, 23syl 14 . . . . . . . 8 ((𝜑𝐾 = 𝐽) → ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ ∈ P)
25 ltaddpr 7424 . . . . . . . 8 ((⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ ∈ P ∧ ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩ ∈ P) → ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩<P (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩))
2624, 14, 25syl2anc 408 . . . . . . 7 ((𝜑𝐾 = 𝐽) → ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩<P (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩))
2726adantr 274 . . . . . 6 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩<P (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩))
28 simprl 520 . . . . . . 7 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → ⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽))
29 addnqpr 7388 . . . . . . . . . 10 ((𝑆Q ∧ (*Q‘[⟨𝐽, 1o⟩] ~Q ) ∈ Q) → ⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩ = (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩))
3022, 12, 29syl2anc 408 . . . . . . . . 9 ((𝜑𝐾 = 𝐽) → ⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩ = (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩))
3130breq1d 3942 . . . . . . . 8 ((𝜑𝐾 = 𝐽) → (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ↔ (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P (𝐹𝐽)))
3231adantr 274 . . . . . . 7 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ↔ (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P (𝐹𝐽)))
3328, 32mpbid 146 . . . . . 6 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P (𝐹𝐽))
341, 2sotri 4937 . . . . . 6 ((⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩<P (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩) ∧ (⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P (𝐹𝐽)) → ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩<P (𝐹𝐽))
3527, 33, 34syl2anc 408 . . . . 5 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩<P (𝐹𝐽))
3620, 35jca 304 . . . 4 (((𝜑𝐾 = 𝐽) ∧ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)) → ((𝐹𝐽)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ ∧ ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩<P (𝐹𝐽)))
3736ex 114 . . 3 ((𝜑𝐾 = 𝐽) → ((⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩) → ((𝐹𝐽)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩ ∧ ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩<P (𝐹𝐽))))
383, 37mtoi 653 . 2 ((𝜑𝐾 = 𝐽) → ¬ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩))
39 opeq1 3708 . . . . . . . . . . 11 (𝐾 = 𝐽 → ⟨𝐾, 1o⟩ = ⟨𝐽, 1o⟩)
4039eceq1d 6468 . . . . . . . . . 10 (𝐾 = 𝐽 → [⟨𝐾, 1o⟩] ~Q = [⟨𝐽, 1o⟩] ~Q )
4140fveq2d 5428 . . . . . . . . 9 (𝐾 = 𝐽 → (*Q‘[⟨𝐾, 1o⟩] ~Q ) = (*Q‘[⟨𝐽, 1o⟩] ~Q ))
4241oveq2d 5793 . . . . . . . 8 (𝐾 = 𝐽 → (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) = (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )))
4342breq2d 3944 . . . . . . 7 (𝐾 = 𝐽 → (𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) ↔ 𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))))
4443abbidv 2257 . . . . . 6 (𝐾 = 𝐽 → {𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q ))} = {𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))})
4542breq1d 3942 . . . . . . 7 (𝐾 = 𝐽 → ((𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑞 ↔ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞))
4645abbidv 2257 . . . . . 6 (𝐾 = 𝐽 → {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑞} = {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞})
4744, 46opeq12d 3716 . . . . 5 (𝐾 = 𝐽 → ⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑞}⟩ = ⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩)
48 fveq2 5424 . . . . 5 (𝐾 = 𝐽 → (𝐹𝐾) = (𝐹𝐽))
4947, 48breq12d 3945 . . . 4 (𝐾 = 𝐽 → (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐾) ↔ ⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽)))
5049anbi1d 460 . . 3 (𝐾 = 𝐽 → ((⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐾) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩) ↔ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)))
5150adantl 275 . 2 ((𝜑𝐾 = 𝐽) → ((⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐾) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩) ↔ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐽, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐽) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩)))
5238, 51mtbird 662 1 ((𝜑𝐾 = 𝐽) → ¬ (⟨{𝑝𝑝 <Q (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q ))}, {𝑞 ∣ (𝑆 +Q (*Q‘[⟨𝐾, 1o⟩] ~Q )) <Q 𝑞}⟩<P (𝐹𝐾) ∧ ((𝐹𝐽) +P ⟨{𝑝𝑝 <Q (*Q‘[⟨𝐽, 1o⟩] ~Q )}, {𝑞 ∣ (*Q‘[⟨𝐽, 1o⟩] ~Q ) <Q 𝑞}⟩)<P ⟨{𝑝𝑝 <Q 𝑆}, {𝑞𝑆 <Q 𝑞}⟩))
 Colors of variables: wff set class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 103   ↔ wb 104   = wceq 1331   ∈ wcel 1480  {cab 2125  ∀wral 2416  ⟨cop 3530   class class class wbr 3932  ⟶wf 5122  ‘cfv 5126  (class class class)co 5777  1oc1o 6309  [cec 6430  Ncnpi 7099
 Copyright terms: Public domain W3C validator