---

Step * 2 of Lemma record+_extensionality

.....wf..... 
1. T : Atom ⟶ 𝕌'
2. B : record(x.T[x]) ⟶ 𝕌'
3. z : Atom
4. r1 : self:record(x.T[x]) ⋂ x:Atom ⟶ if x =a z then B[self] else Top fi 
5. r2 : self:record(x.T[x]) ⋂ x:Atom ⟶ if x =a z then B[self] else Top fi 
⊢ istype(r1 = r2 ∈ self:record(x.T[x]) ⋂ x:Atom ⟶ if x =a z then B[self] else Top fi )
BY
{ ((Assert r1 = r2 ∈ self:record(x.T[x]) ⋂ x:Atom ⟶ if x =a z then B[self] else Top fi  ∈ ℙ' BY
          (MemCD THEN Fold `record+` 0 THEN Auto))
   THEN Auto
   ) }

---

Latex:

---

Latex:
.....wf..... 
1.  T  :  Atom  {}\mrightarrow{}  \mBbbU{}'
2.  B  :  record(x.T[x])  {}\mrightarrow{}  \mBbbU{}'
3.  z  :  Atom
4.  r1  :  self:record(x.T[x])  \mcap{}  x:Atom  {}\mrightarrow{}  if  x  =a  z  then  B[self]  else  Top  fi 
5.  r2  :  self:record(x.T[x])  \mcap{}  x:Atom  {}\mrightarrow{}  if  x  =a  z  then  B[self]  else  Top  fi 
\mvdash{}  istype(r1  =  r2)


By

---

Latex:
((Assert  r1  =  r2  \mmember{}  \mBbbP{}'  BY  (MemCD  THEN  Fold  `record+`  0  THEN  Auto))  THEN  Auto)

---

Home Index