Nuprl Lemma : strictness-less-right
∀[a,b,c:Top]. (if (a) < (⊥) then b else c ~ eval x = a in ⊥)
Proof
Definitions occuring in Statement :
bottom: ⊥,
callbyvalue: callbyvalue,
uall: ∀[x:A]. B[x],
top: Top,
less: if (a) < (b) then c else d,
sqequal: s ~ t
Definitions unfolded in proof :
uall: ∀[x:A]. B[x],
member: t ∈ T,
has-value: (a)↓,
and: P ∧ Q,
all: ∀x:A. B[x],
implies: P ⇒ Q,
uimplies: b supposing a,
prop: ℙ,
not: ¬A,
false: False
Lemmas referenced :
value-type-has-value,
int-value-type,
equal_wf,
bottom_diverge,
exception-not-bottom,
has-value_wf_base,
is-exception_wf,
top_wf
Rules used in proof :
sqequalSubstitution,
sqequalTransitivity,
computationStep,
sqequalReflexivity,
isect_memberFormation,
introduction,
cut,
sqequalSqle,
sqleRule,
thin,
divergentSqle,
callbyvalueLess,
sqequalHypSubstitution,
hypothesis,
sqequalRule,
baseApply,
closedConclusion,
baseClosed,
hypothesisEquality,
productElimination,
equalityTransitivity,
equalitySymmetry,
intEquality,
lambdaFormation,
extract_by_obid,
isectElimination,
independent_isectElimination,
dependent_functionElimination,
independent_functionElimination,
voidElimination,
lessExceptionCases,
axiomSqleEquality,
exceptionSqequal,
sqleReflexivity,
callbyvalueCallbyvalue,
callbyvalueReduce,
callbyvalueExceptionCases,
sqequalAxiom,
isect_memberEquality,
because_Cache
Latex:
\mforall{}[a,b,c:Top]. (if (a) < (\mbot{}) then b else c \msim{} eval x = a in \mbot{})
Date html generated:
2017_04_14-AM-07_21_17
Last ObjectModification:
2017_02_27-PM-02_54_46
Theory : computation
Home
Index