Step
*
2
2
of Lemma
filter_iseg2
1. [T] : Type
2. u : T
3. v : T List
4. ∀L1:T List. ∀P:{x:T| (x ∈ v)}  ⟶ 𝔹.  (L1 ≤ v 
⇒ filter(P;L1) ≤ filter(P;v))
5. u1 : T
6. v1 : T List
7. P : {x:T| (x ∈ [u / v])}  ⟶ 𝔹
8. ¬↑(P u)
9. [u1 / v1] ≤ [u / v]
⊢ if P u1 then [u1 / filter(P;v1)] else filter(P;v1) fi  ≤ filter(P;v)
BY
{ ((RWO "cons_iseg" 9 THENA Auto) THEN RepD THEN AutoSplit) }
Latex:
Latex:
1.  [T]  :  Type
2.  u  :  T
3.  v  :  T  List
4.  \mforall{}L1:T  List.  \mforall{}P:\{x:T|  (x  \mmember{}  v)\}    {}\mrightarrow{}  \mBbbB{}.    (L1  \mleq{}  v  {}\mRightarrow{}  filter(P;L1)  \mleq{}  filter(P;v))
5.  u1  :  T
6.  v1  :  T  List
7.  P  :  \{x:T|  (x  \mmember{}  [u  /  v])\}    {}\mrightarrow{}  \mBbbB{}
8.  \mneg{}\muparrow{}(P  u)
9.  [u1  /  v1]  \mleq{}  [u  /  v]
\mvdash{}  if  P  u1  then  [u1  /  filter(P;v1)]  else  filter(P;v1)  fi    \mleq{}  filter(P;v)
By
Latex:
((RWO  "cons\_iseg"  9  THENA  Auto)  THEN  RepD  THEN  AutoSplit)
Home
Index