Nuprl Lemma : mklist-general-add1

[n:ℕ]. ∀[f:Top].  (mklist-general(n 1;f) mklist-general(n;f) [f mklist-general(n;f)])


Proof




Definitions occuring in Statement :  mklist-general: mklist-general(n;h) append: as bs cons: [a b] nil: [] nat: uall: [x:A]. B[x] top: Top apply: a add: m natural_number: $n sqequal: t
Definitions unfolded in proof :  uall: [x:A]. B[x] member: t ∈ T mklist-general: mklist-general(n;h) nat: top: Top all: x:A. B[x] implies:  Q bool: 𝔹 unit: Unit it: btrue: tt uiff: uiff(P;Q) and: P ∧ Q uimplies: supposing a ifthenelse: if then else fi  ge: i ≥  satisfiable_int_formula: satisfiable_int_formula(fmla) exists: x:A. B[x] false: False not: ¬A prop: bfalse: ff or: P ∨ Q sq_type: SQType(T) guard: {T} bnot: ¬bb assert: b
Lemmas referenced :  primrec-unroll eq_int_wf bool_wf eqtt_to_assert assert_of_eq_int nat_properties satisfiable-full-omega-tt intformand_wf intformeq_wf itermAdd_wf itermVar_wf itermConstant_wf intformle_wf int_formula_prop_and_lemma int_formula_prop_eq_lemma int_term_value_add_lemma int_term_value_var_lemma int_term_value_constant_lemma int_formula_prop_le_lemma int_formula_prop_wf eqff_to_assert equal_wf bool_cases_sqequal subtype_base_sq bool_subtype_base assert-bnot neg_assert_of_eq_int add-subtract-cancel top_wf nat_wf
Rules used in proof :  sqequalSubstitution sqequalTransitivity computationStep sqequalReflexivity isect_memberFormation introduction cut sqequalRule extract_by_obid sqequalHypSubstitution isectElimination thin addEquality setElimination rename hypothesisEquality hypothesis natural_numberEquality isect_memberEquality voidElimination voidEquality because_Cache lambdaFormation unionElimination equalityElimination equalityTransitivity equalitySymmetry productElimination independent_isectElimination dependent_pairFormation lambdaEquality int_eqEquality intEquality dependent_functionElimination independent_pairFormation computeAll promote_hyp instantiate cumulativity independent_functionElimination sqequalAxiom

Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[f:Top].    (mklist-general(n  +  1;f)  \msim{}  mklist-general(n;f)  @  [f  mklist-general(n;f)])



Date html generated: 2017_04_17-AM-07_41_23
Last ObjectModification: 2017_02_27-PM-04_13_42

Theory : list_1


Home Index