Metamath Proof Explorer


Theorem genpnnp

Description: The result of an operation on positive reals is different from the set of positive fractions. (Contributed by NM, 29-Feb-1996) (Revised by Mario Carneiro, 12-Jun-2013) (New usage is discouraged.)

Ref Expression
Hypotheses genp.1 𝐹 = ( 𝑤P , 𝑣P ↦ { 𝑥 ∣ ∃ 𝑦𝑤𝑧𝑣 𝑥 = ( 𝑦 𝐺 𝑧 ) } )
genp.2 ( ( 𝑦Q𝑧Q ) → ( 𝑦 𝐺 𝑧 ) ∈ Q )
genpnnp.3 ( 𝑧Q → ( 𝑥 <Q 𝑦 ↔ ( 𝑧 𝐺 𝑥 ) <Q ( 𝑧 𝐺 𝑦 ) ) )
genpnnp.4 ( 𝑥 𝐺 𝑦 ) = ( 𝑦 𝐺 𝑥 )
Assertion genpnnp ( ( 𝐴P𝐵P ) → ¬ ( 𝐴 𝐹 𝐵 ) = Q )

Proof

Step Hyp Ref Expression
1 genp.1 𝐹 = ( 𝑤P , 𝑣P ↦ { 𝑥 ∣ ∃ 𝑦𝑤𝑧𝑣 𝑥 = ( 𝑦 𝐺 𝑧 ) } )
2 genp.2 ( ( 𝑦Q𝑧Q ) → ( 𝑦 𝐺 𝑧 ) ∈ Q )
3 genpnnp.3 ( 𝑧Q → ( 𝑥 <Q 𝑦 ↔ ( 𝑧 𝐺 𝑥 ) <Q ( 𝑧 𝐺 𝑦 ) ) )
4 genpnnp.4 ( 𝑥 𝐺 𝑦 ) = ( 𝑦 𝐺 𝑥 )
5 prpssnq ( 𝐴P𝐴Q )
6 pssnel ( 𝐴Q → ∃ 𝑤 ( 𝑤Q ∧ ¬ 𝑤𝐴 ) )
7 5 6 syl ( 𝐴P → ∃ 𝑤 ( 𝑤Q ∧ ¬ 𝑤𝐴 ) )
8 prpssnq ( 𝐵P𝐵Q )
9 pssnel ( 𝐵Q → ∃ 𝑣 ( 𝑣Q ∧ ¬ 𝑣𝐵 ) )
10 8 9 syl ( 𝐵P → ∃ 𝑣 ( 𝑣Q ∧ ¬ 𝑣𝐵 ) )
11 7 10 anim12i ( ( 𝐴P𝐵P ) → ( ∃ 𝑤 ( 𝑤Q ∧ ¬ 𝑤𝐴 ) ∧ ∃ 𝑣 ( 𝑣Q ∧ ¬ 𝑣𝐵 ) ) )
12 exdistrv ( ∃ 𝑤𝑣 ( ( 𝑤Q ∧ ¬ 𝑤𝐴 ) ∧ ( 𝑣Q ∧ ¬ 𝑣𝐵 ) ) ↔ ( ∃ 𝑤 ( 𝑤Q ∧ ¬ 𝑤𝐴 ) ∧ ∃ 𝑣 ( 𝑣Q ∧ ¬ 𝑣𝐵 ) ) )
13 11 12 sylibr ( ( 𝐴P𝐵P ) → ∃ 𝑤𝑣 ( ( 𝑤Q ∧ ¬ 𝑤𝐴 ) ∧ ( 𝑣Q ∧ ¬ 𝑣𝐵 ) ) )
14 prub ( ( ( 𝐴P𝑓𝐴 ) ∧ 𝑤Q ) → ( ¬ 𝑤𝐴𝑓 <Q 𝑤 ) )
15 prub ( ( ( 𝐵P𝑔𝐵 ) ∧ 𝑣Q ) → ( ¬ 𝑣𝐵𝑔 <Q 𝑣 ) )
16 14 15 im2anan9 ( ( ( ( 𝐴P𝑓𝐴 ) ∧ 𝑤Q ) ∧ ( ( 𝐵P𝑔𝐵 ) ∧ 𝑣Q ) ) → ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) → ( 𝑓 <Q 𝑤𝑔 <Q 𝑣 ) ) )
17 elprnq ( ( 𝐴P𝑓𝐴 ) → 𝑓Q )
18 17 anim1i ( ( ( 𝐴P𝑓𝐴 ) ∧ 𝑤Q ) → ( 𝑓Q𝑤Q ) )
19 elprnq ( ( 𝐵P𝑔𝐵 ) → 𝑔Q )
20 19 anim1i ( ( ( 𝐵P𝑔𝐵 ) ∧ 𝑣Q ) → ( 𝑔Q𝑣Q ) )
21 ltsonq <Q Or Q
22 so2nr ( ( <Q Or Q ∧ ( 𝑓Q𝑤Q ) ) → ¬ ( 𝑓 <Q 𝑤𝑤 <Q 𝑓 ) )
23 21 22 mpan ( ( 𝑓Q𝑤Q ) → ¬ ( 𝑓 <Q 𝑤𝑤 <Q 𝑓 ) )
24 23 ad2antrr ( ( ( ( 𝑓Q𝑤Q ) ∧ ( 𝑔Q𝑣Q ) ) ∧ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) → ¬ ( 𝑓 <Q 𝑤𝑤 <Q 𝑓 ) )
25 simpr ( ( 𝑔Q𝑣Q ) → 𝑣Q )
26 simpl ( ( 𝑓Q𝑤Q ) → 𝑓Q )
27 25 26 anim12i ( ( ( 𝑔Q𝑣Q ) ∧ ( 𝑓Q𝑤Q ) ) → ( 𝑣Q𝑓Q ) )
28 27 ancoms ( ( ( 𝑓Q𝑤Q ) ∧ ( 𝑔Q𝑣Q ) ) → ( 𝑣Q𝑓Q ) )
29 vex 𝑤 ∈ V
30 vex 𝑣 ∈ V
31 vex 𝑓 ∈ V
32 vex 𝑔 ∈ V
33 29 30 3 31 4 32 caovord3 ( ( ( 𝑣Q𝑓Q ) ∧ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) → ( 𝑤 <Q 𝑓𝑔 <Q 𝑣 ) )
34 33 anbi2d ( ( ( 𝑣Q𝑓Q ) ∧ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) → ( ( 𝑓 <Q 𝑤𝑤 <Q 𝑓 ) ↔ ( 𝑓 <Q 𝑤𝑔 <Q 𝑣 ) ) )
35 28 34 sylan ( ( ( ( 𝑓Q𝑤Q ) ∧ ( 𝑔Q𝑣Q ) ) ∧ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) → ( ( 𝑓 <Q 𝑤𝑤 <Q 𝑓 ) ↔ ( 𝑓 <Q 𝑤𝑔 <Q 𝑣 ) ) )
36 24 35 mtbid ( ( ( ( 𝑓Q𝑤Q ) ∧ ( 𝑔Q𝑣Q ) ) ∧ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) → ¬ ( 𝑓 <Q 𝑤𝑔 <Q 𝑣 ) )
37 36 ex ( ( ( 𝑓Q𝑤Q ) ∧ ( 𝑔Q𝑣Q ) ) → ( ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) → ¬ ( 𝑓 <Q 𝑤𝑔 <Q 𝑣 ) ) )
38 37 con2d ( ( ( 𝑓Q𝑤Q ) ∧ ( 𝑔Q𝑣Q ) ) → ( ( 𝑓 <Q 𝑤𝑔 <Q 𝑣 ) → ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) )
39 18 20 38 syl2an ( ( ( ( 𝐴P𝑓𝐴 ) ∧ 𝑤Q ) ∧ ( ( 𝐵P𝑔𝐵 ) ∧ 𝑣Q ) ) → ( ( 𝑓 <Q 𝑤𝑔 <Q 𝑣 ) → ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) )
40 16 39 syld ( ( ( ( 𝐴P𝑓𝐴 ) ∧ 𝑤Q ) ∧ ( ( 𝐵P𝑔𝐵 ) ∧ 𝑣Q ) ) → ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) → ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) )
41 40 an4s ( ( ( ( 𝐴P𝑓𝐴 ) ∧ ( 𝐵P𝑔𝐵 ) ) ∧ ( 𝑤Q𝑣Q ) ) → ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) → ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) )
42 41 ex ( ( ( 𝐴P𝑓𝐴 ) ∧ ( 𝐵P𝑔𝐵 ) ) → ( ( 𝑤Q𝑣Q ) → ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) → ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) ) )
43 42 an4s ( ( ( 𝐴P𝐵P ) ∧ ( 𝑓𝐴𝑔𝐵 ) ) → ( ( 𝑤Q𝑣Q ) → ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) → ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) ) )
44 43 ex ( ( 𝐴P𝐵P ) → ( ( 𝑓𝐴𝑔𝐵 ) → ( ( 𝑤Q𝑣Q ) → ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) → ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) ) ) )
45 44 com24 ( ( 𝐴P𝐵P ) → ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) → ( ( 𝑤Q𝑣Q ) → ( ( 𝑓𝐴𝑔𝐵 ) → ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) ) ) )
46 45 imp32 ( ( ( 𝐴P𝐵P ) ∧ ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) ∧ ( 𝑤Q𝑣Q ) ) ) → ( ( 𝑓𝐴𝑔𝐵 ) → ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) )
47 46 ralrimivv ( ( ( 𝐴P𝐵P ) ∧ ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) ∧ ( 𝑤Q𝑣Q ) ) ) → ∀ 𝑓𝐴𝑔𝐵 ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) )
48 ralnex2 ( ∀ 𝑓𝐴𝑔𝐵 ¬ ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ↔ ¬ ∃ 𝑓𝐴𝑔𝐵 ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) )
49 47 48 sylib ( ( ( 𝐴P𝐵P ) ∧ ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) ∧ ( 𝑤Q𝑣Q ) ) ) → ¬ ∃ 𝑓𝐴𝑔𝐵 ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) )
50 1 2 genpelv ( ( 𝐴P𝐵P ) → ( ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) ↔ ∃ 𝑓𝐴𝑔𝐵 ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) )
51 50 adantr ( ( ( 𝐴P𝐵P ) ∧ ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) ∧ ( 𝑤Q𝑣Q ) ) ) → ( ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) ↔ ∃ 𝑓𝐴𝑔𝐵 ( 𝑤 𝐺 𝑣 ) = ( 𝑓 𝐺 𝑔 ) ) )
52 49 51 mtbird ( ( ( 𝐴P𝐵P ) ∧ ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) ∧ ( 𝑤Q𝑣Q ) ) ) → ¬ ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) )
53 52 expcom ( ( ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) ∧ ( 𝑤Q𝑣Q ) ) → ( ( 𝐴P𝐵P ) → ¬ ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) ) )
54 53 ancoms ( ( ( 𝑤Q𝑣Q ) ∧ ( ¬ 𝑤𝐴 ∧ ¬ 𝑣𝐵 ) ) → ( ( 𝐴P𝐵P ) → ¬ ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) ) )
55 54 an4s ( ( ( 𝑤Q ∧ ¬ 𝑤𝐴 ) ∧ ( 𝑣Q ∧ ¬ 𝑣𝐵 ) ) → ( ( 𝐴P𝐵P ) → ¬ ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) ) )
56 2 caovcl ( ( 𝑤Q𝑣Q ) → ( 𝑤 𝐺 𝑣 ) ∈ Q )
57 eleq2 ( ( 𝐴 𝐹 𝐵 ) = Q → ( ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) ↔ ( 𝑤 𝐺 𝑣 ) ∈ Q ) )
58 57 biimprcd ( ( 𝑤 𝐺 𝑣 ) ∈ Q → ( ( 𝐴 𝐹 𝐵 ) = Q → ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) ) )
59 58 con3d ( ( 𝑤 𝐺 𝑣 ) ∈ Q → ( ¬ ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) → ¬ ( 𝐴 𝐹 𝐵 ) = Q ) )
60 56 59 syl ( ( 𝑤Q𝑣Q ) → ( ¬ ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) → ¬ ( 𝐴 𝐹 𝐵 ) = Q ) )
61 60 ad2ant2r ( ( ( 𝑤Q ∧ ¬ 𝑤𝐴 ) ∧ ( 𝑣Q ∧ ¬ 𝑣𝐵 ) ) → ( ¬ ( 𝑤 𝐺 𝑣 ) ∈ ( 𝐴 𝐹 𝐵 ) → ¬ ( 𝐴 𝐹 𝐵 ) = Q ) )
62 55 61 syldc ( ( 𝐴P𝐵P ) → ( ( ( 𝑤Q ∧ ¬ 𝑤𝐴 ) ∧ ( 𝑣Q ∧ ¬ 𝑣𝐵 ) ) → ¬ ( 𝐴 𝐹 𝐵 ) = Q ) )
63 62 exlimdvv ( ( 𝐴P𝐵P ) → ( ∃ 𝑤𝑣 ( ( 𝑤Q ∧ ¬ 𝑤𝐴 ) ∧ ( 𝑣Q ∧ ¬ 𝑣𝐵 ) ) → ¬ ( 𝐴 𝐹 𝐵 ) = Q ) )
64 13 63 mpd ( ( 𝐴P𝐵P ) → ¬ ( 𝐴 𝐹 𝐵 ) = Q )