This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem glbfun

Description: The GLB is a function. (Contributed by NM, 9-Sep-2018)

Ref Expression
Hypothesis glbfun.g 
|- G = ( glb ` K )
Assertion glbfun 
|- Fun G

Proof

Step Hyp Ref Expression
1 glbfun.g 
 |-  G = ( glb ` K )
2 funmpt 
 |-  Fun ( s e. ~P ( Base ` K ) |-> ( iota_ x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) ) )
3 funres 
 |-  ( Fun ( s e. ~P ( Base ` K ) |-> ( iota_ x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) ) ) -> Fun ( ( s e. ~P ( Base ` K ) |-> ( iota_ x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) ) ) |` { s | E! x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) } ) )
4 2 3 ax-mp 
 |-  Fun ( ( s e. ~P ( Base ` K ) |-> ( iota_ x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) ) ) |` { s | E! x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) } )
5 eqid 
 |-  ( Base ` K ) = ( Base ` K )
6 eqid 
 |-  ( le ` K ) = ( le ` K )
7 biid 
 |-  ( ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) <-> ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) )
8 id 
 |-  ( K e. _V -> K e. _V )
9 5 6 1 7 8 glbfval 
 |-  ( K e. _V -> G = ( ( s e. ~P ( Base ` K ) |-> ( iota_ x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) ) ) |` { s | E! x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) } ) )
10 9 funeqd 
 |-  ( K e. _V -> ( Fun G <-> Fun ( ( s e. ~P ( Base ` K ) |-> ( iota_ x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) ) ) |` { s | E! x e. ( Base ` K ) ( A. y e. s x ( le ` K ) y /\ A. z e. ( Base ` K ) ( A. y e. s z ( le ` K ) y -> z ( le ` K ) x ) ) } ) ) )
11 4 10 mpbiri 
 |-  ( K e. _V -> Fun G )
12 fun0 
 |-  Fun (/)
13 fvprc 
 |-  ( -. K e. _V -> ( glb ` K ) = (/) )
14 1 13 eqtrid 
 |-  ( -. K e. _V -> G = (/) )
15 14 funeqd 
 |-  ( -. K e. _V -> ( Fun G <-> Fun (/) ) )
16 12 15 mpbiri 
 |-  ( -. K e. _V -> Fun G )
17 11 16 pm2.61i 
 |-  Fun G