---

Step * of Lemma ispair-implies-sq

∀[t:Base]. t ~ <fst(t), snd(t)> supposing ispair(t) ~ tt
BY
{ ((UnivCD THENA Auto)
   THEN (Assert ⌜(ispair(t))↓⌝⋅ THENA (HypSubst (-1) 0 THEN Reduce 0 THEN Auto))
   THEN InstLemma `ispair-implies` [⌜t⌝]⋅
   THEN Auto
   THEN Try ((HypSubst (-2) 0 THEN Auto))
   THEN HasValueD (-1)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[t:Base].  t  \msim{}  <fst(t),  snd(t)>  supposing  ispair(t)  \msim{}  tt


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  (Assert  \mkleeneopen{}(ispair(t))\mdownarrow{}\mkleeneclose{}\mcdot{}  THENA  (HypSubst  (-1)  0  THEN  Reduce  0  THEN  Auto))
  THEN  InstLemma  `ispair-implies`  [\mkleeneopen{}t\mkleeneclose{}]\mcdot{}
  THEN  Auto
  THEN  Try  ((HypSubst  (-2)  0  THEN  Auto))
  THEN  HasValueD  (-1)
  THEN  Auto)

---

Home Index