---

Step * of Lemma isaxiom-implies-sq

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

---

Latex:

---

Latex:
\mforall{}[t:Base].  t  \msim{}  Ax  supposing  isaxiom(t)  \msim{}  tt


By

---

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

---

Home Index