Step
*
2
1
of Lemma
list_split_wf
.....equality..... 
1. T : Type
2. f : (T List) ⟶ 𝔹
3. n : ℕ
4. L : T List
5. ∀L1:T List
     (||L1|| < ||L||
     
⇒ (list_split(f;L1) ∈ {p:T List List × (T List)| let LL,L2 = p in is_list_splitting(T;L1;LL;L2;f)} ))
6. ¬↑null(L)
⊢ L ~ firstn(||L|| - 1;L) @ [last(L)]
BY
{ TACTIC:(BLemma `last-lemma-sq`  THEN Auto) }
Latex:
Latex:
.....equality..... 
1.  T  :  Type
2.  f  :  (T  List)  {}\mrightarrow{}  \mBbbB{}
3.  n  :  \mBbbN{}
4.  L  :  T  List
5.  \mforall{}L1:T  List
          (||L1||  <  ||L||
          {}\mRightarrow{}  (list\_split(f;L1)  \mmember{}  \{p:T  List  List  \mtimes{}  (T  List)| 
                                                          let  LL,L2  =  p 
                                                          in  is\_list\_splitting(T;L1;LL;L2;f)\}  ))
6.  \mneg{}\muparrow{}null(L)
\mvdash{}  L  \msim{}  firstn(||L||  -  1;L)  @  [last(L)]
By
Latex:
TACTIC:(BLemma  `last-lemma-sq`    THEN  Auto)
Home
Index