Nuprl Lemma : RankEx4-induction

∀[P:RankEx4() ─→ ℙ]
  ((∀foo:ℤ + RankEx4(). (case foo of inl(u) => True | inr(u1) => P[u1] ⇒ P[RankEx4_Foo(foo)])) ⇒ {∀v:RankEx4(). P[v]})


Proof




Definitions occuring in Statement :  RankEx4_Foo: RankEx4_Foo(foo),  RankEx4: RankEx4(),  uall: ∀[x:A]. B[x],  prop: ℙ,  guard: {T},  so_apply: x[s],  all: ∀x:A. B[x],  implies: P ⇒ Q,  true: True,  function: x:A ─→ B[x],  decide: case b of inl(x) => s[x] | inr(y) => t[y],  union: left + right,  int: ℤ
Lemmas :  uniform-comp-nat-induction,  all_wf,  isect_wf,  le_wf,  RankEx4_size_wf,  nat_wf,  less_than_wf,  RankEx4-ext,  eq_atom_wf,  bool_wf,  eqtt_to_assert,  assert_of_eq_atom,  subtype_base_sq,  atom_subtype_base,  subtract_wf,  decidable__le,  false_wf,  not-le-2,  condition-implies-le,  minus-one-mul,  zero-add,  minus-add,  minus-minus,  add-associates,  add-swap,  add-commutes,  add_functionality_wrt_le,  le-add-cancel,  subtract-is-less,  lelt_wf,  decidable__lt,  less-iff-le,  add-zero,  eqff_to_assert,  equal_wf,  bool_cases_sqequal,  bool_subtype_base,  assert-bnot,  neg_assert_of_eq_atom,  uall_wf,  int_seg_wf,  le_weakening,  RankEx4_wf,  true_wf,  RankEx4_Foo_wf
\mforall{}[P:RankEx4()  {}\mrightarrow{}  \mBbbP{}]
    ((\mforall{}foo:\mBbbZ{}  +  RankEx4().  (case  foo  of  inl(u)  =>  True  |  inr(u1)  =>  P[u1]  {}\mRightarrow{}  P[RankEx4\_Foo(foo)]))
    {}\mRightarrow{}  \{\mforall{}v:RankEx4().  P[v]\})



Date html generated: 2015_07_17-AM-07_51_14
Last ObjectModification: 2015_01_27-AM-09_36_14

Home Index