Nuprl Lemma : pgeo-triangle-dual

pg:ProjectivePlane. ∀t:pgeo-triangle(pg).
  ∃t*:pgeo-triangle(pg*)
   let a,b,c,s,s' in let lab,lbc,lca,s1,s2 t* in lab ∧ lab ∧ lbc ∧ lbc ∧ lca ∧ lca


Proof




Definitions occuring in Statement :  pgeo-triangle: pgeo-triangle(pg) projective-plane: ProjectivePlane pgeo-dual: pg* pgeo-incident: b spreadn: let a,b,c,d,e in v[a; b; c; d; e] all: x:A. B[x] exists: x:A. B[x] and: P ∧ Q
Definitions unfolded in proof :  uall: [x:A]. B[x] member: t ∈ T pgeo-triangle: pgeo-triangle(pg) all: x:A. B[x] cand: c∧ B and: P ∧ Q guard: {T} implies:  Q pgeo-lsep: l ≠ m exists: x:A. B[x] subtype_rel: A ⊆B uimplies: supposing a prop: pgeo-meet: l ∧ m mk-pgeo-prim: mk-pgeo-prim pgeo-line: Line pgeo-point: Point btrue: tt bfalse: ff ifthenelse: if then else fi  eq_atom: =a y top: Top mk-pgeo: mk-pgeo(p; ss; por; lor; j; m; p3; l3) pgeo-dual-prim: pg* pgeo-plsep: a ≠ b pgeo-dual: pg* pgeo-join: p ∨ q iff: ⇐⇒ Q rev_implies:  Q pgeo-incident: b pgeo-psep: a ≠ b spreadn: let a,b,c,d,e in v[a; b; c; d; e]
Lemmas referenced :  projective-plane_wf pgeo-triangle_wf pgeo-psep-sym plsep-join-implies incident-join-first projective-plane-structure-complete_subtype projective-plane-subtype subtype_rel_transitivity projective-plane-structure-complete_wf projective-plane-structure_wf pgeo-plsep-cycle pgeo-join-plsep-sym pgeo-incident_wf projective-plane-structure_subtype pgeo-primitives_wf pgeo-join_wf pgeo-line_wf pgeo-plsep_wf rec_select_update_lemma pgeo-meet-to-point projective-plane-subtype-basic incident-join-second pgeo-peq_inversion pgeo-meet_wf pgeo-plsep_functionality pgeo-leq_weakening pgeo-lsep_wf pgeo-point_wf
Rules used in proof :  hypothesis hypothesisEquality isectElimination extract_by_obid introduction cut thin productElimination sqequalHypSubstitution lambdaFormation sqequalReflexivity computationStep sqequalTransitivity sqequalSubstitution rename independent_pairFormation independent_functionElimination dependent_functionElimination dependent_pairFormation applyEquality instantiate independent_isectElimination sqequalRule because_Cache productEquality lambdaEquality setElimination setEquality voidEquality voidElimination isect_memberEquality dependent_pairEquality

Latex:
\mforall{}pg:ProjectivePlane.  \mforall{}t:pgeo-triangle(pg).
    \mexists{}t*:pgeo-triangle(pg*)
      let  a,b,c,s,s'  =  t  in  let  lab,lbc,lca,s1,s2  =  t*  in  a  I  lab
      \mwedge{}  b  I  lab
      \mwedge{}  b  I  lbc
      \mwedge{}  c  I  lbc
      \mwedge{}  c  I  lca
      \mwedge{}  a  I  lca



Date html generated: 2018_05_22-PM-00_51_29
Last ObjectModification: 2017_12_05-AM-11_36_54

Theory : euclidean!plane!geometry


Home Index