---

{ [l:IdLnk]. (lnk-inv(lnk-inv(l)) = l) }

{ Proof }

---

Definitions occuring in Statement :  lnk-inv: lnk-inv(l),  IdLnk: IdLnk,  uall: [x:A]. B[x],  equal: s = t
Definitions :  uall: [x:A]. B[x],  IdLnk: IdLnk,  lnk-inv: lnk-inv(l),  pi1: fst(t),  pi2: snd(t),  member: t  T
Lemmas :  Id_wf

---

\mforall{}[l:IdLnk].  (lnk-inv(lnk-inv(l))  =  l)


Date html generated: 2011_08_10-AM-07_45_10
Last ObjectModification: 2011_06_18-AM-08_10_08

Home Index