Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  gtiso Structured version   Visualization version   GIF version

Theorem gtiso 29463
Description: Two ways to write a strictly decreasing function on the reals. (Contributed by Thierry Arnoux, 6-Apr-2017.)
Assertion
Ref Expression
gtiso ((𝐴 ⊆ ℝ*𝐵 ⊆ ℝ*) → (𝐹 Isom < , < (𝐴, 𝐵) ↔ 𝐹 Isom ≤ , ≤ (𝐴, 𝐵)))

Proof of Theorem gtiso
StepHypRef Expression
1 eqid 2621 . . . . 5 ((𝐴 × 𝐴) ∖ < ) = ((𝐴 × 𝐴) ∖ < )
2 eqid 2621 . . . . 5 ((𝐵 × 𝐵) ∖ < ) = ((𝐵 × 𝐵) ∖ < )
31, 2isocnv3 6579 . . . 4 (𝐹 Isom < , < (𝐴, 𝐵) ↔ 𝐹 Isom ((𝐴 × 𝐴) ∖ < ), ((𝐵 × 𝐵) ∖ < )(𝐴, 𝐵))
43a1i 11 . . 3 ((𝐴 ⊆ ℝ*𝐵 ⊆ ℝ*) → (𝐹 Isom < , < (𝐴, 𝐵) ↔ 𝐹 Isom ((𝐴 × 𝐴) ∖ < ), ((𝐵 × 𝐵) ∖ < )(𝐴, 𝐵)))
5 df-le 10077 . . . . . . . . . 10 ≤ = ((ℝ* × ℝ*) ∖ < )
65cnveqi 5295 . . . . . . . . 9 ≤ = ((ℝ* × ℝ*) ∖ < )
7 cnvdif 5537 . . . . . . . . 9 ((ℝ* × ℝ*) ∖ < ) = ((ℝ* × ℝ*) ∖ < )
8 cnvxp 5549 . . . . . . . . . 10 (ℝ* × ℝ*) = (ℝ* × ℝ*)
9 ltrel 10097 . . . . . . . . . . 11 Rel <
10 dfrel2 5581 . . . . . . . . . . 11 (Rel < ↔ < = < )
119, 10mpbi 220 . . . . . . . . . 10 < = <
128, 11difeq12i 3724 . . . . . . . . 9 ((ℝ* × ℝ*) ∖ < ) = ((ℝ* × ℝ*) ∖ < )
136, 7, 123eqtri 2647 . . . . . . . 8 ≤ = ((ℝ* × ℝ*) ∖ < )
1413ineq1i 3808 . . . . . . 7 ( ≤ ∩ (𝐴 × 𝐴)) = (((ℝ* × ℝ*) ∖ < ) ∩ (𝐴 × 𝐴))
15 indif1 3869 . . . . . . 7 (((ℝ* × ℝ*) ∖ < ) ∩ (𝐴 × 𝐴)) = (((ℝ* × ℝ*) ∩ (𝐴 × 𝐴)) ∖ < )
1614, 15eqtri 2643 . . . . . 6 ( ≤ ∩ (𝐴 × 𝐴)) = (((ℝ* × ℝ*) ∩ (𝐴 × 𝐴)) ∖ < )
17 xpss12 5223 . . . . . . . . 9 ((𝐴 ⊆ ℝ*𝐴 ⊆ ℝ*) → (𝐴 × 𝐴) ⊆ (ℝ* × ℝ*))
1817anidms 677 . . . . . . . 8 (𝐴 ⊆ ℝ* → (𝐴 × 𝐴) ⊆ (ℝ* × ℝ*))
19 sseqin2 3815 . . . . . . . 8 ((𝐴 × 𝐴) ⊆ (ℝ* × ℝ*) ↔ ((ℝ* × ℝ*) ∩ (𝐴 × 𝐴)) = (𝐴 × 𝐴))
2018, 19sylib 208 . . . . . . 7 (𝐴 ⊆ ℝ* → ((ℝ* × ℝ*) ∩ (𝐴 × 𝐴)) = (𝐴 × 𝐴))
2120difeq1d 3725 . . . . . 6 (𝐴 ⊆ ℝ* → (((ℝ* × ℝ*) ∩ (𝐴 × 𝐴)) ∖ < ) = ((𝐴 × 𝐴) ∖ < ))
2216, 21syl5req 2668 . . . . 5 (𝐴 ⊆ ℝ* → ((𝐴 × 𝐴) ∖ < ) = ( ≤ ∩ (𝐴 × 𝐴)))
2322adantr 481 . . . 4 ((𝐴 ⊆ ℝ*𝐵 ⊆ ℝ*) → ((𝐴 × 𝐴) ∖ < ) = ( ≤ ∩ (𝐴 × 𝐴)))
24 isoeq2 6565 . . . 4 (((𝐴 × 𝐴) ∖ < ) = ( ≤ ∩ (𝐴 × 𝐴)) → (𝐹 Isom ((𝐴 × 𝐴) ∖ < ), ((𝐵 × 𝐵) ∖ < )(𝐴, 𝐵) ↔ 𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ((𝐵 × 𝐵) ∖ < )(𝐴, 𝐵)))
2523, 24syl 17 . . 3 ((𝐴 ⊆ ℝ*𝐵 ⊆ ℝ*) → (𝐹 Isom ((𝐴 × 𝐴) ∖ < ), ((𝐵 × 𝐵) ∖ < )(𝐴, 𝐵) ↔ 𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ((𝐵 × 𝐵) ∖ < )(𝐴, 𝐵)))
265ineq1i 3808 . . . . . . 7 ( ≤ ∩ (𝐵 × 𝐵)) = (((ℝ* × ℝ*) ∖ < ) ∩ (𝐵 × 𝐵))
27 indif1 3869 . . . . . . 7 (((ℝ* × ℝ*) ∖ < ) ∩ (𝐵 × 𝐵)) = (((ℝ* × ℝ*) ∩ (𝐵 × 𝐵)) ∖ < )
2826, 27eqtri 2643 . . . . . 6 ( ≤ ∩ (𝐵 × 𝐵)) = (((ℝ* × ℝ*) ∩ (𝐵 × 𝐵)) ∖ < )
29 xpss12 5223 . . . . . . . . 9 ((𝐵 ⊆ ℝ*𝐵 ⊆ ℝ*) → (𝐵 × 𝐵) ⊆ (ℝ* × ℝ*))
3029anidms 677 . . . . . . . 8 (𝐵 ⊆ ℝ* → (𝐵 × 𝐵) ⊆ (ℝ* × ℝ*))
31 sseqin2 3815 . . . . . . . 8 ((𝐵 × 𝐵) ⊆ (ℝ* × ℝ*) ↔ ((ℝ* × ℝ*) ∩ (𝐵 × 𝐵)) = (𝐵 × 𝐵))
3230, 31sylib 208 . . . . . . 7 (𝐵 ⊆ ℝ* → ((ℝ* × ℝ*) ∩ (𝐵 × 𝐵)) = (𝐵 × 𝐵))
3332difeq1d 3725 . . . . . 6 (𝐵 ⊆ ℝ* → (((ℝ* × ℝ*) ∩ (𝐵 × 𝐵)) ∖ < ) = ((𝐵 × 𝐵) ∖ < ))
3428, 33syl5req 2668 . . . . 5 (𝐵 ⊆ ℝ* → ((𝐵 × 𝐵) ∖ < ) = ( ≤ ∩ (𝐵 × 𝐵)))
3534adantl 482 . . . 4 ((𝐴 ⊆ ℝ*𝐵 ⊆ ℝ*) → ((𝐵 × 𝐵) ∖ < ) = ( ≤ ∩ (𝐵 × 𝐵)))
36 isoeq3 6566 . . . 4 (((𝐵 × 𝐵) ∖ < ) = ( ≤ ∩ (𝐵 × 𝐵)) → (𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ((𝐵 × 𝐵) ∖ < )(𝐴, 𝐵) ↔ 𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ( ≤ ∩ (𝐵 × 𝐵))(𝐴, 𝐵)))
3735, 36syl 17 . . 3 ((𝐴 ⊆ ℝ*𝐵 ⊆ ℝ*) → (𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ((𝐵 × 𝐵) ∖ < )(𝐴, 𝐵) ↔ 𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ( ≤ ∩ (𝐵 × 𝐵))(𝐴, 𝐵)))
384, 25, 373bitrd 294 . 2 ((𝐴 ⊆ ℝ*𝐵 ⊆ ℝ*) → (𝐹 Isom < , < (𝐴, 𝐵) ↔ 𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ( ≤ ∩ (𝐵 × 𝐵))(𝐴, 𝐵)))
39 isocnv2 6578 . . 3 (𝐹 Isom ≤ , ≤ (𝐴, 𝐵) ↔ 𝐹 Isom ≤ , ≤ (𝐴, 𝐵))
40 isores2 6580 . . . 4 (𝐹 Isom ≤ , ≤ (𝐴, 𝐵) ↔ 𝐹 Isom ≤ , ( ≤ ∩ (𝐵 × 𝐵))(𝐴, 𝐵))
41 isores1 6581 . . . 4 (𝐹 Isom ≤ , ( ≤ ∩ (𝐵 × 𝐵))(𝐴, 𝐵) ↔ 𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ( ≤ ∩ (𝐵 × 𝐵))(𝐴, 𝐵))
4240, 41bitri 264 . . 3 (𝐹 Isom ≤ , ≤ (𝐴, 𝐵) ↔ 𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ( ≤ ∩ (𝐵 × 𝐵))(𝐴, 𝐵))
43 lerel 10099 . . . . 5 Rel ≤
44 dfrel2 5581 . . . . 5 (Rel ≤ ↔ ≤ = ≤ )
4543, 44mpbi 220 . . . 4 ≤ = ≤
46 isoeq2 6565 . . . 4 ( ≤ = ≤ → (𝐹 Isom ≤ , ≤ (𝐴, 𝐵) ↔ 𝐹 Isom ≤ , ≤ (𝐴, 𝐵)))
4745, 46ax-mp 5 . . 3 (𝐹 Isom ≤ , ≤ (𝐴, 𝐵) ↔ 𝐹 Isom ≤ , ≤ (𝐴, 𝐵))
4839, 42, 473bitr3ri 291 . 2 (𝐹 Isom ≤ , ≤ (𝐴, 𝐵) ↔ 𝐹 Isom ( ≤ ∩ (𝐴 × 𝐴)), ( ≤ ∩ (𝐵 × 𝐵))(𝐴, 𝐵))
4938, 48syl6bbr 278 1 ((𝐴 ⊆ ℝ*𝐵 ⊆ ℝ*) → (𝐹 Isom < , < (𝐴, 𝐵) ↔ 𝐹 Isom ≤ , ≤ (𝐴, 𝐵)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384   = wceq 1482  cdif 3569  cin 3571  wss 3572   × cxp 5110  ccnv 5111  Rel wrel 5117   Isom wiso 5887  *cxr 10070   < clt 10071  cle 10072
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1721  ax-4 1736  ax-5 1838  ax-6 1887  ax-7 1934  ax-8 1991  ax-9 1998  ax-10 2018  ax-11 2033  ax-12 2046  ax-13 2245  ax-ext 2601  ax-sep 4779  ax-nul 4787  ax-pow 4841  ax-pr 4904
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1485  df-ex 1704  df-nf 1709  df-sb 1880  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2752  df-ne 2794  df-ral 2916  df-rex 2917  df-rab 2920  df-v 3200  df-sbc 3434  df-dif 3575  df-un 3577  df-in 3579  df-ss 3586  df-nul 3914  df-if 4085  df-sn 4176  df-pr 4178  df-op 4182  df-uni 4435  df-br 4652  df-opab 4711  df-id 5022  df-xp 5118  df-rel 5119  df-cnv 5120  df-co 5121  df-dm 5122  df-rn 5123  df-res 5124  df-ima 5125  df-iota 5849  df-fun 5888  df-fn 5889  df-f 5890  df-f1 5891  df-fo 5892  df-f1o 5893  df-fv 5894  df-isom 5895  df-xr 10075  df-ltxr 10076  df-le 10077
This theorem is referenced by:  xrge0iifhmeo  29967
  Copyright terms: Public domain W3C validator