---

Step * of Lemma not-ispair

∀[t,a,b:Base].
  ∀[x,y:Top].  (if t is a pair then x otherwise y ~ y) supposing if t is a pair then inl a otherwise inr b  ~ inr b 
BY
{ (Auto
   THEN SqEqualTopToBase
   THEN (Assert ⌜(if t is a pair then inl a otherwise inr b )↓⌝⋅ THENA (HypSubst (-3) 0 THEN Reduce 0 THEN Auto))
   THEN HasValueD  (-1)
   THEN CanonicalTestCases
   THEN Auto
   THEN HypSubst (-1) (-6)
   THEN Reduce (-6)
   THEN RW CanonicalDiffC (-6)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[t,a,b:Base].
    \mforall{}[x,y:Top].    (if  t  is  a  pair  then  x  otherwise  y  \msim{}  y) 
    supposing  if  t  is  a  pair  then  inl  a  otherwise  inr  b    \msim{}  inr  b 


By

---

Latex:
(Auto
  THEN  SqEqualTopToBase
  THEN  (Assert  \mkleeneopen{}(if  t  is  a  pair  then  inl  a  otherwise  inr  b  )\mdownarrow{}\mkleeneclose{}\mcdot{}
              THENA  (HypSubst  (-3)  0  THEN  Reduce  0  THEN  Auto)
              )
  THEN  HasValueD    (-1)
  THEN  CanonicalTestCases
  THEN  Auto
  THEN  HypSubst  (-1)  (-6)
  THEN  Reduce  (-6)
  THEN  RW  CanonicalDiffC  (-6)
  THEN  Auto)

---

Home Index