---

Step * 1 1 of Lemma atom-sdata-one-one


1. a : Atom1
2. b : Atom1
3. tree_leaf(inr a ) = tree_leaf(inr b ) ∈ tree(Id + Atom1)
⊢ a = b ∈ Atom1
BY
{ ((ApFunToHypEquands `Z' ⌈if tree_leaf?(Z) then tree_leaf-value(Z) else inr a  fi ⌉ ⌈Id + Atom1⌉ (-1)⋅ THENA Auto)
   THEN Reduce (-1)
   THEN Auto) }

---

Latex:

---

Latex:

1.  a  :  Atom1
2.  b  :  Atom1
3.  tree\_leaf(inr  a  )  =  tree\_leaf(inr  b  )
\mvdash{}  a  =  b


By

---

Latex:
((ApFunToHypEquands  `Z'  \mkleeneopen{}if  tree\_leaf?(Z)  then  tree\_leaf-value(Z)  else  inr  a    fi  \mkleeneclose{}  \mkleeneopen{}Id  +  Atom1\mkleeneclose{}  (-1)
    \mcdot{}
    THENA  Auto
    )
  THEN  Reduce  (-1)
  THEN  Auto)

---

Home Index