Step
*
of Lemma
select-tuple-tuple
∀[n:ℕ]. ∀[i:ℕn]. ∀[F:Top].  (tuple(n;i.F[i]).i ~ F[i])
BY
{ (InductionOnNat
   THEN Auto
   THEN (RWO "tuple-decomp" 0 THENA Auto)
   THEN RepeatFor 2 (AutoSplit)
   THEN RecUnfold `select-tuple` 0
   THEN Repeat (AutoSplit)
   THEN RWO "5" 0⋅
   THEN Auto) }
Latex:
Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[i:\mBbbN{}n].  \mforall{}[F:Top].    (tuple(n;i.F[i]).i  \msim{}  F[i])
By
Latex:
(InductionOnNat
  THEN  Auto
  THEN  (RWO  "tuple-decomp"  0  THENA  Auto)
  THEN  RepeatFor  2  (AutoSplit)
  THEN  RecUnfold  `select-tuple`  0
  THEN  Repeat  (AutoSplit)
  THEN  RWO  "5"  0\mcdot{}
  THEN  Auto)
Home
Index