---

Step * of Lemma s-hd_wf

∀[A:Type]. ∀[s:stream(A)].  (s-hd(s) ∈ A)
BY
{ (ProveWfLemma THEN InstLemma `stream-ext` [⌜A⌝]⋅ THEN Auto THEN GenConcl ⌜s = p ∈ (A × stream(A))⌝⋅ THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A:Type].  \mforall{}[s:stream(A)].    (s-hd(s)  \mmember{}  A)


By

---

Latex:
(ProveWfLemma  THEN  InstLemma  `stream-ext`  [\mkleeneopen{}A\mkleeneclose{}]\mcdot{}  THEN  Auto  THEN  GenConcl  \mkleeneopen{}s  =  p\mkleeneclose{}\mcdot{}  THEN  Auto)

---

Home Index