---

Step * of Lemma tuple-type-append-equipollent

∀L1,L2:Type List.  tuple-type(L1) × tuple-type(L2) ~ tuple-type(L1 @ L2)
BY
{ TACTIC:(InductionOnList THEN Reduce 0 THEN Auto) }

1
1. L2 : Type List
⊢ Unit × tuple-type(L2) ~ tuple-type(L2)

2
1. u : Type
2. v : Type List
3. ∀L2:Type List. tuple-type(v) × tuple-type(L2) ~ tuple-type(v @ L2)
4. L2 : Type List
⊢ if null(v) then u else u × tuple-type(v) fi  × tuple-type(L2) ~ if null(v @ L2) then u else u × tuple-type(v @ L2) fi 

---

Latex:

---

Latex:
\mforall{}L1,L2:Type  List.    tuple-type(L1)  \mtimes{}  tuple-type(L2)  \msim{}  tuple-type(L1  @  L2)


By

---

Latex:
TACTIC:(InductionOnList  THEN  Reduce  0  THEN  Auto)

---

Home Index