Theorem iccdil 10064

Description: Membership in a dilated interval. (Contributed by Jeff Madsen, 2-Sep-2009.)

Hypotheses

Ref	Expression
iccdil.1	|- ( A x. R ) = C
iccdil.2	|- ( B x. R ) = D

Assertion

Ref	Expression
iccdil	|- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( X e. ( A [,] B ) <-> ( X x. R ) e. ( C [,] D ) ) )

Proof of Theorem iccdil

Step	Hyp	Ref	Expression
1		simpl 109	. . . . 5 |- ( ( X e. RR /\ R e. RR+ ) -> X e. RR )
2		rpre 9726	. . . . . 6 |- ( R e. RR+ -> R e. RR )
3		remulcl 8000	. . . . . 6 |- ( ( X e. RR /\ R e. RR ) -> ( X x. R ) e. RR )
4	2, 3	sylan2 286	. . . . 5 |- ( ( X e. RR /\ R e. RR+ ) -> ( X x. R ) e. RR )
5	1, 4	2thd 175	. . . 4 |- ( ( X e. RR /\ R e. RR+ ) -> ( X e. RR <-> ( X x. R ) e. RR ) )
6	5	adantl 277	. . 3 |- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( X e. RR <-> ( X x. R ) e. RR ) )
7		elrp 9721	. . . . . . 7 |- ( R e. RR+ <-> ( R e. RR /\ 0 < R ) )
8		lemul1 8612	. . . . . . 7 |- ( ( A e. RR /\ X e. RR /\ ( R e. RR /\ 0 < R ) ) -> ( A <_ X <-> ( A x. R ) <_ ( X x. R ) ) )
9	7, 8	syl3an3b 1287	. . . . . 6 |- ( ( A e. RR /\ X e. RR /\ R e. RR+ ) -> ( A <_ X <-> ( A x. R ) <_ ( X x. R ) ) )
10	9	3expb 1206	. . . . 5 |- ( ( A e. RR /\ ( X e. RR /\ R e. RR+ ) ) -> ( A <_ X <-> ( A x. R ) <_ ( X x. R ) ) )
11	10	adantlr 477	. . . 4 |- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( A <_ X <-> ( A x. R ) <_ ( X x. R ) ) )
12		iccdil.1	. . . . 5 |- ( A x. R ) = C
13	12	breq1i 4036	. . . 4 |- ( ( A x. R ) <_ ( X x. R ) <-> C <_ ( X x. R ) )
14	11, 13	bitrdi 196	. . 3 |- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( A <_ X <-> C <_ ( X x. R ) ) )
15		lemul1 8612	. . . . . . . 8 |- ( ( X e. RR /\ B e. RR /\ ( R e. RR /\ 0 < R ) ) -> ( X <_ B <-> ( X x. R ) <_ ( B x. R ) ) )
16	7, 15	syl3an3b 1287	. . . . . . 7 |- ( ( X e. RR /\ B e. RR /\ R e. RR+ ) -> ( X <_ B <-> ( X x. R ) <_ ( B x. R ) ) )
17	16	3expb 1206	. . . . . 6 |- ( ( X e. RR /\ ( B e. RR /\ R e. RR+ ) ) -> ( X <_ B <-> ( X x. R ) <_ ( B x. R ) ) )
18	17	an12s 565	. . . . 5 |- ( ( B e. RR /\ ( X e. RR /\ R e. RR+ ) ) -> ( X <_ B <-> ( X x. R ) <_ ( B x. R ) ) )
19	18	adantll 476	. . . 4 |- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( X <_ B <-> ( X x. R ) <_ ( B x. R ) ) )
20		iccdil.2	. . . . 5 |- ( B x. R ) = D
21	20	breq2i 4037	. . . 4 |- ( ( X x. R ) <_ ( B x. R ) <-> ( X x. R ) <_ D )
22	19, 21	bitrdi 196	. . 3 |- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( X <_ B <-> ( X x. R ) <_ D ) )
23	6, 14, 22	3anbi123d 1323	. 2 |- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( ( X e. RR /\ A <_ X /\ X <_ B ) <-> ( ( X x. R ) e. RR /\ C <_ ( X x. R ) /\ ( X x. R ) <_ D ) ) )
24		elicc2 10004	. . 3 |- ( ( A e. RR /\ B e. RR ) -> ( X e. ( A [,] B ) <-> ( X e. RR /\ A <_ X /\ X <_ B ) ) )
25	24	adantr 276	. 2 |- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( X e. ( A [,] B ) <-> ( X e. RR /\ A <_ X /\ X <_ B ) ) )
26		remulcl 8000	. . . . . . 7 |- ( ( A e. RR /\ R e. RR ) -> ( A x. R ) e. RR )
27	12, 26	eqeltrrid 2281	. . . . . 6 |- ( ( A e. RR /\ R e. RR ) -> C e. RR )
28		remulcl 8000	. . . . . . 7 |- ( ( B e. RR /\ R e. RR ) -> ( B x. R ) e. RR )
29	20, 28	eqeltrrid 2281	. . . . . 6 |- ( ( B e. RR /\ R e. RR ) -> D e. RR )
30		elicc2 10004	. . . . . 6 |- ( ( C e. RR /\ D e. RR ) -> ( ( X x. R ) e. ( C [,] D ) <-> ( ( X x. R ) e. RR /\ C <_ ( X x. R ) /\ ( X x. R ) <_ D ) ) )
31	27, 29, 30	syl2an 289	. . . . 5 |- ( ( ( A e. RR /\ R e. RR ) /\ ( B e. RR /\ R e. RR ) ) -> ( ( X x. R ) e. ( C [,] D ) <-> ( ( X x. R ) e. RR /\ C <_ ( X x. R ) /\ ( X x. R ) <_ D ) ) )
32	31	anandirs 593	. . . 4 |- ( ( ( A e. RR /\ B e. RR ) /\ R e. RR ) -> ( ( X x. R ) e. ( C [,] D ) <-> ( ( X x. R ) e. RR /\ C <_ ( X x. R ) /\ ( X x. R ) <_ D ) ) )
33	2, 32	sylan2 286	. . 3 |- ( ( ( A e. RR /\ B e. RR ) /\ R e. RR+ ) -> ( ( X x. R ) e. ( C [,] D ) <-> ( ( X x. R ) e. RR /\ C <_ ( X x. R ) /\ ( X x. R ) <_ D ) ) )
34	33	adantrl 478	. 2 |- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( ( X x. R ) e. ( C [,] D ) <-> ( ( X x. R ) e. RR /\ C <_ ( X x. R ) /\ ( X x. R ) <_ D ) ) )
35	23, 25, 34	3bitr4d 220	1 |- ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( X e. ( A [,] B ) <-> ( X x. R ) e. ( C [,] D ) ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   /\ w3a 980   = wceq 1364   e. wcel 2164   class class class wbr 4029  (class class class)co 5918   RRcr 7871   0cc0 7872   x. cmul 7877   < clt 8054   <_ cle 8055   RR+crp 9719   [,]cicc 9957

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2166  ax-14 2167  ax-ext 2175  ax-sep 4147  ax-pow 4203  ax-pr 4238  ax-un 4464  ax-setind 4569  ax-cnex 7963  ax-resscn 7964  ax-1cn 7965  ax-1re 7966  ax-icn 7967  ax-addcl 7968  ax-addrcl 7969  ax-mulcl 7970  ax-mulrcl 7971  ax-addcom 7972  ax-mulcom 7973  ax-addass 7974  ax-mulass 7975  ax-distr 7976  ax-i2m1 7977  ax-1rid 7979  ax-0id 7980  ax-rnegex 7981  ax-precex 7982  ax-cnre 7983  ax-pre-ltirr 7984  ax-pre-ltwlin 7985  ax-pre-lttrn 7986  ax-pre-ltadd 7988  ax-pre-mulgt0 7989

This theorem depends on definitions:  df-bi 117  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2045  df-mo 2046  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ne 2365  df-nel 2460  df-ral 2477  df-rex 2478  df-reu 2479  df-rab 2481  df-v 2762  df-sbc 2986  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-pw 3603  df-sn 3624  df-pr 3625  df-op 3627  df-uni 3836  df-br 4030  df-opab 4091  df-id 4324  df-po 4327  df-iso 4328  df-xp 4665  df-rel 4666  df-cnv 4667  df-co 4668  df-dm 4669  df-iota 5215  df-fun 5256  df-fv 5262  df-riota 5873  df-ov 5921  df-oprab 5922  df-mpo 5923  df-pnf 8056  df-mnf 8057  df-xr 8058  df-ltxr 8059  df-le 8060  df-sub 8192  df-neg 8193  df-rp 9720  df-icc 9961

This theorem is referenced by:  iccdili  10065  lincmb01cmp  10069  iccf1o  10070