Nuprl Lemma : rmul-rdiv-cancel9
∀[a,b,c:ℝ]. (a * b/c * b) = (a/c) supposing b ≠ r0 ∧ c ≠ r0
Proof
Definitions occuring in Statement :
rdiv: (x/y),
rneq: x ≠ y,
req: x = y,
rmul: a * b,
int-to-real: r(n),
real: ℝ,
uimplies: b supposing a,
uall: ∀[x:A]. B[x],
and: P ∧ Q,
natural_number: $n
Definitions unfolded in proof :
uall: ∀[x:A]. B[x],
member: t ∈ T,
uimplies: b supposing a,
and: P ∧ Q,
false: False,
implies: P ⇒ Q,
not: ¬A,
rat_term_to_real: rat_term_to_real(f;t),
rtermDivide: num "/" denom,
rat_term_ind: rat_term_ind,
rtermVar: rtermVar(var),
pi1: fst(t),
true: True,
rtermMultiply: left "*" right,
all: ∀x:A. B[x],
pi2: snd(t),
prop: ℙ
Lemmas referenced :
assert-rat-term-eq2,
rtermDivide_wf,
rtermMultiply_wf,
rtermVar_wf,
int-to-real_wf,
istype-int,
rmul-neq-zero,
req_witness,
rdiv_wf,
rmul_wf,
rneq_wf,
real_wf
Rules used in proof :
sqequalSubstitution,
sqequalTransitivity,
computationStep,
sqequalReflexivity,
isect_memberFormation_alt,
introduction,
cut,
sqequalHypSubstitution,
productElimination,
thin,
extract_by_obid,
isectElimination,
natural_numberEquality,
hypothesis,
lambdaEquality_alt,
int_eqEquality,
hypothesisEquality,
independent_isectElimination,
approximateComputation,
sqequalRule,
independent_pairFormation,
dependent_functionElimination,
independent_functionElimination,
because_Cache,
productIsType,
universeIsType,
isect_memberEquality_alt,
isectIsTypeImplies,
inhabitedIsType
Latex:
\mforall{}[a,b,c:\mBbbR{}]. (a * b/c * b) = (a/c) supposing b \mneq{} r0 \mwedge{} c \mneq{} r0
Date html generated:
2019_10_29-AM-09_55_52
Last ObjectModification:
2019_04_01-PM-07_07_16
Theory : reals
Home
Index