Step
*
of Lemma
Sierpinski-equal2
∀[x,y:Sierpinski].  uiff(x = y ∈ Sierpinski;x = ⊤ ∈ Sierpinski 
⇐⇒ y = ⊤ ∈ Sierpinski)
BY
{ (Auto
   THEN BLemma `Sierpinski-equal`
   THEN Auto
   THEN BLemma `not-Sierpinski-top`
   THEN Auto
   THEN D 0
   THEN Auto
   THEN ThinTrivial
   THEN InstLemma `Sierpinski-unequal` []
   THEN Auto) }
Latex:
Latex:
\mforall{}[x,y:Sierpinski].    uiff(x  =  y;x  =  \mtop{}  \mLeftarrow{}{}\mRightarrow{}  y  =  \mtop{})
By
Latex:
(Auto
  THEN  BLemma  `Sierpinski-equal`
  THEN  Auto
  THEN  BLemma  `not-Sierpinski-top`
  THEN  Auto
  THEN  D  0
  THEN  Auto
  THEN  ThinTrivial
  THEN  InstLemma  `Sierpinski-unequal`  []
  THEN  Auto)
Home
Index