---

Step * of Lemma hdf-sqequal8

∀[mk-hdf,a,s,X:Top].
  (let b ⟵ a
   in case null(b) of inl(x1) => let s' ⟵ s in <mk-hdf <X, s'>, s'> | inr(y1) => <mk-hdf <X, b>, b> ~ let b ⟵ a
                                                                          in let s' ⟵ case null(b)
                                                                              of inl(x1) =>
                                                                              s
                                                                              | inr(y1) =>
                                                                              b
                                                                             in <mk-hdf <X, s'>, s'>)
BY
{ ((UnivCD THENA Auto) THEN SymbComp 0 THEN LiftRed THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[mk-hdf,a,s,X:Top].
    (let  b  \mleftarrow{}{}  a
      in  case  null(b)  of  inl(x1)  =>  let  s'  \mleftarrow{}{}  s  in  <mk-hdf  <X,  s'>,  s'>  |  inr(y1)  =>  <mk-hdf  <X,  b>,  b>\000C  \msim{}  let  b  \mleftarrow{}{}  a
                                                                                                                                                    in  let  s'  \mleftarrow{}{}  case  null(b)
                                                                                                                                                            of  inl(x1)  =>
                                                                                                                                                            s
                                                                                                                                                            |  inr(y1)  =>
                                                                                                                                                            b
                                                                                                                                                          in  <mk-hdf  <X,  s'>,  s'>\000C)


By

---

Latex:
((UnivCD  THENA  Auto)  THEN  SymbComp  0  THEN  LiftRed  THEN  Auto)

---

Home Index