---

Step * of Lemma cbv_sqequal

∀[a,X,Y:Base].  eval x = a in X[x] ~ eval x = a in Y[x] supposing (a)↓ ⇒ (X[a] ~ Y[a])
BY
{ (SqReasoning THEN ThinTrivial THEN HypSubst (-1) 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[a,X,Y:Base].    eval  x  =  a  in  X[x]  \msim{}  eval  x  =  a  in  Y[x]  supposing  (a)\mdownarrow{}  {}\mRightarrow{}  (X[a]  \msim{}  Y[a])


By

---

Latex:
(SqReasoning  THEN  ThinTrivial  THEN  HypSubst  (-1)  0  THEN  Auto)

---

Home Index