Metamath Proof Explorer


Theorem iccdili

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

Ref Expression
Hypotheses iccdili.1
|- A e. RR
iccdili.2
|- B e. RR
iccdili.3
|- R e. RR+
iccdili.4
|- ( A x. R ) = C
iccdili.5
|- ( B x. R ) = D
Assertion iccdili
|- ( X e. ( A [,] B ) -> ( X x. R ) e. ( C [,] D ) )

Proof

Step Hyp Ref Expression
1 iccdili.1
 |-  A e. RR
2 iccdili.2
 |-  B e. RR
3 iccdili.3
 |-  R e. RR+
4 iccdili.4
 |-  ( A x. R ) = C
5 iccdili.5
 |-  ( B x. R ) = D
6 iccssre
 |-  ( ( A e. RR /\ B e. RR ) -> ( A [,] B ) C_ RR )
7 1 2 6 mp2an
 |-  ( A [,] B ) C_ RR
8 7 sseli
 |-  ( X e. ( A [,] B ) -> X e. RR )
9 4 5 iccdil
 |-  ( ( ( A e. RR /\ B e. RR ) /\ ( X e. RR /\ R e. RR+ ) ) -> ( X e. ( A [,] B ) <-> ( X x. R ) e. ( C [,] D ) ) )
10 1 2 9 mpanl12
 |-  ( ( X e. RR /\ R e. RR+ ) -> ( X e. ( A [,] B ) <-> ( X x. R ) e. ( C [,] D ) ) )
11 3 10 mpan2
 |-  ( X e. RR -> ( X e. ( A [,] B ) <-> ( X x. R ) e. ( C [,] D ) ) )
12 11 biimpd
 |-  ( X e. RR -> ( X e. ( A [,] B ) -> ( X x. R ) e. ( C [,] D ) ) )
13 8 12 mpcom
 |-  ( X e. ( A [,] B ) -> ( X x. R ) e. ( C [,] D ) )