Theorem pimconstlt1

Description: Given a constant function, its preimage with respect to an unbounded below, open interval, with upper bound larger than the constant, is the whole domain. First part of Proposition 121E (a) of Fremlin1 p. 37 . (Contributed by Glauco Siliprandi, 26-Jun-2021)

	Ref	Expression
Hypotheses	pimconstlt1.1	|- F/ x ph
	pimconstlt1.2	|- ( ph -> B e. RR )
	pimconstlt1.3	|- F = ( x e. A |-> B )
	pimconstlt1.4	|- ( ph -> B < C )
Assertion	pimconstlt1	|- ( ph -> { x e. A | ( F ` x ) < C } = A )

Proof

Step	Hyp	Ref	Expression
1		pimconstlt1.1	|- F/ x ph
2		pimconstlt1.2	|- ( ph -> B e. RR )
3		pimconstlt1.3	|- F = ( x e. A |-> B )
4		pimconstlt1.4	|- ( ph -> B < C )
5		ssrab2	|- { x e. A | ( F ` x ) < C } C_ A
6	5	a1i	|- ( ph -> { x e. A | ( F ` x ) < C } C_ A )
7		simpr	|- ( ( ph /\ x e. A ) -> x e. A )
8	3	a1i	|- ( ph -> F = ( x e. A |-> B ) )
9	2	adantr	|- ( ( ph /\ x e. A ) -> B e. RR )
10	8 9	fvmpt2d	|- ( ( ph /\ x e. A ) -> ( F ` x ) = B )
11	4	adantr	|- ( ( ph /\ x e. A ) -> B < C )
12	10 11	eqbrtrd	|- ( ( ph /\ x e. A ) -> ( F ` x ) < C )
13	7 12	jca	|- ( ( ph /\ x e. A ) -> ( x e. A /\ ( F ` x ) < C ) )
14		rabid	|- ( x e. { x e. A | ( F ` x ) < C } <-> ( x e. A /\ ( F ` x ) < C ) )
15	13 14	sylibr	|- ( ( ph /\ x e. A ) -> x e. { x e. A | ( F ` x ) < C } )
16	15	ex	|- ( ph -> ( x e. A -> x e. { x e. A | ( F ` x ) < C } ) )
17	1 16	ralrimi	|- ( ph -> A. x e. A x e. { x e. A | ( F ` x ) < C } )
18		nfcv	|- F/_ x A
19		nfrab1	|- F/_ x { x e. A | ( F ` x ) < C }
20	18 19	dfss3f	|- ( A C_ { x e. A | ( F ` x ) < C } <-> A. x e. A x e. { x e. A | ( F ` x ) < C } )
21	17 20	sylibr	|- ( ph -> A C_ { x e. A | ( F ` x ) < C } )
22	6 21	eqssd	|- ( ph -> { x e. A | ( F ` x ) < C } = A )