---

Step * 1 3 2 of Lemma lg-nil-append


1. T : Type
2. u : T × ℤ List × (ℤ List)
3. v : (T × ℤ List × (ℤ List)) List
4. map(λtr.let lbl,in,out = tr in 
           <lbl, map(λx.(x + 0);in), map(λx.(x + 0);out)>;v) ~ v
⊢ [let lbl,in,out = u in 
   <lbl, map(λx.(x + 0);in), map(λx.(x + 0);out)> / 
   map(λtr.let lbl,in,out = tr in 
           <lbl, map(λx.(x + 0);in), map(λx.(x + 0);out)>;v)] ~ [u / v]
BY
{ (RepeatFor 2 (D (-3))
   THEN Reduce 0
   THEN RepeatFor 3 ((EqCD THEN Try (Trivial)))
   THEN All Thin
   THEN ListInd (-1)
   THEN Reduce 0
   THEN EqCD
   THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  u  :  T  \mtimes{}  \mBbbZ{}  List  \mtimes{}  (\mBbbZ{}  List)
3.  v  :  (T  \mtimes{}  \mBbbZ{}  List  \mtimes{}  (\mBbbZ{}  List))  List
4.  map(\mlambda{}tr.let  lbl,in,out  =  tr  in 
                      <lbl,  map(\mlambda{}x.(x  +  0);in),  map(\mlambda{}x.(x  +  0);out)>v)  \msim{}  v
\mvdash{}  [let  lbl,in,out  =  u  in 
      <lbl,  map(\mlambda{}x.(x  +  0);in),  map(\mlambda{}x.(x  +  0);out)>  / 
      map(\mlambda{}tr.let  lbl,in,out  =  tr  in 
                      <lbl,  map(\mlambda{}x.(x  +  0);in),  map(\mlambda{}x.(x  +  0);out)>v)]  \msim{}  [u  /  v]


By

---

Latex:
(RepeatFor  2  (D  (-3))
  THEN  Reduce  0
  THEN  RepeatFor  3  ((EqCD  THEN  Try  (Trivial)))
  THEN  All  Thin
  THEN  ListInd  (-1)
  THEN  Reduce  0
  THEN  EqCD
  THEN  Auto)

---

Home Index