---

Step * 2 of Lemma PZF-induction


1. C : Type
2. [F] : PZF-Formula(C) ⟶ ℙ
3. [T] : PZF-Term(C) ⟶ ℙ
4. ∀name:Atom. T[Vname]
5. ∀value:C. T[Const(value)]
6. ∀x:Atom. ∀phi:PZF-Formula(C).  (F[phi] ⇒ PZF-safe(phi;[x]) ⇒ T[{x | phi}])
7. ∀a,b:PZF-Term(C).  (T[a] ⇒ T[b] ⇒ F[a = b])
8. ∀a,b:PZF-Term(C).  (T[a] ⇒ T[b] ⇒ F[a ∈ b])
9. ∀a,b:PZF-Formula(C).  (F[a] ⇒ F[b] ⇒ F[a ∧ b)])
10. ∀a,b:PZF-Formula(C).  (F[a] ⇒ F[b] ⇒ F[a ∨ b])
11. ∀a:PZF-Formula(C). (F[a] ⇒ F[¬(a)])
12. ∀a:PZF-Formula(C). ∀x:Atom.  (F[a] ⇒ F[∀x. a])
13. ∀a:PZF-Formula(C). ∀x:Atom.  (F[a] ⇒ F[∃x. a])
14. left : Form(C)
15. right : Form(C)
16. (↑wfForm(left)) ⇒ (↑SafeForm(left)) ⇒ if termForm(left) then T[left] else F[left] fi 
17. (↑wfForm(right)) ⇒ (↑SafeForm(right)) ⇒ if termForm(right) then T[right] else F[right] fi 
18. ↑((wfFormAux(left) tt) ∧b (wfFormAux(right) tt))
19. ↑(SafeForm(left) ∧b SafeForm(right))
⊢ F[left = right]
BY
{ ((All (RW assert_pushdownC) THEN Auto)
   THEN All (Unfold `wfForm`)
   THEN (FLemma `wfFormAux-unique` [19] THENA Auto)
   THEN (EliminateEquation' (-1) THEN Reduce 17 THEN Auto)
   THEN (BackThruSomeHyp THEN Auto)
   THEN Repeat ((MemTypeCD THEN Auto))
   THEN (FLemma `wfFormAux-unique` [17] THENA Auto)
   THEN EliminateEquation' (-1)
   THEN Auto) }

---

Latex:

---

Latex:

1.  C  :  Type
2.  [F]  :  PZF-Formula(C)  {}\mrightarrow{}  \mBbbP{}
3.  [T]  :  PZF-Term(C)  {}\mrightarrow{}  \mBbbP{}
4.  \mforall{}name:Atom.  T[Vname]
5.  \mforall{}value:C.  T[Const(value)]
6.  \mforall{}x:Atom.  \mforall{}phi:PZF-Formula(C).    (F[phi]  {}\mRightarrow{}  PZF-safe(phi;[x])  {}\mRightarrow{}  T[\{x  |  phi\}])
7.  \mforall{}a,b:PZF-Term(C).    (T[a]  {}\mRightarrow{}  T[b]  {}\mRightarrow{}  F[a  =  b])
8.  \mforall{}a,b:PZF-Term(C).    (T[a]  {}\mRightarrow{}  T[b]  {}\mRightarrow{}  F[a  \mmember{}  b])
9.  \mforall{}a,b:PZF-Formula(C).    (F[a]  {}\mRightarrow{}  F[b]  {}\mRightarrow{}  F[a  \mwedge{}  b)])
10.  \mforall{}a,b:PZF-Formula(C).    (F[a]  {}\mRightarrow{}  F[b]  {}\mRightarrow{}  F[a  \mvee{}  b])
11.  \mforall{}a:PZF-Formula(C).  (F[a]  {}\mRightarrow{}  F[\mneg{}(a)])
12.  \mforall{}a:PZF-Formula(C).  \mforall{}x:Atom.    (F[a]  {}\mRightarrow{}  F[\mforall{}x.  a])
13.  \mforall{}a:PZF-Formula(C).  \mforall{}x:Atom.    (F[a]  {}\mRightarrow{}  F[\mexists{}x.  a])
14.  left  :  Form(C)
15.  right  :  Form(C)
16.  (\muparrow{}wfForm(left))  {}\mRightarrow{}  (\muparrow{}SafeForm(left))  {}\mRightarrow{}  if  termForm(left)  then  T[left]  else  F[left]  fi 
17.  (\muparrow{}wfForm(right))  {}\mRightarrow{}  (\muparrow{}SafeForm(right))  {}\mRightarrow{}  if  termForm(right)  then  T[right]  else  F[right]  fi 
18.  \muparrow{}((wfFormAux(left)  tt)  \mwedge{}\msubb{}  (wfFormAux(right)  tt))
19.  \muparrow{}(SafeForm(left)  \mwedge{}\msubb{}  SafeForm(right))
\mvdash{}  F[left  =  right]


By

---

Latex:
((All  (RW  assert\_pushdownC)  THEN  Auto)
  THEN  All  (Unfold  `wfForm`)
  THEN  (FLemma  `wfFormAux-unique`  [19]  THENA  Auto)
  THEN  (EliminateEquation'  (-1)  THEN  Reduce  17  THEN  Auto)
  THEN  (BackThruSomeHyp  THEN  Auto)
  THEN  Repeat  ((MemTypeCD  THEN  Auto))
  THEN  (FLemma  `wfFormAux-unique`  [17]  THENA  Auto)
  THEN  EliminateEquation'  (-1)
  THEN  Auto)

---

Home Index