Metamath Proof Explorer


Theorem hspdifhsp

Description: A n-dimensional half-open interval is the intersection of the difference of half spaces. This is a substep of Proposition 115G (a) of Fremlin1 p. 32. (Contributed by Glauco Siliprandi, 24-Dec-2020)

Ref Expression
Hypotheses hspdifhsp.x ( 𝜑𝑋 ∈ Fin )
hspdifhsp.n ( 𝜑𝑋 ≠ ∅ )
hspdifhsp.a ( 𝜑𝐴 : 𝑋 ⟶ ℝ )
hspdifhsp.b ( 𝜑𝐵 : 𝑋 ⟶ ℝ )
hspdifhsp.h 𝐻 = ( 𝑥 ∈ Fin ↦ ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) )
Assertion hspdifhsp ( 𝜑X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) = 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )

Proof

Step Hyp Ref Expression
1 hspdifhsp.x ( 𝜑𝑋 ∈ Fin )
2 hspdifhsp.n ( 𝜑𝑋 ≠ ∅ )
3 hspdifhsp.a ( 𝜑𝐴 : 𝑋 ⟶ ℝ )
4 hspdifhsp.b ( 𝜑𝐵 : 𝑋 ⟶ ℝ )
5 hspdifhsp.h 𝐻 = ( 𝑥 ∈ Fin ↦ ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) )
6 nfv 𝑖 𝜑
7 nfcv 𝑖 𝑓
8 nfixp1 𝑖 X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) )
9 7 8 nfel 𝑖 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) )
10 6 9 nfan 𝑖 ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
11 ixpfn ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) → 𝑓 Fn 𝑋 )
12 11 ad2antlr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑓 Fn 𝑋 )
13 fveq2 ( 𝑘 = 𝑖 → ( 𝐵𝑘 ) = ( 𝐵𝑖 ) )
14 13 oveq2d ( 𝑘 = 𝑖 → ( -∞ (,) ( 𝐵𝑘 ) ) = ( -∞ (,) ( 𝐵𝑖 ) ) )
15 iftrue ( 𝑘 = 𝑖 → if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) = ( -∞ (,) ( 𝐵𝑖 ) ) )
16 14 15 eqtr4d ( 𝑘 = 𝑖 → ( -∞ (,) ( 𝐵𝑘 ) ) = if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
17 eqimss ( ( -∞ (,) ( 𝐵𝑘 ) ) = if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) → ( -∞ (,) ( 𝐵𝑘 ) ) ⊆ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
18 16 17 syl ( 𝑘 = 𝑖 → ( -∞ (,) ( 𝐵𝑘 ) ) ⊆ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
19 ioossre ( -∞ (,) ( 𝐵𝑘 ) ) ⊆ ℝ
20 iffalse ( ¬ 𝑘 = 𝑖 → if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) = ℝ )
21 19 20 sseqtrrid ( ¬ 𝑘 = 𝑖 → ( -∞ (,) ( 𝐵𝑘 ) ) ⊆ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
22 18 21 pm2.61i ( -∞ (,) ( 𝐵𝑘 ) ) ⊆ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ )
23 mnfxr -∞ ∈ ℝ*
24 23 a1i ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → -∞ ∈ ℝ* )
25 4 ffvelrnda ( ( 𝜑𝑘𝑋 ) → ( 𝐵𝑘 ) ∈ ℝ )
26 25 rexrd ( ( 𝜑𝑘𝑋 ) → ( 𝐵𝑘 ) ∈ ℝ* )
27 26 adantlr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → ( 𝐵𝑘 ) ∈ ℝ* )
28 3 ffvelrnda ( ( 𝜑𝑘𝑋 ) → ( 𝐴𝑘 ) ∈ ℝ )
29 icossre ( ( ( 𝐴𝑘 ) ∈ ℝ ∧ ( 𝐵𝑘 ) ∈ ℝ* ) → ( ( 𝐴𝑘 ) [,) ( 𝐵𝑘 ) ) ⊆ ℝ )
30 28 26 29 syl2anc ( ( 𝜑𝑘𝑋 ) → ( ( 𝐴𝑘 ) [,) ( 𝐵𝑘 ) ) ⊆ ℝ )
31 30 adantlr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → ( ( 𝐴𝑘 ) [,) ( 𝐵𝑘 ) ) ⊆ ℝ )
32 simpl ( ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ∧ 𝑘𝑋 ) → 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
33 simpr ( ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ∧ 𝑘𝑋 ) → 𝑘𝑋 )
34 fveq2 ( 𝑖 = 𝑘 → ( 𝐴𝑖 ) = ( 𝐴𝑘 ) )
35 fveq2 ( 𝑖 = 𝑘 → ( 𝐵𝑖 ) = ( 𝐵𝑘 ) )
36 34 35 oveq12d ( 𝑖 = 𝑘 → ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) = ( ( 𝐴𝑘 ) [,) ( 𝐵𝑘 ) ) )
37 36 fvixp ( ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ ( ( 𝐴𝑘 ) [,) ( 𝐵𝑘 ) ) )
38 32 33 37 syl2anc ( ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ ( ( 𝐴𝑘 ) [,) ( 𝐵𝑘 ) ) )
39 38 adantll ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ ( ( 𝐴𝑘 ) [,) ( 𝐵𝑘 ) ) )
40 31 39 sseldd ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ ℝ )
41 40 mnfltd ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → -∞ < ( 𝑓𝑘 ) )
42 28 rexrd ( ( 𝜑𝑘𝑋 ) → ( 𝐴𝑘 ) ∈ ℝ* )
43 42 adantlr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → ( 𝐴𝑘 ) ∈ ℝ* )
44 icoltub ( ( ( 𝐴𝑘 ) ∈ ℝ* ∧ ( 𝐵𝑘 ) ∈ ℝ* ∧ ( 𝑓𝑘 ) ∈ ( ( 𝐴𝑘 ) [,) ( 𝐵𝑘 ) ) ) → ( 𝑓𝑘 ) < ( 𝐵𝑘 ) )
45 43 27 39 44 syl3anc ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) < ( 𝐵𝑘 ) )
46 24 27 40 41 45 eliood ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ ( -∞ (,) ( 𝐵𝑘 ) ) )
47 22 46 sselid ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
48 47 adantlr ( ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
49 48 ralrimiva ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ∀ 𝑘𝑋 ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
50 12 49 jca ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓 Fn 𝑋 ∧ ∀ 𝑘𝑋 ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) ) )
51 vex 𝑓 ∈ V
52 51 elixp ( 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) ↔ ( 𝑓 Fn 𝑋 ∧ ∀ 𝑘𝑋 ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) ) )
53 50 52 sylibr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
54 equequ1 ( 𝑖 = 𝑘 → ( 𝑖 = 𝑙𝑘 = 𝑙 ) )
55 54 ifbid ( 𝑖 = 𝑘 → if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) = if ( 𝑘 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) )
56 55 cbvixpv X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) = X 𝑘𝑥 if ( 𝑘 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ )
57 56 a1i ( ( 𝑙𝑥𝑦 ∈ ℝ ) → X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) = X 𝑘𝑥 if ( 𝑘 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) )
58 57 mpoeq3ia ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) = ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑘𝑥 if ( 𝑘 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) )
59 58 mpteq2i ( 𝑥 ∈ Fin ↦ ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) ) = ( 𝑥 ∈ Fin ↦ ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑘𝑥 if ( 𝑘 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) )
60 5 59 eqtri 𝐻 = ( 𝑥 ∈ Fin ↦ ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑘𝑥 if ( 𝑘 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) )
61 1 adantr ( ( 𝜑𝑖𝑋 ) → 𝑋 ∈ Fin )
62 simpr ( ( 𝜑𝑖𝑋 ) → 𝑖𝑋 )
63 4 adantr ( ( 𝜑𝑖𝑋 ) → 𝐵 : 𝑋 ⟶ ℝ )
64 63 62 ffvelrnd ( ( 𝜑𝑖𝑋 ) → ( 𝐵𝑖 ) ∈ ℝ )
65 60 61 62 64 hspval ( ( 𝜑𝑖𝑋 ) → ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) = X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
66 65 adantlr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) = X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
67 53 66 eleqtrrd ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) )
68 23 a1i ( ( ( 𝜑𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → -∞ ∈ ℝ* )
69 3 adantr ( ( 𝜑𝑖𝑋 ) → 𝐴 : 𝑋 ⟶ ℝ )
70 69 62 ffvelrnd ( ( 𝜑𝑖𝑋 ) → ( 𝐴𝑖 ) ∈ ℝ )
71 70 rexrd ( ( 𝜑𝑖𝑋 ) → ( 𝐴𝑖 ) ∈ ℝ* )
72 71 adantr ( ( ( 𝜑𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → ( 𝐴𝑖 ) ∈ ℝ* )
73 simpr ( ( ( 𝜑𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
74 60 61 62 70 hspval ( ( 𝜑𝑖𝑋 ) → ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) = X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
75 74 adantr ( ( ( 𝜑𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) = X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
76 73 75 eleqtrd ( ( ( 𝜑𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
77 62 adantr ( ( ( 𝜑𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → 𝑖𝑋 )
78 iftrue ( 𝑘 = 𝑖 → if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) = ( -∞ (,) ( 𝐴𝑖 ) ) )
79 78 fvixp ( ( 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ( -∞ (,) ( 𝐴𝑖 ) ) )
80 76 77 79 syl2anc ( ( ( 𝜑𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → ( 𝑓𝑖 ) ∈ ( -∞ (,) ( 𝐴𝑖 ) ) )
81 iooltub ( ( -∞ ∈ ℝ* ∧ ( 𝐴𝑖 ) ∈ ℝ* ∧ ( 𝑓𝑖 ) ∈ ( -∞ (,) ( 𝐴𝑖 ) ) ) → ( 𝑓𝑖 ) < ( 𝐴𝑖 ) )
82 68 72 80 81 syl3anc ( ( ( 𝜑𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → ( 𝑓𝑖 ) < ( 𝐴𝑖 ) )
83 82 adantllr ( ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → ( 𝑓𝑖 ) < ( 𝐴𝑖 ) )
84 71 adantlr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝐴𝑖 ) ∈ ℝ* )
85 64 rexrd ( ( 𝜑𝑖𝑋 ) → ( 𝐵𝑖 ) ∈ ℝ* )
86 85 adantlr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝐵𝑖 ) ∈ ℝ* )
87 51 elixp ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ↔ ( 𝑓 Fn 𝑋 ∧ ∀ 𝑖𝑋 ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) )
88 87 biimpi ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) → ( 𝑓 Fn 𝑋 ∧ ∀ 𝑖𝑋 ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) )
89 88 simprd ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) → ∀ 𝑖𝑋 ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
90 rspa ( ( ∀ 𝑖𝑋 ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
91 89 90 sylan ( ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
92 91 adantll ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
93 icogelb ( ( ( 𝐴𝑖 ) ∈ ℝ* ∧ ( 𝐵𝑖 ) ∈ ℝ* ∧ ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) → ( 𝐴𝑖 ) ≤ ( 𝑓𝑖 ) )
94 84 86 92 93 syl3anc ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝐴𝑖 ) ≤ ( 𝑓𝑖 ) )
95 70 adantlr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝐴𝑖 ) ∈ ℝ )
96 icossre ( ( ( 𝐴𝑖 ) ∈ ℝ ∧ ( 𝐵𝑖 ) ∈ ℝ* ) → ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ⊆ ℝ )
97 70 85 96 syl2anc ( ( 𝜑𝑖𝑋 ) → ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ⊆ ℝ )
98 97 adantlr ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ⊆ ℝ )
99 98 92 sseldd ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ℝ )
100 95 99 lenltd ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( ( 𝐴𝑖 ) ≤ ( 𝑓𝑖 ) ↔ ¬ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) )
101 94 100 mpbid ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ¬ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) )
102 101 adantr ( ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → ¬ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) )
103 83 102 pm2.65da ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ¬ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
104 67 103 eldifd ( ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
105 104 ex ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) → ( 𝑖𝑋𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) )
106 10 105 ralrimi ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) → ∀ 𝑖𝑋 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
107 eliin ( 𝑓 ∈ V → ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ↔ ∀ 𝑖𝑋 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) )
108 51 107 ax-mp ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ↔ ∀ 𝑖𝑋 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
109 106 108 sylibr ( ( 𝜑𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) → 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
110 109 ex ( 𝜑 → ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) → 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) )
111 n0 ( 𝑋 ≠ ∅ ↔ ∃ 𝑘 𝑘𝑋 )
112 111 biimpi ( 𝑋 ≠ ∅ → ∃ 𝑘 𝑘𝑋 )
113 2 112 syl ( 𝜑 → ∃ 𝑘 𝑘𝑋 )
114 113 adantr ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → ∃ 𝑘 𝑘𝑋 )
115 simpl ( ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ∧ 𝑘𝑋 ) → 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
116 simpr ( ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ∧ 𝑘𝑋 ) → 𝑘𝑋 )
117 id ( 𝑖 = 𝑘𝑖 = 𝑘 )
118 117 35 oveq12d ( 𝑖 = 𝑘 → ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) = ( 𝑘 ( 𝐻𝑋 ) ( 𝐵𝑘 ) ) )
119 117 34 oveq12d ( 𝑖 = 𝑘 → ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) = ( 𝑘 ( 𝐻𝑋 ) ( 𝐴𝑘 ) ) )
120 118 119 difeq12d ( 𝑖 = 𝑘 → ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) = ( ( 𝑘 ( 𝐻𝑋 ) ( 𝐵𝑘 ) ) ∖ ( 𝑘 ( 𝐻𝑋 ) ( 𝐴𝑘 ) ) ) )
121 120 eleq2d ( 𝑖 = 𝑘 → ( 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ↔ 𝑓 ∈ ( ( 𝑘 ( 𝐻𝑋 ) ( 𝐵𝑘 ) ) ∖ ( 𝑘 ( 𝐻𝑋 ) ( 𝐴𝑘 ) ) ) ) )
122 115 116 121 eliind ( ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ∧ 𝑘𝑋 ) → 𝑓 ∈ ( ( 𝑘 ( 𝐻𝑋 ) ( 𝐵𝑘 ) ) ∖ ( 𝑘 ( 𝐻𝑋 ) ( 𝐴𝑘 ) ) ) )
123 122 eldifad ( ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ∧ 𝑘𝑋 ) → 𝑓 ∈ ( 𝑘 ( 𝐻𝑋 ) ( 𝐵𝑘 ) ) )
124 123 adantll ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑘𝑋 ) → 𝑓 ∈ ( 𝑘 ( 𝐻𝑋 ) ( 𝐵𝑘 ) ) )
125 equequ1 ( 𝑖 = → ( 𝑖 = 𝑙 = 𝑙 ) )
126 125 ifbid ( 𝑖 = → if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) = if ( = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) )
127 126 cbvixpv X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) = X 𝑥 if ( = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ )
128 127 a1i ( ( 𝑙𝑥𝑦 ∈ ℝ ) → X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) = X 𝑥 if ( = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) )
129 128 mpoeq3ia ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) = ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑥 if ( = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) )
130 129 mpteq2i ( 𝑥 ∈ Fin ↦ ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑖𝑥 if ( 𝑖 = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) ) = ( 𝑥 ∈ Fin ↦ ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑥 if ( = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) )
131 5 130 eqtri 𝐻 = ( 𝑥 ∈ Fin ↦ ( 𝑙𝑥 , 𝑦 ∈ ℝ ↦ X 𝑥 if ( = 𝑙 , ( -∞ (,) 𝑦 ) , ℝ ) ) )
132 1 ad2antrr ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑘𝑋 ) → 𝑋 ∈ Fin )
133 simpr ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑘𝑋 ) → 𝑘𝑋 )
134 25 adantlr ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑘𝑋 ) → ( 𝐵𝑘 ) ∈ ℝ )
135 131 132 133 134 hspval ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑘𝑋 ) → ( 𝑘 ( 𝐻𝑋 ) ( 𝐵𝑘 ) ) = X 𝑋 if ( = 𝑘 , ( -∞ (,) ( 𝐵𝑘 ) ) , ℝ ) )
136 124 135 eleqtrd ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑘𝑋 ) → 𝑓X 𝑋 if ( = 𝑘 , ( -∞ (,) ( 𝐵𝑘 ) ) , ℝ ) )
137 ixpfn ( 𝑓X 𝑋 if ( = 𝑘 , ( -∞ (,) ( 𝐵𝑘 ) ) , ℝ ) → 𝑓 Fn 𝑋 )
138 136 137 syl ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑘𝑋 ) → 𝑓 Fn 𝑋 )
139 138 ex ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → ( 𝑘𝑋𝑓 Fn 𝑋 ) )
140 139 exlimdv ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → ( ∃ 𝑘 𝑘𝑋𝑓 Fn 𝑋 ) )
141 114 140 mpd ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → 𝑓 Fn 𝑋 )
142 nfii1 𝑖 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
143 7 142 nfel 𝑖 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
144 6 143 nfan 𝑖 ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
145 simpll ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → 𝜑 )
146 108 biimpi ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → ∀ 𝑖𝑋 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
147 146 adantr ( ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ∧ 𝑖𝑋 ) → ∀ 𝑖𝑋 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
148 simpr ( ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑖𝑋 )
149 rspa ( ( ∀ 𝑖𝑋 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
150 147 148 149 syl2anc ( ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
151 150 adantll ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )
152 simpr ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → 𝑖𝑋 )
153 71 adantlr ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( 𝐴𝑖 ) ∈ ℝ* )
154 85 adantlr ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( 𝐵𝑖 ) ∈ ℝ* )
155 simpll ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → 𝜑 )
156 eldifi ( 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) )
157 156 ad2antlr ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) )
158 simpr ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → 𝑖𝑋 )
159 ioossre ( -∞ (,) ( 𝐵𝑖 ) ) ⊆ ℝ
160 simplr ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) )
161 65 adantlr ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) = X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
162 160 161 eleqtrd ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
163 simpr ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑖𝑋 )
164 15 fvixp ( ( 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ( -∞ (,) ( 𝐵𝑖 ) ) )
165 162 163 164 syl2anc ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ( -∞ (,) ( 𝐵𝑖 ) ) )
166 159 165 sselid ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ℝ )
167 155 157 158 166 syl21anc ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ℝ )
168 167 rexrd ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ℝ* )
169 simpl ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → 𝜑 )
170 156 adantl ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) )
171 169 170 jca ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) )
172 171 ad2antrr ( ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) )
173 simplr ( ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → 𝑖𝑋 )
174 simpr ( ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → ( 𝑓𝑖 ) < ( 𝐴𝑖 ) )
175 ixpfn ( 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) → 𝑓 Fn 𝑋 )
176 162 175 syl ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → 𝑓 Fn 𝑋 )
177 176 adantr ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → 𝑓 Fn 𝑋 )
178 fveq2 ( 𝑘 = 𝑖 → ( 𝑓𝑘 ) = ( 𝑓𝑖 ) )
179 178 adantl ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) ∧ 𝑘 = 𝑖 ) → ( 𝑓𝑘 ) = ( 𝑓𝑖 ) )
180 23 a1i ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → -∞ ∈ ℝ* )
181 71 ad4ant13 ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → ( 𝐴𝑖 ) ∈ ℝ* )
182 166 adantr ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → ( 𝑓𝑖 ) ∈ ℝ )
183 182 mnfltd ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → -∞ < ( 𝑓𝑖 ) )
184 simpr ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → ( 𝑓𝑖 ) < ( 𝐴𝑖 ) )
185 180 181 182 183 184 eliood ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → ( 𝑓𝑖 ) ∈ ( -∞ (,) ( 𝐴𝑖 ) ) )
186 185 adantr ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) ∧ 𝑘 = 𝑖 ) → ( 𝑓𝑖 ) ∈ ( -∞ (,) ( 𝐴𝑖 ) ) )
187 179 186 eqeltrd ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) ∧ 𝑘 = 𝑖 ) → ( 𝑓𝑘 ) ∈ ( -∞ (,) ( 𝐴𝑖 ) ) )
188 187 adantlr ( ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) ∧ 𝑘𝑋 ) ∧ 𝑘 = 𝑖 ) → ( 𝑓𝑘 ) ∈ ( -∞ (,) ( 𝐴𝑖 ) ) )
189 78 eqcomd ( 𝑘 = 𝑖 → ( -∞ (,) ( 𝐴𝑖 ) ) = if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
190 189 adantl ( ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) ∧ 𝑘𝑋 ) ∧ 𝑘 = 𝑖 ) → ( -∞ (,) ( 𝐴𝑖 ) ) = if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
191 188 190 eleqtrd ( ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) ∧ 𝑘𝑋 ) ∧ 𝑘 = 𝑖 ) → ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
192 15 159 eqsstrdi ( 𝑘 = 𝑖 → if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) ⊆ ℝ )
193 ssid ℝ ⊆ ℝ
194 20 193 eqsstrdi ( ¬ 𝑘 = 𝑖 → if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) ⊆ ℝ )
195 192 194 pm2.61i if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) ⊆ ℝ
196 162 adantr ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑘𝑋 ) → 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
197 simpr ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑘𝑋 ) → 𝑘𝑋 )
198 fvixp2 ( ( 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
199 196 197 198 syl2anc ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐵𝑖 ) ) , ℝ ) )
200 195 199 sselid ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ ℝ )
201 200 adantr ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑘𝑋 ) ∧ ¬ 𝑘 = 𝑖 ) → ( 𝑓𝑘 ) ∈ ℝ )
202 iffalse ( ¬ 𝑘 = 𝑖 → if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) = ℝ )
203 202 eqcomd ( ¬ 𝑘 = 𝑖 → ℝ = if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
204 203 adantl ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑘𝑋 ) ∧ ¬ 𝑘 = 𝑖 ) → ℝ = if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
205 201 204 eleqtrd ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ 𝑘𝑋 ) ∧ ¬ 𝑘 = 𝑖 ) → ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
206 205 adantllr ( ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) ∧ 𝑘𝑋 ) ∧ ¬ 𝑘 = 𝑖 ) → ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
207 191 206 pm2.61dan ( ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) ∧ 𝑘𝑋 ) → ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
208 207 ralrimiva ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → ∀ 𝑘𝑋 ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
209 177 208 jca ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → ( 𝑓 Fn 𝑋 ∧ ∀ 𝑘𝑋 ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) ) )
210 51 elixp ( 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) ↔ ( 𝑓 Fn 𝑋 ∧ ∀ 𝑘𝑋 ( 𝑓𝑘 ) ∈ if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) ) )
211 209 210 sylibr ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → 𝑓X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) )
212 74 eqcomd ( ( 𝜑𝑖𝑋 ) → X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) = ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
213 212 ad4ant13 ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → X 𝑘𝑋 if ( 𝑘 = 𝑖 , ( -∞ (,) ( 𝐴𝑖 ) ) , ℝ ) = ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
214 211 213 eleqtrd ( ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
215 172 173 174 214 syl21anc ( ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
216 eldifn ( 𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → ¬ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
217 216 ad3antlr ( ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) ∧ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) → ¬ 𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) )
218 215 217 pm2.65da ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ¬ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) )
219 155 158 70 syl2anc ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( 𝐴𝑖 ) ∈ ℝ )
220 219 167 lenltd ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( ( 𝐴𝑖 ) ≤ ( 𝑓𝑖 ) ↔ ¬ ( 𝑓𝑖 ) < ( 𝐴𝑖 ) ) )
221 218 220 mpbird ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( 𝐴𝑖 ) ≤ ( 𝑓𝑖 ) )
222 23 a1i ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → -∞ ∈ ℝ* )
223 85 adantlr ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝐵𝑖 ) ∈ ℝ* )
224 iooltub ( ( -∞ ∈ ℝ* ∧ ( 𝐵𝑖 ) ∈ ℝ* ∧ ( 𝑓𝑖 ) ∈ ( -∞ (,) ( 𝐵𝑖 ) ) ) → ( 𝑓𝑖 ) < ( 𝐵𝑖 ) )
225 222 223 165 224 syl3anc ( ( ( 𝜑𝑓 ∈ ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) < ( 𝐵𝑖 ) )
226 155 157 158 225 syl21anc ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) < ( 𝐵𝑖 ) )
227 153 154 168 221 226 elicod ( ( ( 𝜑𝑓 ∈ ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
228 145 151 152 227 syl21anc ( ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) ∧ 𝑖𝑋 ) → ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
229 228 ex ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → ( 𝑖𝑋 → ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) )
230 144 229 ralrimi ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → ∀ 𝑖𝑋 ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
231 141 230 jca ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → ( 𝑓 Fn 𝑋 ∧ ∀ 𝑖𝑋 ( 𝑓𝑖 ) ∈ ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) )
232 231 87 sylibr ( ( 𝜑𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) → 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) )
233 232 ex ( 𝜑 → ( 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) → 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ) )
234 110 233 impbid ( 𝜑 → ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ↔ 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) )
235 234 alrimiv ( 𝜑 → ∀ 𝑓 ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ↔ 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) )
236 dfcleq ( X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) = 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ↔ ∀ 𝑓 ( 𝑓X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) ↔ 𝑓 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) ) )
237 235 236 sylibr ( 𝜑X 𝑖𝑋 ( ( 𝐴𝑖 ) [,) ( 𝐵𝑖 ) ) = 𝑖𝑋 ( ( 𝑖 ( 𝐻𝑋 ) ( 𝐵𝑖 ) ) ∖ ( 𝑖 ( 𝐻𝑋 ) ( 𝐴𝑖 ) ) ) )