Nuprl Lemma : test-box_wf
∀[x1:test-prog()]. ∀[x:test-prop()]. (test-box(x1;x) ∈ test-prop())
Proof
Definitions occuring in Statement :
test-box: test-box(x1;x),
test-prop: test-prop(),
test-prog: test-prog(),
uall: ∀[x:A]. B[x],
member: t ∈ T
Definitions unfolded in proof :
uall: ∀[x:A]. B[x],
test-prop: test-prop(),
test-box: test-box(x1;x),
member: t ∈ T,
tuple-type: tuple-type(L),
list_ind: list_ind,
prec-arg-types: prec-arg-types(lbl,p.a[lbl; p];i;lbl),
map: map(f;as),
mrec-spec: mrec-spec(L;lbl;p),
apply-alist: apply-alist(eq;L;x),
test-Spec: test-Spec(),
cons: [a / b],
ifthenelse: if b then t else f fi ,
atom-deq: AtomDeq,
eq_atom: x =a y,
pi1: fst(t),
bfalse: ff,
btrue: tt,
pi2: snd(t),
null: null(as),
prec: prec(lbl,p.a[lbl; p];i),
test-prog: test-prog(),
mrec: mrec(L;i),
nil: [],
it: ⋅,
uimplies: b supposing a,
less_than: a < b,
squash: ↓T,
less_than': less_than'(a;b),
length: ||as||,
true: True,
and: P ∧ Q
Lemmas referenced :
mk-prec_wf-mrec,
test-Spec_wf,
test-prop_wf,
test-prog_wf
Rules used in proof :
sqequalSubstitution,
sqequalTransitivity,
computationStep,
sqequalReflexivity,
isect_memberFormation_alt,
sqequalRule,
cut,
introduction,
extract_by_obid,
sqequalHypSubstitution,
isectElimination,
thin,
hypothesis,
closedConclusion,
tokenEquality,
independent_pairEquality,
hypothesisEquality,
independent_isectElimination,
independent_pairFormation,
natural_numberEquality,
imageMemberEquality,
baseClosed,
universeIsType
Latex:
\mforall{}[x1:test-prog()]. \mforall{}[x:test-prop()]. (test-box(x1;x) \mmember{} test-prop())
Date html generated:
2019_10_15-AM-10_49_08
Last ObjectModification:
2019_03_25-PM-01_48_11
Theory : tree_1
Home
Index