Metamath Proof Explorer


Theorem ipolerval

Description: Relation of the inclusion poset. (Contributed by Stefan O'Rear, 30-Jan-2015)

Ref Expression
Hypothesis ipoval.i I = toInc F
Assertion ipolerval F V x y | x y F x y = I

Proof

Step Hyp Ref Expression
1 ipoval.i I = toInc F
2 simpl x y F x y x y F
3 vex x V
4 vex y V
5 3 4 prss x F y F x y F
6 2 5 sylibr x y F x y x F y F
7 6 ssopab2i x y | x y F x y x y | x F y F
8 df-xp F × F = x y | x F y F
9 7 8 sseqtrri x y | x y F x y F × F
10 sqxpexg F V F × F V
11 ssexg x y | x y F x y F × F F × F V x y | x y F x y V
12 9 10 11 sylancr F V x y | x y F x y V
13 ipostr Base ndx F TopSet ndx ordTop x y | x y F x y ndx x y | x y F x y oc ndx x F y F | y x = Struct 1 11
14 pleid le = Slot ndx
15 snsspr1 ndx x y | x y F x y ndx x y | x y F x y oc ndx x F y F | y x =
16 ssun2 ndx x y | x y F x y oc ndx x F y F | y x = Base ndx F TopSet ndx ordTop x y | x y F x y ndx x y | x y F x y oc ndx x F y F | y x =
17 15 16 sstri ndx x y | x y F x y Base ndx F TopSet ndx ordTop x y | x y F x y ndx x y | x y F x y oc ndx x F y F | y x =
18 13 14 17 strfv x y | x y F x y V x y | x y F x y = Base ndx F TopSet ndx ordTop x y | x y F x y ndx x y | x y F x y oc ndx x F y F | y x =
19 12 18 syl F V x y | x y F x y = Base ndx F TopSet ndx ordTop x y | x y F x y ndx x y | x y F x y oc ndx x F y F | y x =
20 eqid x y | x y F x y = x y | x y F x y
21 1 20 ipoval F V I = Base ndx F TopSet ndx ordTop x y | x y F x y ndx x y | x y F x y oc ndx x F y F | y x =
22 21 fveq2d F V I = Base ndx F TopSet ndx ordTop x y | x y F x y ndx x y | x y F x y oc ndx x F y F | y x =
23 19 22 eqtr4d F V x y | x y F x y = I