---

Step * of Lemma test-evd-middle

∀[P,A:ℙ].  (((P ∨ (P ⇒ A)) ⇒ A) ⇒ A)
BY
{ (EvidenceTac ⌜λh.(h (inr (λx.(h (inl x))) ))⌝⋅ THENA Auto) }

---

Latex:

---

Latex:
\mforall{}[P,A:\mBbbP{}].    (((P  \mvee{}  (P  {}\mRightarrow{}  A))  {}\mRightarrow{}  A)  {}\mRightarrow{}  A)


By

---

Latex:
(EvidenceTac  \mkleeneopen{}\mlambda{}h.(h  (inr  (\mlambda{}x.(h  (inl  x)))  ))\mkleeneclose{}\mcdot{}  THENA  Auto)

---

Home Index