Nuprl Lemma : rng-pp-nontrivial-4
∀r:IntegDom{i}. ∀eq:EqDecider(|r|). ∀p:{p:ℕ3 ⟶ |r|| ¬(p = 0 ∈ (ℕ3 ⟶ |r|))} .
  ∃l,m,n:{p:ℕ3 ⟶ |r|| ¬(p = 0 ∈ (ℕ3 ⟶ |r|))} 
   ((¬¬((p . l) = 0 ∈ |r|))
   ∧ (¬¬((p . m) = 0 ∈ |r|))
   ∧ (¬¬((p . n) = 0 ∈ |r|))
   ∧ (∃a:{p:ℕ3 ⟶ |r|| ¬(p = 0 ∈ (ℕ3 ⟶ |r|))} . ((¬¬((a . l) = 0 ∈ |r|)) ∧ (¬((a . m) = 0 ∈ |r|))))
   ∧ (∃a:{p:ℕ3 ⟶ |r|| ¬(p = 0 ∈ (ℕ3 ⟶ |r|))} . ((¬¬((a . m) = 0 ∈ |r|)) ∧ (¬((a . n) = 0 ∈ |r|))))
   ∧ (∃a:{p:ℕ3 ⟶ |r|| ¬(p = 0 ∈ (ℕ3 ⟶ |r|))} . ((¬¬((a . n) = 0 ∈ |r|)) ∧ (¬((a . l) = 0 ∈ |r|)))))
Proof
Definitions occuring in Statement : 
deq: EqDecider(T)
, 
int_seg: {i..j-}
, 
all: ∀x:A. B[x]
, 
exists: ∃x:A. B[x]
, 
not: ¬A
, 
and: P ∧ Q
, 
set: {x:A| B[x]} 
, 
function: x:A ⟶ B[x]
, 
natural_number: $n
, 
equal: s = t ∈ T
, 
integ_dom: IntegDom{i}
, 
rng_zero: 0
, 
rng_car: |r|
, 
scalar-product: (a . b)
, 
zero-vector: 0
Definitions unfolded in proof : 
sq_exists: ∃x:A [B[x]]
, 
so_apply: x[s]
, 
so_lambda: λ2x.t[x]
, 
cand: A c∧ B
, 
less_than': less_than'(a;b)
, 
le: A ≤ B
, 
nat: ℕ
, 
false: False
, 
rev_implies: P 
⇐ Q
, 
iff: P 
⇐⇒ Q
, 
uimplies: b supposing a
, 
subtype_rel: A ⊆r B
, 
true: True
, 
prop: ℙ
, 
squash: ↓T
, 
not: ¬A
, 
and: P ∧ Q
, 
exists: ∃x:A. B[x]
, 
guard: {T}
, 
implies: P 
⇒ Q
, 
rng: Rng
, 
crng: CRng
, 
integ_dom: IntegDom{i}
, 
member: t ∈ T
, 
uall: ∀[x:A]. B[x]
, 
all: ∀x:A. B[x]
Lemmas referenced : 
cross-product_wf, 
cross-product-non-zero-implies-ext, 
integ_dom_wf, 
deq_wf, 
set_wf, 
rng_zero_wf, 
zero-vector_wf, 
int_seg_wf, 
exists_wf, 
le_wf, 
false_wf, 
scalar-product_wf, 
not_wf, 
iff_weakening_equal, 
subtype_rel_self, 
scalar-product-comm, 
true_wf, 
squash_wf, 
equal_wf, 
rng-pp-nontrivial-2, 
rng_car_wf, 
deq-implies
Rules used in proof : 
functionExtensionality, 
functionEquality, 
setEquality, 
productEquality, 
comment, 
dependent_set_memberEquality, 
voidElimination, 
independent_isectElimination, 
instantiate, 
baseClosed, 
imageMemberEquality, 
sqequalRule, 
natural_numberEquality, 
universeEquality, 
equalitySymmetry, 
equalityTransitivity, 
imageElimination, 
lambdaEquality, 
applyEquality, 
promote_hyp, 
independent_pairFormation, 
dependent_pairFormation, 
productElimination, 
hypothesisEquality, 
dependent_functionElimination, 
independent_functionElimination, 
hypothesis, 
because_Cache, 
rename, 
setElimination, 
thin, 
isectElimination, 
sqequalHypSubstitution, 
extract_by_obid, 
introduction, 
cut, 
lambdaFormation, 
sqequalReflexivity, 
computationStep, 
sqequalTransitivity, 
sqequalSubstitution
Latex:
\mforall{}r:IntegDom\{i\}.  \mforall{}eq:EqDecider(|r|).  \mforall{}p:\{p:\mBbbN{}3  {}\mrightarrow{}  |r||  \mneg{}(p  =  0)\}  .
    \mexists{}l,m,n:\{p:\mBbbN{}3  {}\mrightarrow{}  |r||  \mneg{}(p  =  0)\} 
      ((\mneg{}\mneg{}((p  .  l)  =  0))
      \mwedge{}  (\mneg{}\mneg{}((p  .  m)  =  0))
      \mwedge{}  (\mneg{}\mneg{}((p  .  n)  =  0))
      \mwedge{}  (\mexists{}a:\{p:\mBbbN{}3  {}\mrightarrow{}  |r||  \mneg{}(p  =  0)\}  .  ((\mneg{}\mneg{}((a  .  l)  =  0))  \mwedge{}  (\mneg{}((a  .  m)  =  0))))
      \mwedge{}  (\mexists{}a:\{p:\mBbbN{}3  {}\mrightarrow{}  |r||  \mneg{}(p  =  0)\}  .  ((\mneg{}\mneg{}((a  .  m)  =  0))  \mwedge{}  (\mneg{}((a  .  n)  =  0))))
      \mwedge{}  (\mexists{}a:\{p:\mBbbN{}3  {}\mrightarrow{}  |r||  \mneg{}(p  =  0)\}  .  ((\mneg{}\mneg{}((a  .  n)  =  0))  \mwedge{}  (\mneg{}((a  .  l)  =  0)))))
Date html generated:
2018_05_22-PM-00_54_38
Last ObjectModification:
2018_05_21-AM-01_27_15
Theory : euclidean!plane!geometry
Home
Index