---

Step * of Lemma p-or_wf

∀[A,B:PType].  (p-or(A;B) ∈ PType)
BY
{ (Auto
   THEN D 1
   THEN D -1
   THEN Unfold `p-type` 0
   THEN BLemma `quotient-member-eq`
   THEN Try (Unfold `p-or` 0)
   THEN Auto
   THEN ParallelLast
   THEN BackThruSomeHyp
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A,B:PType].    (p-or(A;B)  \mmember{}  PType)


By

---

Latex:
(Auto
  THEN  D  1
  THEN  D  -1
  THEN  Unfold  `p-type`  0
  THEN  BLemma  `quotient-member-eq`
  THEN  Try  (Unfold  `p-or`  0)
  THEN  Auto
  THEN  ParallelLast
  THEN  BackThruSomeHyp
  THEN  Auto)

---

Home Index